📄 admin.asp
字号:
<%
if request.form("user")="" or request.form("pwd")="" then
user=session("adminuser")
pwd=session("adminpwd")
else
user=trim(request.form("user"))
pwd=trim(request.form("pwd"))
session("adminuser")=user
session("adminpwd")=pwd
end if
%>
<%if session("adminuser")<>"" and session("adminpwd")<>"" then%>
<!--#include file="conn.asp"-->
<%
set rs1=server.createobject("adodb.recordset")
sql="select * from admin where adminuser='" & user &"'"
rs1.Open SQL,conn,1,2
if rs1.BOF or rs1.EOF then
response.write("<script>alert('没有此用户');history.go(-1)</script>")
else
if pwd<>rs1("adminpwd") then
response.write("<script>alert('用户密码错误');history.go(-1)</script>")
else
if request("active")="del" then
set rsdel=server.createobject("adodb.recordset")
sqldel="select * from user where id="&request("userid")
rsdel.open sqldel,conn,1,1
username=rsdel("username")
sqldel="delete from user where id="&request("userID")
conn.execute (sqldel)
sql="delete * from book where user='" & rsdel("username") & "'"
conn.execute (sql)
rsdel.close
set rsdel=nothing
end if
%>
<%
id=Request.QueryString("id")
If Request.QueryString("Page") = "" or Request.QueryString("Page") <= 0 then
Page = 1
Else
Page = CINT(Request.QueryString("Page"))
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>超级用户</title>
<link rel="stylesheet" type="text/css" href="style/4.css">
</head>
<body>
<!--#include file="bof.asp"--><br>
<table width="650" cellspacing="1" cellpadding="3" align="center" border="0">
<form method="POST" action="modifyadmin.asp">
<tr>
<td valign="top">
<div align="center">超级用户:<input name="user" size="13" maxlength="20" class="input1" value="<%=rs1("adminuser")%>">
<input name="olduser" size="13" maxlength="20" class="input1" value="<%=rs1("adminuser")%>" type="hidden"></div>
</td>
<td valign="top">密码:<input name="pwd" size="13" maxlength="20" class="input1"value="<%=rs1("adminpwd")%>"></td>
<td width="153" valign="top" class="jnfont6"><input type="submit" value="修改档案" name="cmdOk" class="input1" ></td>
</tr>
</form>
</table>
<br>
<table width="650" cellspacing="1" cellpadding="3" bgcolor="#000000" align="center">
<tr class="table003">
<td width="77" height="14" valign="top">
<div align="center">用户名<br>
</div>
</td>
<td width="77" height="14" valign="top">
<div align="center">网站名称<br>
</div>
</td>
<td height="14" valign="top" width="69">
<div align="center">站长</div>
</td>
<td height="14" valign="top" width="40">
<div align="center">留言数</div>
</td>
<td height="14" valign="top" width="88">
<div align="center">加入时间</div>
</td>
<td width="*" height="14" valign="top">
<div align="center">介绍</div>
</td>
<td width="30" height="14" valign="top">
<div align="center">操作</div>
</td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from user order by count desc"
rs.open sql,conn,1,2
if not (rs.EOF or rs.BOF) then
rs.PageSize=20
Dim TotalPages
TotalPages = RS.PageCount
if page>rs.pagecount then page=rs.pagecount
dim scount
scount=INT(Rs.recordcount)
rs.absolutepage=page
StartPageNum=1
do while StartPageNum+10<=Page
StartPageNum=StartPageNum+10
Loop
EndPageNum=StartPageNum+9
If EndPageNum>RS.Pagecount then EndPageNum=RS.Pagecount
i=0
do while (not rs.EOF) and (i<RS.PageSize)
%>
<tr class="table001">
<td width="77" valign="top"><a href="guestbook.asp?user=<%=rs("username")%>" target="_blank"><%=rs("username")%></a></td>
<td width="77" valign="top"><a href="<%=rs("wwwhttp")%>" target="_blank"><%=rs("web")%></a></td>
<td width="60" valign="top"><a href="mailto:<%=rs("email")%>" ><%=rs("webmaster")%></a></td>
<td width="40" valign="top""><%=rs("count")%></td>
<td valign="top" width="88"><%=rs("addtime")%></td>
<td width="*" valign="top"><%=rs("wwwintro")%></td>
<td width="30" valign="top"><a href=admin.asp?active=del&userid=<%=rs("id")%>>删除</a></td>
</tr>
<%i=i+1
rs.movenext
loop
%>
</table>
<table width="650" cellspacing="1" cellpadding="3" bgcolor="#000000" align="center">
<tr class="table003">
<td colspan="2" valign="top">
<div align="center"> 共<font color=#ff0000><%=scount%></font>个网站申请 [<% if StartPageNum>1 then %><a href="admin.asp?Page=<%=StartPageNum-1%>"><<</a>
<%end if%> <% For I=StartPageNum to EndPageNum
if I<>Page then %> <a href="admin.asp?Page=<%=I%>"><%=I%></a>
<% else %> <b><%=I%></b> <% end if %> <% Next %> <% if EndPageNum<RS.Pagecount then %>
<a href="admin.asp?Page=<%=EndPageNum+1%>">>></a>
<%end if%> ]</div>
</td>
</tr>
</table><br>
<!--#include file="eof.asp"-->
<%rs.close
end if%>
</body>
</html>
<%end if
end if
set rs1=nothing
rs1.close
end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -