📄 admin_link.asp
字号:
<!--#include file="Admin_IsLogin.asp" -->
<!--#include file="inc/Conn.asp"-->
<!--#include file="chk.asp" -->
<HTML><HEAD><TITLE>管理系统</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="admin_css.css" rel="stylesheet" type="text/css">
</head>
<div align="center">
<table border="0" cellspacing="1" cellpadding="3" height="1" class="table">
<tr>
<td width="100%" class="title">友情网站管理</td>
</tr>
<tr>
<td class="title2">[<a href="admin_link.asp">友情网站管理</a>] [<a href="?action=add">友情网站添加</a>]</td>
</tr>
</table>
</div>
<br>
<%
dim rs,sql
Select Case request("action")
Case "add"
add()
Case "SaveAdd"
SaveAdd()
Case "Edit"
Edit()
Case "SaveEdit"
SaveEdit()
Case "SaveAll"
SaveAll()
Case "DelLink"
DelLink()
Case else
ListLink()
End Select
sub ListLink()
%>
<div align="center">
<table border="0" cellspacing="1" cellpadding="3" class="table">
<tr>
<td colspan="4" class="title">友情网站链接批量管理</td>
</tr>
<form method="post" action="?action=SaveAll">
<%
Set rs = conn.Execute("select * from fyasp_Link order by id")
if rs.eof then
response.Write("<tr>")
response.Write("<td class=td>")
response.Write("还没有友情网站！")
response.Write("</td>")
response.Write("</tr>")
else
%>
<tr>
<td colspan="4" class="title3">
<b>注意事项：</b><br>
①你可以编辑所有友情链接信息然后一次性提交。<br>
②其中序号部分可以按照你的需要修改，不能有重复。<br>
③其他内容尽量避免使用单引号，以免破坏页面代码执行。
</td>
</tr>
<%
dim i
i = 0
Do While Not Rs.EOF
%>
<tr>
<td width="20%" height="30" class="td"><b>序号：</b>
<input name="id" type="text" size="5" value="<%=rs("id")%>"></td>
<td width="27%" height="30" class="td"><b>名 称：</b>
<input type="text" name="WebName<%=i%>" value="<%=server.htmlencode (rs("WebName"))%>"></td>
<td width="31%" height="30" class="td"><b>URL：</b>
<input name="WebURL<%=i%>" type="text" size="30" value="<%=server.htmlencode (rs("WebURL"))%>"> </td>
<td width="22%" height="30" class="td"><div align="center"><b>显示：</b>
<input type="radio" name="yn<%=i%>" value="1" <%if rs("yn")=1 then response.Write("checked") end if%>>
是
<input type="radio" name="yn<%=i%>" value="0" <%if rs("yn")=0 then response.Write("checked") end if%>>
否
</div></td>
</tr>
<tr>
<td height="30" class="title3"><b>是否图片：</b>
<input name="LinkType<%=i%>" type="radio" value="1" <%if rs("LinkType")=1 then response.Write("checked") end if%>>是
<input name="LinkType<%=i%>" type="radio" value="0" <%if rs("LinkType")=0 then response.Write("checked") end if%>>否
</td>
<td height="30" class="title3"><b>LOGO：</b>
<input type="text" name="logo<%=i%>" value="<%=server.htmlencode (rs("logo"))%>"></td>
<td height="30" class="title3"><b>简介：</b> <input name="WebContent<%=i%>" type="text" size="30" value="<%=server.htmlencode (rs("WebContent"))%>"></td>
<td height="30" class="title3"><div align="center"><a href="?action=DelLink&id=<%=rs("id")%>">
删除</a> | <a href="?action=Edit&id=<%=rs("id")%>">编辑</a></div></td>
</tr>
<%
i=i+1
rs.movenext
loop
%>
<tr>
<td colspan="4"><div align="center">
<input type="submit" name="Submit" value="批量修改">
</div></td>
</tr>
</form>
<%
end if
%>
</table>
</div>
<%
End Sub
%>
<%
sub add()
%>
<div align="center">
<table cellpadding="3" cellspacing="1" class="table">
<tr>
<td colspan="2" class="title">
添加友情网站
</td>
</tr>
<form action="?action=SaveAdd" method="post">
<tr>
<td class="td">是否显示：</td>
<td class="td">
<input type="radio" name="yn" value="1" checked>显示
<input type="radio" name="yn" value="0">不显示
</td>
</tr>
<tr>
<td class="td">链接类型：</td>
<td class="td">
<input type="radio" name="LinkType" value="1" checked>图片
<input type="radio" name="LinkType" value="0">文字
</td>
</tr>
<tr>
<td width="23%" class="td">
网站名称：
</td>
<td width="77%" class="td">
<input type="text" name="WebName">
</td>
</tr>
<tr>
<td class="td">网站地址：</td>
<td class="td"><input type="text" name="WebURL"></td>
</tr>
<tr>
<td class="td">LOGO：</td>
<td class="td"><input type="text" name="logo"></td>
</tr>
<tr>
<td class="td">站长姓名：</td>
<td class="td"><input type="text" name="WebMaster"></td>
</tr>
<tr>
<td class="td">站长信箱：</td>
<td class="td"><input type="text" name="WebMasterEmail"></td>
</tr>
<tr>
<td class="td">站长 QQ：</td>
<td class="td"><input type="text" name="WebMasterQQ"></td>
</tr>
<tr>
<td class="td">站长手机：</td>
<td class="td"><input type="text" name="WebMasterSJ"></td>
</tr>
<tr>
<td class="td">
网站介绍：
</td>
<td class="td"><textarea name="WebContent" cols="50" rows="3"></textarea></td>
</tr>
<tr>
<td colspan="2" class="td"><div align="center">
<input type="submit" name="Submit2" value="确认添加">
</div></td>
</tr>
</form>
</table>
</div>
<%
end sub
%>
<%
sub Edit()
set rs = conn.Execute("select * from [fyasp_Link] where id = "&request("id")&"")
%>
<div align="center">
<table cellpadding="3" cellspacing="1" class="table">
<tr>
<td colspan="2" class="title">
修改友情网站
</td>
</tr>
<form action="?action=SaveEdit" method="post">
<tr>
<td class="td">是否显示：</td>
<td class="td">
<input type="radio" name="yn" value="1" <%if rs("yn")=1 then response.Write("checked") end if%>>显示
<input type="radio" name="yn" value="0" <%if rs("yn")=0 then response.Write("checked") end if%>>不显示
</td>
</tr>
<tr>
<td class="td">链接类型：</td>
<td class="td">
<input type="radio" name="LinkType" value="1" <%if rs("LinkType")=1 then response.Write("checked") end if%>>图片
<input type="radio" name="LinkType" value="0" <%if rs("LinkType")=0 then response.Write("checked") end if%>>文字
</td>
</tr>
<tr>
<td width="23%" class="td">
网站名称：
</td>
<td width="77%" class="td">
<input type="text" name="WebName" value="<%=rs("WebName")%>">
</td>
</tr>
<tr>
<td class="td">网站地址：</td>
<td class="td"><input type="text" name="WebURL" value="<%=rs("WebURL")%>"></td>
</tr>
<tr>
<td class="td">LOGO：</td>
<td class="td"><input type="text" name="logo" value="<%=rs("logo")%>"></td>
</tr>
<tr>
<td class="td">站长姓名：</td>
<td class="td"><input type="text" name="WebMaster" value="<%=rs("WebMaster")%>"></td>
</tr>
<tr>
<td class="td">站长信箱：</td>
<td class="td"><input type="text" name="WebMasterEmail" value="<%=rs("WebMasterEmail")%>"></td>
</tr>
<tr>
<td class="td">站长 QQ：</td>
<td class="td"><input type="text" name="WebMasterQQ" value="<%=rs("WebMasterQQ")%>"></td>
</tr>
<tr>
<td class="td">站长手机：</td>
<td class="td"><input type="text" name="WebMasterSJ" value="<%=rs("WebMasterSJ")%>"></td>
</tr>
<tr>
<td class="td">
网站介绍：
</td>
<td class="td"><textarea name="WebContent" cols="50" rows="3"><%=rs("WebContent")%></textarea></td>
</tr>
<tr>
<td colspan="2" class="td"><div align="center">
<input type="hidden" name="id" value="<%=request("id")%>">
<input type="submit" name="Submit2" value="确认添加">
</div></td>
</tr>
</form>
</table>
</div>
<%
end sub
%>
<!--#include file="end.asp"-->
<%
Sub SaveAll()
Dim IDlist,id,i,tmpstr
ID=Request.form("id")
id=Replace(id," ","")
IDlist=","&ID&","
ID=split(id,",")
For i=0 to UBound(id)
tmpstr=","&ID(i)&","
If InStr(IDlist,tmpstr)>0 Then
If InStr(Len(tmpstr)-1+InStr(IDlist,tmpstr),IDlist,tmpstr)>0 Then
ErrMsg="<li>发现相同的序号："&ID(i)&",请返回仔细检查。"
LZ8.ShowErr()
Exit For
End If
End If
Next
'清除原来数据表中的数据。
conn.Execute("Delete from fyasp_Link")
'开始利用循环插入数据
Dim sql,WebName,WebContent,logo,LinkType,WebURL,yn
For i= 0 to UBound(id)
yn = fixjs(Request.form("yn"&i))
WebName=fixjs(Request.form("WebName"&i))
WebContent=fixjs(Request.form("WebContent"&i))
WebURL=fixjs(Request.form("WebURL"&i))
logo=fixjs(Request.form("logo"&i))
LinkType=Request.form("LinkType"&i)
sql="insert into fyasp_Link (id,yn,WebName,WebContent,WebURL,logo,LinkType) values ("&CInt(id(i))&","&CInt(yn)&",'"&WebName&"','"&WebContent&"','"&WebURL&"','"&logo&"',"&CInt(LinkType)&")"
conn.Execute(sql)
Next
Response.write("<script>alert(""友情网站批量更新成功！"");location.href=""admin_link.asp"";</script>")
Response.end
End Sub
Function fixjs(Str)
If Str <>"" Then
str = replace(str,"\", "\\")
Str = replace(str, chr(34), "\""")
Str = replace(str, chr(39),"\'")
Str = Replace(str, chr(13), "\n")
Str = Replace(str, chr(10), "\r")
str = replace(str,"'", "'")
End If
fixjs=Str
End Function
Sub SaveAdd()
if request("WebName")=""then
response.write"<SCRIPT language=JavaScript>alert('网站名称”不能为空！');"
response.write"javascript:history.go(-1) ;</SCRIPT>"
end if
if request("WebURL")=""then
response.write"<SCRIPT language=JavaScript>alert('“网站地址”不能为空！');"
response.write"javascript:history.go(-1) ;</SCRIPT>"
end if
if request("logo")=""then
response.write"<SCRIPT language=JavaScript>alert('“logo”不能为空！');"
response.write"javascript:history.go(-1) ;</SCRIPT>"
end if
if request("WebMaster")=""then
response.write"<SCRIPT language=JavaScript>alert('“站长姓名”不能为空！');"
response.write"javascript:history.go(-1) ;</SCRIPT>"
end if
if request("WebMaster")<>"" and request("logo")<>"" and request("WebURL")<>"" and request("WebURL")<>"" then
Set rs = conn.Execute("select top 1 id from fyasp_Link order by id desc")
dim LinkNum
LinkNum = rs("id")+1
sql = "insert into fyasp_Link (id,yn,LinkType,WebName,WebURL,logo,WebContent,WebMaster,WebMasterEmail,WebMasterQQ,WebMasterSJ) values ("&LinkNum&","&request("yn")&","&request("LinkType")&",'"&request("WebName")&"','"&request("WebURL")&"','"&request("logo")&"','"&request("WebContent")&"','"&request("WebMaster")&"','"&request("WebMasterEmail")&"','"&request("WebMasterQQ")&"','"&request("WebMasterSJ")&"')"
conn.Execute(sql)
Response.write("<script>alert(""添加友情网站成功！"");location.href=""admin_link.asp"";</script>")
Response.end
end if
End Sub
Sub SaveEdit()
if request("WebName")=""then
response.write"<SCRIPT language=JavaScript>alert('网站名称”不能为空！');"
response.write"javascript:history.go(-1) ;</SCRIPT>"
end if
if request("WebURL")=""then
response.write"<SCRIPT language=JavaScript>alert('“网站地址”不能为空！');"
response.write"javascript:history.go(-1) ;</SCRIPT>"
end if
if request("logo")=""then
response.write"<SCRIPT language=JavaScript>alert('“logo”不能为空！');"
response.write"javascript:history.go(-1) ;</SCRIPT>"
end if
if request("WebMaster")=""then
response.write"<SCRIPT language=JavaScript>alert('“站长姓名”不能为空！');"
response.write"javascript:history.go(-1) ;</SCRIPT>"
end if
if request("WebMaster")<>"" and request("logo")<>"" and request("WebURL")<>"" and request("WebURL")<>"" then
sql = "Update [fyasp_Link] set yn="&request("yn")&",LinkType="&request("LinkType")&",WebName='"&request("WebName")&"',WebURL='"&request("WebURL")&"',logo='"&request("logo")&"',WebContent='"&request("WebContent")&"',WebMaster='"&request("WebMaster")&"',WebMasterEmail='"&request("WebMasterEmail")&"',WebMasterQQ='"&request("WebMasterQQ")&"',WebMasterSJ='"&request("WebMasterSJ")&"' where id = "&request("id")&""
conn.Execute(sql)
Response.write("<script>alert(""修改友情网站成功！"");location.href=""admin_link.asp"";</script>")
Response.end
end if
End Sub
Sub DelLink()
conn.Execute("Delete from [fyasp_Link] where id = "&request("id")&"")
Response.write("<script>alert(""删除友情链接成功！"");location.href=""admin_link.asp"";</script>")
Response.end
End Sub
%>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -