📄 admin_userlist.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用户管理</title>
<link href="../Style.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="Inc/Conn.asp"-->
<!--#include file="Inc/Admin_Check.asp"-->
<!--#include file="../Inc/Pages.asp"-->
<!--#include file="Inc/Head.asp"-->
<table width="772" height="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="11" background="../Image/LeftMargin.gif"></td>
<td width="750" height="400" align="center" valign="top" background="../Image/BGBlock.gif"><br>
<!--/////////////////////////////////////////////////////////////////////////////////////////////-->
<%
'删除用户
If Request.QueryString("Action")="Del" Then
Dim cid, str
cid = Request.QueryString("ID")
If cid<>"" And isNumeric(cid) Then
'创建命令对象
Dim RegCmd, SQLStr
Set RegCmd = Server.CreateObject("ADODB.Command")
RegCmd.ActiveConnection = Conn
SQLStr = "Delete * From [User] Where ID="&cid
RegCmd.CommandText = SQLStr
RegCmd.Execute
str="用户删除成功!"&cid
Else
str="发生错误,操作失败!"
End If
Response.write "<script language='javascript'>" & chr(13)
Response.write "alert('"&str&"');" & Chr(13)
Response.write "location = 'Admin_UserList.asp';"&Chr(13)
Response.write "</script>" & Chr(13)
Response.End
End If
%>
<form name="UserSearch" method="post" action="Admin_UserList.asp?Action=Search" >
<table width="700" border="0" cellspacing="0" cellpadding="0" align="center" class="TableInfo">
<tr>
<td width="573" height="40" align="right">用户查询:<input name="UserName" type="text" class="Input"></td>
<td width="125" align="center"><input type="submit" name="Submit" value="查 询" class="Input"></td>
</tr>
</table>
</form>
<%
'用户搜索
If Request.QueryString("Action")="Search" Then
Dim sUserName
sUserName = Request.Form("UserName")
If sUserName <> "" Then
Dim RS
Set RS=Server.CreateObject("ADODB.RecordSet")
RS.ActiveConnection=Conn
RS.Source = "Select * From [USER] Where UserName='"&sUserName&"'"
RS.CursorType = adOpenKeyset
RS.CursorLocation = adUseServer
RS.LockType = adLockReadOnly
RS.Open
If RS.Eof Then
%>
<table width="331" align="center" class="TableInfo">
<tr>
<td height="55" align="center" class="TextTitle">用户"<%=sUserName%>"没有找到!</td>
</tr>
</table>
<br>
<%
Else
%>
<table width="700" align="center" class="TableInfo">
<tr>
<td colspan="5" height="55" align="center" class="TextTitle">查询结果</td>
</tr>
<tr>
<td colspan="5"><hr width="96%" color="#BBBBBB" size="1"></td>
</tr>
<tr>
<td height="30" width="70" align="center">ID</td>
<td height="20" align="center">用户名</td>
<td width="120" align="center">详细资料</td>
<td width="120" align="center">预约查询</td>
<td width="120" align="center">删除</td>
</tr>
<tr>
<td height="30" width="70" align="center"><%=RS("ID")%></td>
<td align="center"><%=RS("UserName")%></td>
<td width="120" align="center"><a href="Admin_UserInfo.asp?ID=<%=Rs("ID")%>"><span class="Text2"><详细资料></span></a></td>
<td align="center" ><a href="Admin_RegSearchByUser.asp?UserName=<%=RS("UserName")%>"><span class="Text2"><预约情况></span></a></td>
<td align="center"><a href="Admin_UserList.asp?Action=Del&ID=<%=RS("ID")%>" onClick="return ConfirmOper('确认删除？');"><span class="Text2"><删除></span></a></td>
</tr>
</table>
<%
RS.Close
End If
End If
End If
If Request.QueryString("Action")="" Then
Dim NowPage
NowPage=Request("Page")
If NowPage="" OR Not isNumeric(NowPage) Then
NowPage=1
End If
Dim PageMagr, PageRs
Set PageMagr = new PageClass
PageMagr.Conn=Conn
PageMagr.PageSize=10
PageMagr.Page=NowPage
Set PageRs = PageMagr.ExecuteBy("User","ID,UserName","","ID Asc")
If PageMagr.RecordCount = 0 Then
%>
<table width="331" align="center" class="TableInfo">
<tr>
<td height="55" align="center">没有任何注册用户</td>
</tr>
</table>
<%
Else
Dim strPageChoose
strPageChoose = PageMagr.GetPageBar("Admin_UserList.asp")
%>
<table width="700" border="0" cellspacing="1" cellpadding="0" align="center" class="TableInfo">
<tr>
<td height="30" colspan="6" align="center" class="TextTitle">用户列表</td>
</tr>
<tr>
<td height="20" colspan="6" align="right"><%=strPageChoose%></td>
</tr>
<tr>
<td colspan="6">
<hr width="96%" color="#BBBBBB" size="1">
</td>
</tr>
<tr>
<td height="30" width="70" align="center">ID</td>
<td height="20" align="center">用户名</td>
<td width="120" align="center">详细资料</td>
<td width="120" align="center">预约查询</td>
<td width="120" align="center">删除</td>
</tr>
<%
For i=1 To PageMagr.PageSize
If Not PageRs.eof Then
%>
<tr>
<td height="30" width="70" align="center"><%=PageRs("ID")%></td>
<td align="center"><%=PageRs("UserName")%></td>
<td width="120" align="center"><a href="Admin_UserInfo.asp?ID=<%=PageRs("ID")%>"><span class="Text2"><详细资料></span></a></td>
<td align="center" ><a href="Admin_RegSearchByUser.asp?UserName=<%=PageRs("UserName")%>"><span class="Text2"><预约情况></span></a></td>
<td align="center"><a href="Admin_UserList.asp?Action=Del&ID=<%=PageRs("ID")%>" onClick="return ConfirmOper('确认删除？');"><span class="Text2"><删 除></span></a></td>
</tr>
<%
PageRs.movenext
Else
Exit for
End if
Next
PageRs.Close
CloseConn()
%>
<tr>
<td colspan="6">
<hr width="96%" color="#BBBBBB" size="1">
</td>
</tr>
<tr>
<td height="20" colspan="6" align="right"><%=strPageChoose%></td>
</tr>
</table>
<br>
<%
End If
RS.close
Set RS = nothing
ConnClose()
End If
%><br>
<!--/////////////////////////////////////////////////////////////////////////////////////////////-->
</td>
<td width="11" background="../Image/RightMargin.gif"></td>
</tr>
</table>
<!--#include file="Inc/Trail.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -