📄 user1.asp

📁 网上购物系统 asp+sql server 2005
💻 ASP
字号:
<!--#include file="../include/dbopenbd.asp"-->
<!--#include file="checkadmin.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="manage.css" type="text/css">
<script language=javascript>
<!--
function CheckAll(form) {
	for (var i=0;i<form.elements.length;i++) {
		var e = form.elements[i];
		if (e.name != 'chkall') e.checked = form.chkall.checked; 
	}
}
-->
</script>
</head>
<BODY background="../images/admin/back.gif">
<%
dim ids
allpages=0
page=1
totalrec=0
per_page_num=16

action=request("action")
if action="" then 
call user()
else
ids=request("num")
if ids="" or isnull(ids) then mGoTo  "user1.asp","出错了，您什么也没有选择！"
if action="锁定" then call userclose()
if action="解锁" then call useropen()
if action="删除" then call userdel()

end if
sub user()
'会员首页
%>
<table width="98%" border="1"style="border-collapse: collapse; border-style: dotted; border-width: 0px"bordercolor="#333333" cellspacing="0" cellpadding="2">
<form action=user1.asp method=post name=user>
<td colspan=7 class=td height=25>注册会员管理 &nbsp;</td></tr>
<%
usersql=""
if request("show")="yes" then
  session("sql")=""
else
  usersql=session("sql")
end if

pages = per_page_num
set rs=server.createobject("adodb.recordset")
sql="select * from s_buser where UserNum is not null "
sql=sql+usersql 
sql=sql+" order by SignDate desc"

rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<tr><td colspan=7 align=center height=50>暂时没有会员</td></tr>"
response.end 
else
totalrec=rs.RecordCount
rs.pageSize = pages
allPages = rs.pageCount
page = Request("page")
If not isNumeric(page) then page=1
if isEmpty(page) or int(page) <=1 then
	page = 1
elseif int(page) > allPages then
	page = allPages 
end if
rs.AbsolutePage = page
%>
<tr>
<td align=center width=5%>选</td>
<td align=center width='18%'>会员ID</td>
<td align=center width='18%'>会员姓名</td>
<td align=center width='16%'>注册日期</td>
<td align=center width='16%'>上次登陆</td>
<td align=center width='12%'>登陆次数</td>
<td align=center width='15%'>会员状态</td>
</tr>
<% Do While Not rs.eof and pages>0 
if rs("status")="1" then
userstatus="开通"
else
userstatus="<font color=red><b>锁定</b></font>"
end if
%>
<tr><td><input type='checkbox' value='<%=rs("UserNum")%>' name=num></td>
<td><a href='user3.asp?id=<%=rs("UserId")%>'><%=rs("UserId")%></a></td>
<td><%=rs("UserName")%></td>
<td><span alt="<%=rs("SignDate")%>"><%=split(rs("SignDate")," ")(0)%></span></td>
<td><span alt="<%=rs("lastlogin")%>"><%=split(rs("lastlogin")," ")(0)%></span></td>
<td align=center><%=rs("totallogin")%></td><td align="center"><%=userstatus%></td></tr>

<%
pages = pages - 1
rs.movenext
if rs.eof then exit do
loop
end if
%>
<tr><td colspan=7>
<input type='checkbox' name=chkall onclick='CheckAll(this.form)'>全选 
<input type=submit name=action value="锁定">
<input type=submit name=action value="解锁">
<input type=submit name=action value="删除" onclick="{if(confirm('确认要删除选定的会员吗？')){this.document.user.submit();return true;}return false;}">
</td></tr>
</form>
</table>
<%
response.write "<br> &nbsp;&nbsp;&nbsp; 总会员数："&totalrec& "&nbsp;&nbsp; 每页："& per_page_num&" 条记录&nbsp;&nbsp;&nbsp;"
if allpages <= 1 then exit sub 
if page = 1 then
	response.write " <font color=#878787>首页 上页</font>"
else
	response.write " <a href='"&request.ServerVariables("script_name")&"?page=1'>首页</a> "
	response.write " <a href='"&request.ServerVariables("script_name")&"?page="&page-1&"'>上页</a> "
end if
if page = allpages then
	response.write "<font color=#878787>下页 末页</font>"
else
	response.write " <a href='"&request.ServerVariables("script_name")&"?page="&page+1&"'>下页</a> "
	response.write " <a href='"&request.ServerVariables("script_name")&"?page="&allpages&"'>末页</a> "
end if
response.write "&nbsp;&nbsp;&nbsp;第"&page&"/"&allpages&"页"
end sub

sub userdel()
conn.execute("delete from s_buser where UserNum in ("&ids&")")
mGoTo  "user1.asp","操作成功，选定的会员已被删除！"
conn.close
set conn=nothing
end sub
sub userclose()
conn.execute("update s_buser set status='0' where UserNum in ("&ids&")")
mGoTo  "user1.asp","操作成功，选定的会员已被锁定！"
conn.close
set conn=nothing
end sub
sub useropen()
conn.execute("update s_buser set status='1' where UserNum in ("&ids&")")
mGoTo  "user1.asp","操作成功，选定的会员已被解锁！"
conn.close
set conn=nothing
end sub
%>
⌨️ 快捷键说明

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