📄 b2b_user.asp
字号:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="conn.asp"-->
<%
if session("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
else
if request.cookies("Buy2Buy")("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
end if
end if
'所有无权限
if session("rank")>1 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('您的管理权限未达到此操作等级!');history.go(-1);</script>"
response.End
end if
grpid=request("grpid")
%>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<style type="text/css">
<!--
.STYLE1 {color: #000000;
font-weight: bold;
}
-->
</style>
<table width="99%" border="5" align="center" cellpadding="5" cellspacing="5" bordercolor="#CCCCCC" bgcolor="#FFFFFF">
<tr>
<td background="images/topbg.gif"><span class="STYLE1"><img src="images/pic5.gif" width="28" height="22" align="absmiddle" />您现在所在的位置是： <a href="adminhelp.asp">管理首页</a> -> <span class="style4">会员管理</span></span></td>
</tr>
<tr>
<form name="form1" method="post" action="b2b_saveuserinfo.asp?action=del">
<td height="200" valign="top" bgcolor="#FFFFFF"><table width="98%" border="2" align="center" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#CCCCCC">
<tr>
<td align="right" background="images/topbg.gif">按会员级别：
<select name="select" onchange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}" >
<option value="b2b_user.asp" >选择会员等级</option><base target=Right>
<%
sql = "select * from b2b_userjb order by grpID"
set tmpRs=conn.execute(sql)
if not (tmpRs.eof and tmpRs.bof) then
while not tmpRs.eof
%>
<option value="b2b_user.asp?grpid=<%=trim(tmpRs("grpid"))%>"><%=trim(tmpRs("GRPName"))%></option>
<%
tmpRs.movenext
wend
end if
tmpRs.close
set tmpRs=nothing
%>
</select>
</td>
</tr>
</table>
<br>
<%
Const MaxPerPage=20
dim totalPut,CurrentPage,TotalPages,j,sql
if Not isempty(SafeRequest("page",1)) then
currentPage=Cint(SafeRequest("page",1))
else
currentPage=1
end if
dim namekey,checkbox,action,vipuser
action=FormatSQL(SafeRequest("action",0))
checkbox=request.form("checkbox")
namekey=request.form("namekey")
if namekey="" then namekey=FormatSQL(SafeRequest("namekey",0))
if checkbox="" then checkbox=FormatSQL(SafeRequest("checkbox",0))
set rs=server.CreateObject("adodb.recordset")
if namekey="" then
if grpid="" then
tmpSql = "select [user].username,[user].userid,[user].realname,[user].GrpID,[user].score,[user].deposit,[user].UserLogins,[user].adddate,b2b_userjb.GrpName from [user] Inner Join b2b_userjb On [User].GrpID = b2b_userjb.GrpID order by adddate desc"
else
tmpSql = "select [user].username,[user].userid,[user].realname,[user].GrpID,[user].score,[user].deposit,[user].UserLogins,[user].adddate,b2b_userjb.GrpName from [user] Inner Join b2b_userjb On [User].GrpID = b2b_userjb.GrpID where [user].grpid = "&grpid&" order by adddate desc"
end if
rs.open tmpSql,conn,1,1
else
if checkbox=1 then
rs.open "select [user].username,[user].userid,[user].realname,[user].GrpID,[user].score,[user].deposit,[user].UserLogins,[user].adddate,b2b_userjb.GrpName from [user] Inner Join b2b_userjb On [User].GrpID = b2b_userjb.GrpID where username like '%"&namekey&"%' order by adddate desc",conn,1,1
else
rs.open "select [user].username,[user].userid,[user].realname,[user].GrpID,[user].score,[user].deposit,[user].UserLogins,[user].adddate,b2b_userjb.GrpName from [user] Inner Join b2b_userjb On [User].GrpID = b2b_userjb.GrpID where username='"&namekey&"' order by adddate desc",conn,1,1
end if
end if
if err.number<>0 then
response.write "<p align='center'>数据库中暂无相关数据！</p>"
end if
if rs.eof And rs.bof then
Response.Write "<p align='center'> 对不起，没有此用户！</p>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"b2b_user.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"b2b_user.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"b2b_user.asp"
end if
end if
end if
sub showContent
dim i
i=0
%>
<table width="99%" border="2" align="center" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#CCCCCC">
<tr height="20" bgcolor="#F7F7F7">
<td WIDTH="15%" height="25" align="center" background="images/topbg.gif"><strong>用户名</strong></td>
<td WIDTH="11%" height="25" align="center" background="images/topbg.gif"><strong>真实姓名</strong></td>
<td WIDTH="21%" height="25" align="center" background="images/topbg.gif"><strong>注册时间</strong></td>
<td WIDTH="11%" height="25" align="center" background="images/topbg.gif"><strong>会员级别</strong></td>
<td WIDTH="9%" height="25" align="center" background="images/topbg.gif"><strong>积分</strong></td>
<td WIDTH="11%" height="25" align="center" background="images/topbg.gif"><strong>预存款</strong></td>
<td WIDTH="9%" height="25" align="center" background="images/topbg.gif"><strong> 登录次数</strong></td>
<td WIDTH="7%" height="25" align="center" background="images/topbg.gif"><strong>短信</strong></td>
<td WIDTH="6%" height="25" align="center" background="images/topbg.gif"><strong>选 择</strong></td>
</tr>
<%do while not rs.eof
vipuser = rs("GrpName")
%>
<tr align="center" bgcolor="#FFFFFF" height="20">
<td height="25" align="center"><a href=b2b_userinfo.asp?id=<%=rs("userid")%>><%=trim(rs("username"))%></a></td>
<td height="25"><%=trim(rs("realname"))%></td>
<td height="25"><%=rs("adddate")%></td>
<td height="25"><%=vipuser %></td>
<td height="25"><%=rs("score")%></td>
<td height="25"><%=rs("deposit")%></td>
<td height="25"> <%=rs("UserLogins")%>次</td>
<td height="25"><a href="####"><img src="images/pic19.gif" width="18" height="15" border="0" onClick="MM_openBrWindow('addmes.asp?UserID=<%=rs("userid")%>','','width=600,height=500')"></a> </td>
<td height="25"><input name="userid" type="checkbox" id="userid" value="<%=rs("userid")%>" ></td>
</tr>
<%i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop%>
</table>
<br> <br> <div align="center">
<input name="Submit" type="submit" class="input_bot" onClick="return confirm('您确定要这样操作吗？')" value="删除所选用户">
全选 <input type="checkbox" name="checkbox2" value="Check All" onClick="mm()">
</div></td>
</form>
</tr>
</table>
<%
End Sub
Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If
Response.Write "<form method=Post action="&filename&"?checkbox="&checkbox&"&namekey="&namekey&"&grpid="&grpid&">"
Response.Write "<p align='center'> "
If CurrentPage<2 Then
Response.Write "首 页 上一页 "
Else
Response.Write "<a href="&filename&"?page=1&checkbox="&checkbox&"&namekey="&namekey&"&grpid="&grpid&">首 页</a> "
Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&checkbox="&checkbox&"&namekey="&namekey&"&grpid="&grpid&">上一页</a> "
End If
If n-currentpage<1 Then
Response.Write "下一页 末 页"
Else
Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&checkbox="&checkbox&"&namekey="&namekey&"&grpid="&grpid&">"
Response.Write "下一页</a> <a href="&filename&"?page="&n&"&checkbox="&checkbox&"&namekey="&namekey&"&grpid="&grpid&">末 页</a>"
End If
Response.Write " 页次："&CurrentPage&"/"&n&"页 "
Response.Write " 共有"&totalnumber&"名用户 "
Response.Write "转到：<input type='text' name='page' size=2 maxlength=10 class='input_sr' value="¤tpage&">"
Response.Write " <input type='submit' class='input_bot' value='跳转' name='cndok'></form>"
End Function
%> <br>
<table width="99%" border="5" align="center" cellpadding="5" cellspacing="5" bordercolor="#CCCCCC" bgcolor="#FFFFFF">
<tr>
<td height="20" background="images/topbg.gif" bgcolor="#F7F7F7"><span class="STYLE1"><img src="images/pic5.gif" width="28" height="22" align="absmiddle" />您现在所在的位置是： <a href="adminhelp.asp">管理首页</a> -> <span class="style4">会员查询</span></span></td>
</tr>
<tr>
<td height="60" bgcolor="#FFFFFF">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<form name="form2" method="post" action="b2b_user.asp">
<td align="center">按用户名查找: <input name="namekey" type="text" class="input_sr" id="namekey" size="12">
<input name="checkbox" type="checkbox" id="checkbox2" value="1" checked>模糊查询
<input name="Submit2" type="submit" class="input_bot" value="查 询"></td>
</form>
</tr>
</table></td>
</tr>
</table>
<script language=javascript>
function mm()
{
var a = document.getElementsByTagName("input");
if(a[0].checked==true){
for (var i=0; i<a.length; i++)
if (a[i].type == "checkbox") a[i].checked = false;
}
else
{
for (var i=0; i<a.length; i++)
if (a[i].type == "checkbox") a[i].checked = true;
}
}
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -