links.asp
来自「创建和运行动态、交互的Web服务器应用程序」· ASP 代码 · 共 209 行
ASP
209 行
<!--#include file="conn.asp"-->
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/css2.css" rel="stylesheet" type="text/css">
</head>
<body>
<% dim action,selectdel,linkid
action = request.QueryString("action")
selectdel= trim(request("selectdel"))
linkid = request.QueryString("id")
select case action
'/////删除链接
case "del"
if selectdel<>"" then
conn.execute "delete from shop_links where linkid in ("&request("selectdel")&")"
response.Redirect "links.asp?action=addlinks"
else
response.Write"<script language=javascript>alert('您没有选择要删除的链接！');window.location.reload('links.asp?action=addlinks')</script>"
end if
'/////添加链接
case "linkssave"
if trim(request("linkname1"))="" or request("linkurl1")="" then
response.write "<script language=javascript>alert('填写的信息不完整！');window.location.reload('links.asp?action=addlinks')</script>"
response.End
else
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_links",conn,1,3
rs.AddNew
rs("linkname")=trim(request("linkname1"))
rs("linkurl")=trim(request("linkurl1"))
rs("linkidorder")=int(request("linkidorder1"))
rs.Update
rs.Close
set rs=nothing
response.Redirect "links.asp?action=addlinks"
response.End
end if
'/////修改链接
case "linksedit"
if trim(request("linkname1"))="" or request("linkurl1")="" then
response.write "<script language=javascript>alert('填写的信息不完整！');window.location.reload('links.asp?action=addlinks')</script>"
response.End
else
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_links where linkid="&linkid,conn,1,3
rs("linkname")=trim(request("linkname1"))
rs("linkurl")=trim(request("linkurl1"))
rs("linkidorder")=int(request("linkidorder1"))
rs.Update
rs.Close
set rs=nothing
response.write "<script language=javascript>alert('修改成功！');window.location.reload('links.asp?action=addlinks')</script>"
response.End
end if
end select%>
<table width="90%" border="0" height=450 cellpadding="0" cellspacing="0">
<tr><td bgcolor="#ece9d8"><br>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td>
<table width=154 border="0" cellpadding="0" cellspacing="0">
<tr valign=bottom><%if action="addlinks" then%>
<td background=images/get_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><font color=#ffffff>增加链接</font></div></td>
<td background=images/lose_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><font color=#000000>修改链接</font></div></td>
<%else%>
<td background=images/lose_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><a href="links.asp?action=addlinks"><font color=#000000>增加链接</font></a></div></td>
<td background=images/get_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><font color=#ffffff>修改链接</font></div></td>
<%end if%>
</tr>
</table>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_links order by linkidorder",conn,1,1
dim i,ii
ii=1
i=rs.recordcount%>
<table width="100%" border="1" align="center" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bordercolorlight="#666666">
<tr><td>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0">
<tr><td valign=top width="62%">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#ffffff">
<form name="form1" method="post" action="links.asp?action=del">
<tr>
<td colspan=4 bgcolor="#ece9d8" align="center"><b><font color=#0000cc>友情链接目录</font></b></td>
</tr>
<tr>
<%if rs.eof and rs.bof then
response.write "<td align=center><font color=red>还没有数据，请添加！</font></td>"
else
do while not rs.eof%>
<td align="center"><input name="selectdel" type="checkbox" id="selectdel" value=<%=rs("linkid")%>><a href="links.asp?action=editlinks&id=<%=int(rs("linkid"))%>"><%=trim(rs("linkname"))%></td>
<% if (ii mod 4=0) and ii>=4 then response.write "<tr>"
rs.movenext
ii=ii+1
loop
end if
rs.close
set rs=nothing%>
<tr><td bgcolor="#ffffff" height=30></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#ece9d8">
<tr>
<td align="center" bgcolor="#cccccc" height=25><input type="submit" name="Submit1" class="bt5" value="删 除"></td>
</tr>
</form>
</table>
<%
select case action
case "addlinks"%>
<td>
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<form name="form" method="post" action="links.asp?action=linkssave">
<tr>
<td colspan=2 bgcolor="#ece9d8"><div align="center"><b>添加合作伙伴<b></div></td>
</tr>
<tr>
<td bgcolor="#ece9d8" align="right">网名</td><td bgcolor="#ffffff"><input name="linkname1" type="text" id="linkname1" size="26"></td>
</tr>
<tr>
<td bgcolor="#ece9d8" align="right">网址</td><td bgcolor="#ffffff"><input name="linkurl1" type="text" id="linkurl1" size="26"></td>
</tr>
<tr>
<td bgcolor="#ece9d8" align="right">排序</td><td bgcolor="#ffffff"><input name="linkidorder1" type="text" id="linkidorder1" value=<%=i+1%> size="3"></td>
</tr>
<tr>
<td colspan=2 bgcolor="#cccccc" align="center" height=25><input type="submit" name="Submit22" class="bt5" value="添 加"></td>
</tr>
</form>
</table>
</tr>
</table>
</tr>
</table>
</tr>
</table>
</tr>
</table>
<%case "editlinks"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shop_links where linkid="&linkid,conn,1,3%>
<td>
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<form name="form1" method="post" action="links.asp?action=linksedit&id=<%=int(rs("linkid"))%>">
<tr>
<td colspan=2 bgcolor="#ece9d8"><div align="center"><b>修改合作伙伴<b></div></td>
</tr>
<tr>
<td bgcolor="#ece9d8" align="right">网名</td><td bgcolor="#ffffff"><input name="linkname1" type="text" id="linkname1" value="<%=trim(rs("linkname"))%>" size="26"></td>
</tr>
<tr>
<td bgcolor="#ece9d8" align="right">网址</td><td bgcolor="#ffffff"><input name="linkurl1" type="text" id="linkurl1" value="<%=trim(rs("linkurl"))%>" size="26"></td>
</tr>
<tr>
<td bgcolor="#ece9d8" align="right">排序</td><td bgcolor="#ffffff"><input name="linkidorder1" type="text" id="linkidorder1" value=<%=rs("linkidorder")%> size="3"></td>
</tr>
<tr>
<td colspan=2 bgcolor="#cccccc" align="center" height=25><input type="submit" name="Submit3" class="bt5" value="修 改"></td>
</tr>
</form>
</table>
</tr>
</table>
</tr>
</table>
</tr>
</table>
</tr>
</table>
<%end select%>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?