📄 adminlink.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="sub/config.asp"-->
<!--#include file="sub/conn.asp"-->
<!--#include file="sub/inc.asp"-->
<%
call hacker()
if session("admin")<>"axsj" then
response.Write "<script>alert('您还没有登陆！');this.location.href='index.asp';</script>"
Response.End
end if
if session("adminsuper")<>"admin" then
response.Write "<script>alert('对不起!您不是高层管理员！请返回');this.location.href='javascript:history.go(-1)';</script>"
end if
adminname=session("adminname")
adminsuper=session("adminsuper")%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=Sitename%>-后台管理系统-友情链接管理</title>
<link href="index.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="top.asp"-->
<table width="780" border="0" cellspacing="0" cellpadding="0" align="center">
<tr><td height="4" colspan="2" background="images/index_11.gif"></td>
</tr>
<tr>
<td width="200" align="center" valign="top">
<% '调用左边框架
call adminleft()%>
</td>
<td width="580" align="left" valign="top" bgcolor="#EDFFFF">
<%
if request("type")<>"edit" then
action=request("action")
select case action
case "del":
call del()
case "best":
call best()
case "nobest":
call nobest()
case "pass":
call pass()
case "nopass":
call nopass()
case "cng"
call cng()
end select
sub del()
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from link where id="&request("id")
rs1.open sql1,cn,1,3
rs1.delete
response.Write"上一步操作:删除成功!"
rs1.close
set rs1=nothing
end sub
sub best()
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from link where id="&request("id")
rs1.open sql1,cn,1,3
rs1("best")=1
rs1.update
response.Write"上一步操作:推荐 "&rs1("webname")&" 成功!</a>"
rs1.close
set rs1=nothing
end sub
sub nobest()
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from link where id="&request("id")
rs1.open sql1,cn,1,3
rs1("best")=0
rs1.update
response.Write"上一步操作:取消推荐 "&rs1("webname")&" 成功!"
rs1.close
set rs1=nothing
end sub
sub pass()
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from link where id="&request("id")
rs1.open sql1,cn,1,3
rs1("pass")=1
rs1.update
response.Write"上一步操作:审核 "&rs1("webname")&" 成功!"
rs1.close
set rs1=nothing
end sub
sub nopass()
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from link where id="&request("id")
rs1.open sql1,cn,1,3
rs1("pass")=0
rs1.update
response.Write"上一步操作:取消审核 "&rs1("webname")&" 成功!"
rs1.close
set rs1=nothing
end sub
sub cng()
if request.Form("webname")<>"" and request.Form("url")<>"" then
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from link where id="&request("id")
rs1.open sql1,cn,1,3
rs1("logo")=request.Form("logo")
rs1("webname")=request.Form("webname")
rs1("adminname")=request.Form("adminname")
rs1("url")=request.Form("url")
rs1("content")=request.Form("content")
rs1("best")=request.Form("best")
rs1("pass")=request.Form("pass")
rs1.update
response.Write"上一步操作:修改 "&rs1("webname")&" 成功!"
rs1.close
set rs1=nothing
else
response.Write"上一步操作:修改友情链接失败,不能为空!"
end if
end sub
%>
<table width="580" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="100" align="center" bgcolor="#3B83C5">Logo链接</td>
<td width="100" align="center" bgcolor="#3B83C5">网站名称</td>
<td width="100" align="center" bgcolor="#3B83C5">站长名称</td>
<td width="60" align="center" bgcolor="#3B83C5">通过审核</td>
<td width="60" align="center" bgcolor="#3B83C5">首页推荐</td>
<td width="160" align="center" bgcolor="#3B83C5">选项</td>
</tr>
<% dim rs,sql
set rs=server.CreateObject("Adodb.recordSet")
sql="select * from link order by date desc"
rs.open sql,cn,1,1
rs.PageSize=30
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page
for i=1 to rs.pagesize
if rs.EOF then exit for%>
<tr>
<td height="40" align="center"><%if rs("logo")<>"null" then%><img src='<%=rs("logo")%>' width='88' height='31' border='0' alt="<%=rs("content")%>---<%=rs("date")%>"/><%else%><font class="top" title="<%=rs("content")%>---<%=rs("date")%>">没有logo</font><%end if%></td>
<td align="center"><a href="<%=rs("url")%>" target="_blank"><%=rs("webname")%></a></td>
<td align="center"><%=rs("adminname")%></td>
<td align="center"><%if rs("pass")=true then%><font class="top">是</font><%else%><font class="top">否</font><%end if%></td>
<td align="center"><%if rs("best")=true then%><font class="top">是</font><%else%><font class="top">否</font><%end if%></td>
<td align="center"><a href="?action=del&id=<%=rs("id")%>">删除</a>
<%if rs("pass")=0 then %>
<a href="?action=pass&id=<%=rs("id")%>">通过审核</a>
<%else%>
<a href="?action=nopass&id=<%=rs("id")%>">取消审核</a>
<%end if%><br>
<a href="?type=edit&id=<%=rs("id")%>">修改</a>
<%if rs("best")=0 then%>
<a href="?action=best&id=<%=rs("id")%>">设为推荐</a>
<%else%>
<a href="?action=nobest&id=<%=rs("id")%>">取消推荐</a>
<%end if%></td>
</tr>
<%
rs.movenext
next%><table align="center"><tr><td>
<br /><br />
<%if page=1 and not page=pagecount then%>
<div align="center">第<%=page%>页 <%for i=1 to pagecount%>
<a href="adminlink.asp?page=<%=i%>"><%=i%></a> <%next%><a href="adminlink.asp?page=<%=page+1%>">下一页</a> </div>
<%elseif page=pagecount and not page=1 then%>
<div align="center">第<%=page%>页 <%for i=1 to pagecount%>
<a href="adminlink.asp?page=<%=i%>"><%=i%></a> <%next%><a href="adminlink.asp?page=<%=page-1%>">上一页</a> </div>
<%elseif page<1 then%><div class="font" align="center"><font color=red>没有任何记录！</font></div>
<%elseif page>pagecount then%><div class="font" align="center"><font color=red>没有任何记录！</font></div>
<%elseif page=1 and page=pagecount then%>
<%else%>
<div align="center">第<%=page%>页 <%for i=1 to pagecount%>
<a href="adminlink.asp?page=<%=i%>"><%=i%></a> <%next%><a href="adminlink.asp?page=<%=page-1%>">上一页</a>
<a href="adminlink.asp?page=<%=page+1%>">下一页</a> </div></td></tr></table>
<%end if
set rs =nothing
else
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from link where id="&request("id")
rs1.open sql1,cn,1,3%>
<form method="post" name="form" id="form" action="?action=cng&id=<%=request("id")%>">
<table width="450" border="1" cellpadding="0" cellspacing="0" bordercolor="<%=border%>" rules=none class=3d align=center>
<tr class=title>
<td width="25%" height="25" colspan=2> ※ 修改连接</td>
</tr>
<tr>
<td height="30"> 网站名称：</td>
<td height="30"><input name="webname" type="text" id="webname" value="<%=rs1("webname")%>" class="wubian"></td>
</tr>
<tr>
<td height="30"> 站长姓名：</td>
<td height="30"><input name="adminname" type="text" id="adminname" value="<%=rs1("adminname")%>" class="wubian"></td>
</tr>
<tr>
<td height="30"> 网站地址：</td>
<td height="30"><input name="url" type="text" id="url" value="<%=rs1("url")%>" class="wubian"></td>
</tr>
<tr>
<td height="30"> logo地址：</td>
<td height="30"><input name="logo" type="text" id="logo" value="<%=rs1("logo")%>" class="wubian"><font color="red"> * 如果是文字链接请填上"null"</font></td>
</tr>
<tr>
<td> 网站介绍：</td>
<td><textarea name="content" cols="50" rows="5" id="content" class="wubian"><%=rs1("content")%></textarea></td>
</tr>
<tr>
<td height="30"> 是否通过：</td>
<td height="30"><input name="pass" type="radio" value="true" <%if rs1("pass")=true then%>checked<%end if%>>
是
<input type="radio" name="pass" value="false" <%if rs1("pass")=false then%>checked<%end if%>>
否</td>
</tr>
<tr>
<td height="30"> 是否推荐：</td>
<td height="30"><input name="best" type="radio" value="true" <%if rs1("best")=true then%>checked<%end if%>>
是
<input type="radio" name="best" value="false" <%if rs1("best")=false then%>checked<%end if%>>
否</td>
</tr><tr><td class="hr" colspan="2"></td></tr>
<tr class=bg>
<td height="30" colspan="2"><div align="center">
<input name="Submitedit" type="submit" id="Submitedit" value="提交" class="wubian"> <input type="reset" name="Submit" value="重置" class="wubian" >
</div></td>
</tr>
</table>
</form>
<%rs1.close
set rs1=nothing
end if%>
</table> </td>
</tr>
</table>
<!--#include file="bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -