📄 admin-2.asp
字号:
<html>
<head>
<link href="images/css.css" rel="stylesheet" type="text/css">
<!--#include file="inc.asp"-->
<title>真露无香——友情链接管理系统——后台管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {
background-color: #FFFFFF;
margin-top: 0px;
margin-bottom: 0px;
}
-->
</style></head>
<%
mfkiqpl.checkadmin
call top
dim action
action=request("action")
if action="del" then
dim id
id=trim(request("id"))
mfkiqpl.openmdb
conn.execute("delete * from links where id="&id)
mfkiqpl.closeconn
response.write("<script>alert('删除成功！');window.location='admin-2.asp';</script>")
end if
%>
<body>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FBE2FE">
<tr>
<td> </td>
</tr>
<tr>
<td height="600" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CB07E0">
<tr align="center" bgcolor="#EF88FB">
<td width="12%" height="30">LOGO</td>
<td width="14%">网站名称</td>
<td width="20%">网站地址</td>
<td width="10%">站长名称</td>
<td width="27%">说明</td>
<td width="6%">类型</td>
<td width="6%">编辑</td>
<td width="5%">删除</td>
</tr>
<%
mfkiqpl.openmdb
set rs=server.CreateObject("ADODB.Recordset")
ssd="select * from links order by id desc"
rs.open ssd,conn,3,1
if rs.eof or rs.bof then
response.write("还没有链接呢。快添加啊！！")
else
rs.pagesize=10
dim page
page=trim(request("page"))
if page<>"" then
page=cint(page)
else
page=1
end if
pagec=rs.pagecount
if page>pagec then
page=pagec
end if
rs.absolutepage=page
a=0
do while not rs.eof and a<rs.pagesize
%>
<tr align="center" bgcolor="#FBE2FE">
<td height="40">
<%
if rs("weblogo")="" then
response.write("无图标")
else
mytt=instr(rs("weblogo"),"Mfkiqpl_Logos")
%>
<img src="<%=rs("weblogo")%>" width="88" height="31">
<%
end if%></td>
<td><%=codestr(rs("webname"))%></td>
<td><a href="<%=codestr(rs("weburl"))%>" target=_blank><%=codestr(rs("weburl"))%></a></td>
<td><%=codestr(rs("webmasterid"))%></td>
<td><%=codestr(rs("webbio"))%></td>
<td><%
if rs("ok") then
response.write("通过验证")
else
response.write("<font color=red>等待验证</font>")
end if
%></td>
<script>
function ccc(){
if(confirm('你确定删除整个站点吗？\r\r此操作后无法恢复！\r\r提示：如果此站有LOGO请先在编辑里删掉LOGO文件！\r\r请选择！'))
return true;
else
return false;
}
</script>
<td><a href="admin-eee.asp?id=<%=rs("id")%>">编辑</a></td>
<td bgcolor="#FBE2FE"><a onclick="return ccc();" href="?action=del&id=<%=rs("id")%>">删除</a></td>
</tr>
<%
rs.movenext
a=a+1
loop
end if
%>
<tr align="center" bgcolor="#FBE2FE">
<td height="30" colspan="8">
<%
response.write ("<a href=?page=1>首页</a> ")
if page>1 then
response.write ("<a href=?page="&page-1&">上一页</a> ")
else
response.write("上一页 ")
end if
if page<pagec then
response.write("<a href=?page="&page+1&">下一页</a> ")
else
response.write("下一页 ")
end if
response.write ("<a href=?page="&pagec&">尾页</a> ")
response.write ("当前："&page&"/"&pagec&"")
mfkiqpl.closers(rs)
mfkiqpl.closeconn
%></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -