📄 users_list.asp
字号:
<!--#include file="inc_config.asp"-->
<!--#include file="inc_menu.asp"-->
<%
action = Request.QueryString("action")
if action = "chk" then
p_name2=Trim(Request.Form("p_name"))
p_pwd2=Trim(Request.Form("p_pwd"))
If p_name2 = mastername and p_pwd2= masterpwd then
Session.Contents("masterlogin") = ture
Response.Redirect "users_list.asp?action=list"
Else
Response.Redirect "users_list.asp?action=login"
end if
elseif action = "list" Then
If Session.Contents("masterlogin") <> ture Then Response.Redirect "users_list.asp?action=chk"
Dim myrs
PAGESIZE=10 '定义显示多少个
pset =1
tpset=Request.QueryString("pset")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open constr
Set myrs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM mem_db ORDER BY mem_id DESC"
myrs.Open sql, Conn, 1, 1
'--------------------------------------------------------------------------------------
If not myrs.eof then
myrs.PageSize = PAGESIZE
PageCount = myrs.PageCount '共多少页数
myRs_total=myrs.RecordCount
If (tpset <> "") Then '取得当前页
pset = clng(tpset)
if pset < 1 then
pset = 1
elseif pset > pagecount then
pset = pagecount
end if
End If
myrs.AbsolutePage = pset
in_num_rows = (pset-1)* PAGESIZE +1
to_num_rows = pset* PAGESIZE
if to_num_rows > myRs_total then to_num_rows=myRs_total
%>
<html>
<head>
<title>管理用户</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript">
<!--
function getSQL()
{
var strTemp="mem_id=";
var strMessageIDSQL="mem_id=0";
for(i=0;i<document.form2.elements.length;i++)
{
if(document.form2.elements(i).checked)
{
strMessageIDSQL=strTemp;
var id=document.form2.elements(i).value;
strTemp=strTemp+id;
strMessageIDSQL=strTemp;
strTemp=strTemp+"OR mem_id=";
}
}
form2.mySQL.value=strMessageIDSQL;
}
function MM_callJS(jsStr) { //v2.0
return eval(jsStr)
}
//-->
</script>
<!--#include file="jump.js" -->
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body bgcolor="#CCCCCC">
<!--#include file="inc_top.asp"--><br>
<form name="form2" method="post" action="users_del.asp">
<TABLE border="1" borderColorDark="#cccccc" borderColorLight="#000000" cellPadding="0" cellSpacing="0" width="500" align="center">
<tr>
<td width="10%" align="center"><br>用户ID<br><br></td>
<td width="25%" align="center"> <br>登录名(email)<br><br></td>
<td width="25%" align="center"> <br>登录密码<br><br></td>
<td width="30%" align="center"> <br>注册日期<br><br></td>
<td width="5%" align="center" ><br>删除<br><br></td>
</tr>
<%
For i = 1 to PAGESIZE
if myRs.EOF then exit for
%>
<tr>
<td align="center"><a href="tj_all.asp?userid=<%=(myrs.Fields.Item("mem_ID").Value)%>"><%=(myrs.Fields.Item("mem_ID").Value)%></a></td>
<td align="center" > <%=(myrs.Fields.Item("loginname").Value)%></A></td>
<td align="center"><%=(myrs.Fields.Item("loginpass").Value)%></td>
<td align="center"><%=(myrs.Fields.Item("regdate").Value)%></td>
<td align="center" TITLE="选择将要删除的记录">
<input type="checkbox" name="elements" value="<%=(myrs.Fields.Item("mem_ID").Value)%>"></td>
</tr>
<%
myRs.MoveNext()
next
%>
<tr>
<td><input name="mySQL" type="hidden" id="mySQL"><input name="pagenum" type="hidden" value="<%=pset%>"> </td>
<td align="center"> <a href="users_add.asp">添加一个用户</a></td>
<td> </td>
<td> </td>
<td align="center" TITLE="点击此按钮，删除您上面选择的纪录"><input type="submit" name="Submit" value="删除" onClick="MM_callJS('getSQL()')"></td>
</tr>
</table></form><br>
<TABLE border="1" borderColorDark="#cccccc" borderColorLight="#000000" cellPadding="0" cellSpacing="0" width="500" align="center" >
<tr><td height="25" TITLE=" 本页显示 <%=(myRs_total)%> 条信息中的 <%=in_num_rows%> 至 <%=to_num_rows%> 条信息 ">
<form name="form3" method="get" action="news_list.asp">
本页显示 <%=(myRs_total)%> 条记录中的
<%=in_num_rows%> 至 <%=to_num_rows%> 条记录 <a href="users_list.asp?action=list&pset=<%=pset-1%>">上一页</a> <a href="users_list.asp?action=list&pset=<%=pset+1%>">下一页</a>
<select name="pset" onChange="jump(this.form)" >
<option>请选择其它页码</option>
<% For i= 1 to PageCount %>
<option value="users_list.asp?action=list&pset=<%=i%>" <%If i=pset Then Response.Write "selected" %>> <%=i%> / <%=PageCount%> </option>
<% Next %></select></form>
</td>
</tr>
</table>
<!--#include file="inc_bottom.asp"-->
</body>
</html>
<%
myrs.Close()
Set myrs = Nothing
End if
Else
%>
<form name="form1" method="post" action="users_list.asp?action=chk" >
<table width="500" border="0" align="center" cellpadding="2" cellspacing="2" class="border">
<tr align="center" class="backq">
<td colspan="2">请输入系统管理员信息</td>
</tr>
<tr >
<td width="100" align="right">用户名称：</td>
<td width="400"> <input name="p_name" type="text" value="aaa" size="20" maxlength="50"></td>
</tr>
<tr >
<td width="100" align="right">登录密码：</td>
<td width="400"><input name="p_pwd" type="text" value="ccc" size="20" maxlength="50"> <input type="submit" name="Submit" value=" 登 录 "></td>
</tr>
<tr >
<td width="100"> </td>
<td width="400"> </td>
</tr>
</table>
</form>
<%
End if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -