📄 user_check.asp
字号:
<!--#include file="conn.asp"--><!--#include file="Check.asp"-->
<html>
<head>
<title>无标题文档</title>
<STYLE>BODY {
FONT-SIZE: 9pt
}
TD {
FONT-SIZE: 9pt
}
</STYLE>
<script language="javascript">
function confirmdel(id,page){
if (confirm("你砍认要删除这个会员吗?"))
window.location.href="del_user.asp?id="+id+"&page="+page
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body background="../pic/user/bg.jpg" topmargin="10">
<%
dim page,search
page=request("page")
PageSize = 13
search=request("search")
set rs=server.createobject("adodb.recordset")
sqltext="select * from RegUser where Name like '%"&search&"%' order by id desc"
rs.open sqltext,conn,1,1
rs.PageSize=PageSize
totalfilm=rs.recordcount
pgnum=rs.Pagecount
if page="" or clng(page)<1 then page=1
if clng(page) > pgnum then page=pgnum
if pgnum>0 then rs.AbsolutePage=page
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="2">
<tr bgcolor="#00CCFF" class=main1>
<td height="20" align="center"><font color="#FFFFFF">会员帐号</font></td>
<td height="20" align="center"><font color="#FFFFFF">会员姓名</font></td>
<td height="20" align="center"><font color="#FFFFFF">电子信箱</font></td>
<td height="20" align="center" bgcolor="#00CCFF"><font color="#FFFFFF">联系电话</font></td>
<td align="center"><font color="#FFFFFF">发出订单</font></td>
<td align="center"><font color="#FFFFFF">登录次数</font></td>
<td height="20" align="center"><font color="#FFFFFF">操作</font></td>
<td height="20" align="center"><font color="#FFFFFF">删除</font></td>
</tr>
<%
If rs.eof and rs.bof then
response.write "<tr bgcolor=#E8E8E8 class=main1><td height=20 colspan=8 align=center>还 没 有 会 员 注 册</td></tr>"
else
count=0
do while not (rs.eof or rs.bof) and count<rs.PageSize
%>
<tr bgcolor="#E8E8E8" class=main1>
<td height="26" align="center"><%=rs("UserId")%></td>
<td height="26" align="center"><%=rs("Name")%></td>
<td height="26" align="center" bgcolor="#E8E8E8"><%=rs("Email")%></td>
<td height="26" align="center"><%=rs("Phone")%></td>
<%
set F_rs=server.createobject("adodb.recordset")
sql="select User_Id from OrderList where User_Id='" &rs("UserId")& "'"
F_rs.open sql,conn,1,1
my_form =F_rs.recordcount
F_rs.close
%>
<td align="center" bgcolor="#E8E8E8"><%=my_form%><font color="#666666">(张)</font></td>
<td align="center"><%=rs("look_count")%><font color="#666666">(次)</font></td>
<td height="26" align="center">
<%response.write "<a href='user_detail.asp?ID="&rs("Id")&"&page="&CurrentPage&"' ><font color=#0000FF>详细资料</font></a>"
%>
</td>
<td height="26" align="center">
<%response.write "<a href='javascript:confirmdel(" & rs("Id") & ","& Page&")'><font color=#0000FF>DEL</font></a>"
%>
</td>
</tr>
<%
rs.movenext
count=count+1
loop
end if
%>
</table>
</font>
</td> </tr> </table> </td></tr> </table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="2">
<form method="post" action="" name="form1" >
<tr bgcolor="#00CCFF">
<td height="22" align="center"> [<b><%=rs.pagecount%></b>/<%=page%>页] [共<%=totalfilm%>个]
<%if page=1 then%>
[首 页] [上一页]
<% else %>
[<a href="?page=1">首 页</a>] [<a href="?page=<%=page-1%>">上一页</a>]
<%end if%>
<%if rs.pagecount-page<1 then%>
[下一页] [尾 页]
<%else%>
[<a href="?page=<%=page+1%>">下一页</a>] [<a href="?page=<%=rs.pagecount%>">尾
页</a>]
<%end if%>
姓名:
<input name="search" type="text" size="15"> <input type="submit" name="Submit" value="查询">
</td>
</tr>
</form>
</table>
<%
rs.close
conn.close
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -