📄 admin_link.asp
字号:
<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="code.asp"-->
<%
'检查管理员是否登录
AdminName = ReplaceBadChar(Trim(Request.Cookies(webkey)("AdminName")))
AdminPassword = ReplaceBadChar(Trim(Request.Cookies(webkey)("AdminPassword")))
RndPassword = ReplaceBadChar(Trim(Request.Cookies(webkey)("RndPassword")))
If AdminName = "" Or AdminPassword = "" Or RndPassword = "" Then
Response.Redirect "Admin_login.asp"
End If
%>
<%
if request("action")="add" then
call add()
elseif request("action")="edit" then
call edit()
elseif request("action")="del" then
call del()
elseif request("action")="saveadd" then
call saveadd()
elseif request("action")="saveedit" then
call saveedit()
else
call linklist()
end if
%>
<html>
<head>
<title>管理员管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="image/css.css" rel="stylesheet" type="text/css">
<script language=javascript>
function ConfirmDel()
{
if(confirm("确定要删除此连接吗？"))
return true;
else
return false;
}
</script>
<body leftMargin=0 bgcolor="#EFEFEF" topMargin=15>
<%sub top()%>
<br>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#666666">
<tr>
<td height="25" bgcolor="#FFFFFF"> 友情连接管理： <a href="admin_link.asp" target="main">连接列表</a> <a href="admin_link.asp?action=add" target="main">新增连接</a></td>
</tr>
</table>
<%end sub%>
<%
'友情连接列表
sub linklist()
call top()
%>
<br>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#666666">
<tr align="center" bgcolor="#EFEFEF">
<td width="5%" height="30"><b>ID</b></td>
<td width="90" height="30"><b>LOGO</b></td>
<td width="28%" height="30"><b>地址</b></td>
<td height="30"><b>描述</b></td>
<TD width="60"><b>类型</b></TD>
<td width="40" height="30"><b>操作</b></td>
</tr>
<%
set rs = server.createobject("adodb.recordset")
sql="select * from linkad order by linktype,id asc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<tr bgcolor=#ffffff><td colspan=5>没有连接数据</td></tr>"
else
do while not rs.eof
%>
<tr bgcolor="#FFFFFF">
<td align="center"><%=rs("id")%></td>
<td align="center"><%if rs("linktype")=1 then%><img src=<%=rs("imgurl")%> border="0" width="88" height="31"><%end if%></td>
<td><%=rs("imglink")%></td>
<td><%=rs("title")%></td>
<TD align="center"><%if rs("linktype")=0 then response.write "文字连接" else if rs("linktype")=1 then response.write "<font color=#FF0000>图片连接</font>" end if%></TD>
<td align="center"><a href="admin_link.asp?id=<%=rs("id")%>&action=edit"><font color="#009900">编</font></a> <a href="admin_link.asp?id=<%=rs("id")%>&action=del" onClick="return ConfirmDel();">删</a></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
call CloseConn()
%>
</table>
<%end sub%>
<%
'友情连接添加
sub add()
call top()
%>
<br>
<form action="?action=saveadd" method=post>
<table width="400" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#666666">
<tr bgcolor="#EFEFEF">
<td colspan="2"> 添加连接</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="80" align="center">图标：</td>
<td align="center"><input name="imgurl" type="text" size="40"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="80" align="center">地址：</td>
<td align="center"><input name="imglink" type="text" size="40"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="80" align="center">描述：</td>
<td align="center"><input name="title" type="text" size="40"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="80" align="center">类型：</td>
<td align="center"><input type="radio" name="LinkType" value="0" checked>
文字连接
<input type="radio" name="LinkType" value="1">
图片连接</td>
</tr>
<tr align="center" bgcolor="#EFEFEF">
<td colspan="2"><input type=submit value=增加></td>
</tr>
</table>
</form>
<% end sub %>
<%
'友情连接编辑
sub edit()
call top()
set rs = server.createobject("adodb.recordset")
sql="select * from linkad where id="&htmlencode(trim(request("id")))
rs.open sql,conn,1,1
if rs.eof and rs.bof then
rs.close
call closeconn()
response.write "<script>alert('此连接不存在');history.back()</script>"
else
%>
<br>
<form action="?action=saveedit&id=<%=htmlencode(trim(request("id")))%>" method=post>
<table width="400" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#666666">
<tr bgcolor="#EFEFEF">
<td colspan="2"> 添加连接</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="80" align="center">图标：</td>
<td align="center"><input name="imgurl" type="text" value="<%=rs("imgurl")%>" size="40"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="80" align="center">地址：</td>
<td align="center"><input name="imglink" type="text" value="<%=rs("imglink")%>" size="40"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="80" align="center">描述：</td>
<td align="center"><input name="title" type="text" value="<%=rs("title")%>" size="40"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="80" align="center">类型：</td>
<td align="center"><input type="radio" name="LinkType" value="0" <%if rs("LinkType")=0 then response.write "checked" end if%>>
文字连接
<input type="radio" name="LinkType" value="1" <%if rs("LinkType")=1 then response.write "checked" end if%>>
图片连接</td>
</tr>
<tr align="center" bgcolor="#EFEFEF">
<td colspan="2"><input type=submit value=修改></td>
</tr>
</table>
</form>
<%
rs.Close
call closeconn()
end if
end sub
%>
<%
'保存新增加连接
sub saveadd()
dim imgurl,imglink,title,linktype
imgurl=htmlencode(trim(request.form("imgurl")))
imglink=htmlencode(trim(request.form("imglink")))
title=htmlencode(trim(request.form("title")))
linktype=htmlencode(trim(request.form("linktype")))
if linktype="" then
response.write "<script>alert('请选择连接类型');history.back()</script>"
response.end
end if
if linktype="1" and imgurl="" then
response.write "<script>alert('请输入LOGO地址');history.back()</script>"
response.end
end if
if imglink="" then
response.write "<script>alert('请输入连接地址');history.back()</script>"
response.end
end if
if title="" then
response.write "<script>alert('请输入描述信息');history.back()</script>"
response.end
end if
set rs = server.createobject("adodb.recordset")
sql="select * from linkad"
rs.open sql,conn,1,3
rs.AddNew
rs("imgurl") = imgurl
rs("imglink") = imglink
rs("title") = title
rs("linktype") = linktype
rs.Update
rs.Close
call closeconn()
response.Redirect "Admin_link.asp"
end sub
'保存连接修改
sub saveedit()
dim imgurl,imglink,title,linktype
imgurl=htmlencode(trim(request.form("imgurl")))
imglink=htmlencode(trim(request.form("imglink")))
title=htmlencode(trim(request.form("title")))
linktype=htmlencode(trim(request.form("linktype")))
if linktype="" then
response.write "<script>alert('请选择连接类型');history.back()</script>"
response.end
end if
if linktype="1" and imgurl="" then
response.write "<script>alert('请输入LOGO地址');history.back()</script>"
response.end
end if
if imglink="" then
response.write "<script>alert('请输入连接地址');history.back()</script>"
response.end
end if
if title="" then
response.write "<script>alert('请输入描述信息');history.back()</script>"
response.end
end if
set rs = server.createobject("adodb.recordset")
sql="select * from linkad where id="&htmlencode(trim(request("id")))
rs.open sql,conn,1,1
if rs.eof and rs.bof then
rs.close
call closeconn()
response.write "<script>alert('此连接不存在');history.back()</script>"
else
rs.close
rs.open sql,conn,1,3
rs("imgurl") = imgurl
rs("imglink") = imglink
rs("title") = title
rs("linktype") = linktype
rs.Update
rs.Close
call closeconn()
response.Redirect "Admin_link.asp"
end if
end sub
'连接删除
sub del()
on error resume next
sql="delete from linkad where id="&htmlencode(trim(request("id")))
conn.execute sql
if err.Number<>0 then
err.clear
call closeconn()
response.write "<script>alert('数据库操作失败! ');history.back()"
else
finished
call closeconn()
response.Redirect "Admin_link.asp"
end if
end sub
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -