📄 admin_u.asp

📁 这是一个非常好的留言版程序
💻 ASP
字号:
<!--#include file=conn.asp--> 
<!--#include file=char.asp--> 
<!--#include file=Admin_page.asp--> 

<%

if session("AdminName") = "" then
	Session.Abandon
    response.Redirect "Admin_Login.asp"
end if

if Session("AdminName")<>"admin" then
			response.write"<SCRIPT language=JavaScript>alert('对不起您无权访问本页！');"
			response.write"javascript:location.href='Admin_login.asp';</SCRIPT>"
			response.end
   end if

%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../index.css" rel="stylesheet" type="text/css">
<title>后台管理</title>
</head>

<body>
<br>
<%
zt=request("zt")
if zt="del" then
	sql="delete from myuser where id="&request("id")
	conn.execute(sql)
	response.redirect "admin_u.asp?pageno="&request("pageno")
	response.end
end if
if zt="vip" then
	sql="update myuser set isvip=1 where id="&request("id")
	conn.execute(sql)

	response.redirect "admin_u.asp?pageno="&request("pageno")
	response.end
end if
if zt="novip" then
	sql="update myuser set isvip=0 where id="&request("id")
	conn.execute(sql)

	response.redirect "admin_u.asp?pageno="&request("pageno")
	response.end
end if
%>
<br>
<div align="center">
	<table border="1" width="95%" cellspacing="0" cellpadding="3" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" id="table3">
		<tr height =30>
			<td bgcolor="#C0C0C0" width="762" colspan="5">&nbsp;用户管理</td>
		</tr>
		<tr height =30>
			<td bgcolor="#EAEAEA" width="190">用户ID</td>
			<td bgcolor="#EAEAEA" width="191">密码</td>
			<td bgcolor="#EAEAEA" width="191">收藏数</td>
			<td bgcolor="#EAEAEA" width="191">上次登陆时间</td>
			<td bgcolor="#EAEAEA" width="191">　</td>
		</tr>		
		<%
		pageno=int(request.querystring("pageno"))
		if pageno=0 then pageno=1  
		if pageno="" then pageno=1  

		set rs=server.createobject("adodb.recordset")
		sql="select * from myuser order by id desc"
		rs.open sql,conn,1,1
		
		if not rs.bof and not rs.eof then                        
			rs.pagesize=12                      
			rs.absolutepage=pageno                        
		
		for i=1 to rs.pagesize
		if rs.eof then exit for		
		%>
		<tr height =30>
			<td bgcolor="#EAEAEA" width="190"><b><font color="#0000FF">
			<a target="_blank" href="../userzhai.asp?zhaiuser=<%=rs("userid")%>"><%=rs("userid")%></a></font></b></td>
			<td bgcolor="#EAEAEA" width="191"><b><font color="#0000FF">
			<%=rs("Psw")%></font></b></td>
			<td bgcolor="#EAEAEA" width="191"><b><font color="#0000FF">
			<%=rs("ZhaiNum")%></font></b></td>
			<td bgcolor="#EAEAEA" width="191"><b><font color="#0000FF">
			<%=rs("LogonTime")%></font></b></td>
			<td bgcolor="#EAEAEA" width="191"><a onClick="return confirm('确定要删除此条记录吗？');" href="admin_u.asp?zt=del&id=<%=rs("ID")%>&pageno=<%=pageno%>">
			<font color="#575757">删除</font></a><font color="#575757"> 
			<%if rs("isvip")=0 then%><a href="admin_u.asp?zt=vip&id=<%=rs("ID")%>&pageno=<%=pageno%>">VIP</a><%else%><a href="admin_u.asp?zt=novip&id=<%=rs("ID")%>&pageno=<%=pageno%>">取消VIP</a><%end if%>  
			</font></td>
		</tr>
		<%
		rs.movenext
		next
		%>
		<tr height =30>
			<td bgcolor="#EAEAEA" width="762" colspan="5">                                                                                                                                 
                        
          	<%                                                                                                     
	          tj=""                         
     	      page "admin_u.asp",tj,pageno,rs.pagecount,rs.pagesize,rs.recordcount                        
            %></td>
		</tr>
		<%else%>
		<tr height =30>
			<td bgcolor="#EAEAEA" width="762" colspan="5">暂无内容</td>
		</tr>
		<%end if%>
	</table>
</div>
</body>

</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -