www.gusucode.com > 运动用品商城网站系统源代码程序 > feyok/ad_links.asp
<!--#include file="conn.asp"-->
<!--#include file="ad_chk.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=inc/css.css rel=STYLESHEET type=text/css>
<body topmargin="5" leftmargin="5" rightmargin="5" bottommargin="5">
<%
if Request.Cookies("venshop")("admin_class")<>0 then
response.write "你没有这个权限!"
response.end
end if
%>
<%
linkid=request("id")
action=request("action")
select case action
case "add"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from venshop_venlink",conn,1,3
rs.AddNew
rs("wordlink")=request("wordlink1")
rs("url")=request("url1")
rs("logo")=request("logo1")
rs("bs")=request("bs1")
rs.Update
rs.Close
set rs=nothing
call addok(addt,"ad_links.asp","ad_links.asp")
case "edit"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from venshop_venlink where id=" &linkid,conn,1,3
rs("wordlink")=request("wordlink")
rs("url")=request("url")
rs("logo")=request("logo")
rs("bs")=int(request("bs"))
rs.update
rs.close
set rs=nothing
call editok(editt,"ad_links.asp","ad_links.asp")
case "del"
conn.execute "delete from venshop_venlink where id="&linkid
call deleok(delet,"ad_links.asp")
end select
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from venshop_venlink order by bs",conn,1,1
ii=rs.recordcount%>
<table border="0" cellpadding="5" cellspacing="0" class="st">
<tr><td class="sa" colspan="5">管理链接</td>
</tr>
<tr><td align="center" class="s0">网站名称</td>
<td align="center" class="s0">网站地址</td>
<td align="center" class="s0">LOGO（不填则显示文字链接）</td>
<td align="center" class="s0">排 序</td>
<td align="center" class="s0">操 作</td></tr>
<%
i=0
do while not rs.eof
i=i+1
%>
<form name="form1" method="post" action="ad_links.asp?action=edit&id=<%=rs("id")%>">
<tr><td align="center" class="s<%=i mod 2%>"><input name="wordlink" type="text" id="linkname" value="<%=trim(rs("wordlink"))%>" size="20"></td>
<td align="center" class="s<%=i mod 2%>"><input name="url" type="text" id="linkurl" value="<%=trim(rs("url"))%>" size="29"></td>
<td align="center" class="s<%=i mod 2%>"><input name="logo" type="text" id="url1" size="29" value="<%=trim(rs("logo"))%>"><img border="0" src="Img/ad_help.gif" class="helpimg" alt="修改此图片请在底部点击浏览－上传，上传成功后把提示的图片地址复制过来"></td>
<td align="center" class="s<%=i mod 2%>"><input name="bs" type="text" id="linkidorder" value=<%=rs("bs")%> size="3"></td>
<td align="center" class="s<%=i mod 2%>"><input type="submit" name="Submit" value="修 改">
<a href=ad_links.asp?action=del&id=<%=rs("id")%> onClick="return confirm('您确定进行删除操作吗？')"><font color="#FF0000">删除</font></a>
</td></tr></form><%rs.movenext
loop
rs.close
set rs=nothing
%>
</table><br>
<table border="0" cellpadding="5" cellspacing="0" class="st">
<form name="form" method="post" action="ad_links.asp?action=add">
<tr><td colspan="2" class="sa"><b>添加链接</b></td></tr>
<tr><td bgcolor="#FFFFFF" class="s1">网站名称</td><td bgcolor="#FFFFFF" class="s1"><input name="wordlink1" type="text" id="wordlink" size="16"></td></tr>
<tr><td bgcolor="#FFFFFF" class="s0">网站地址</td><td bgcolor="#FFFFFF" class="s0"><input name="url1" type="text" id="url" size="26"></td></tr>
<tr><td bgcolor="#FFFFFF" class="s1">LOGO</td><td bgcolor="#FFFFFF" class="s1"><input name="logo1" type="text" id="url0" size="21">
<img border="0" src="Img/ad_help.gif" class="helpimg" alt="点击“浏览”选择相应图片，然后点击“上传”，不填则显示文字链接!"><br>
<iframe name="I1" src="upfileother.asp?atype=logo1" width="587" height="26" marginwidth="1" marginheight="1" scrolling="no" border="0" frameborder="0"></iframe></td></tr>
<tr><td bgcolor="#FFFFFF" class="s0">排 序</td><td bgcolor="#FFFFFF" class="s0"><input name="bs1" type="text" id="bs" value=<%=ii+1%> size="3"></td></tr>
<tr><td bgcolor="#FFFFFF" class="s1"></td><td bgcolor="#FFFFFF" class="s1"><input type="submit" name="Submit2" value="添 加"></td>
</tr></form></table>
<br>
<div class="help">
备注：<br>如果LOGO为空则显示文字链接，LOGO不为空显示图片链接<br>
LOGO尺寸的宽度请不要大于180像素，否则可能导致页面变形或者图片失真</div><!--#include file="ad_bottom.asp"-->