📄 user2.asp

📁 这是一个很漂亮的网站购物系统
💻 ASP
字号:
<!--#include file="../include/buyok_shop_30_conn.asp"-->
<!--#include file="checkadmin.asp"-->
<script language=javascript src=../include/mouse_on_title.js></script>
<%call checkmanage("05")%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="manage.css" type="text/css">
</head>
<BODY background="../images/admin/back.gif">
<%
action=request("action")
if action="" then
%>
<table width="98%" border="1"  style="border-collapse: collapse; border-style: dotted; border-width: 0px"  bordercolor="#333333" cellspacing="0" cellpadding="2">
<form name=search action=user2.asp method=post>
<tr><td colspan=2 class=td height=18>搜索会员</td></tr>
<tr><td width=20% align=center>根据会员级别</td><td>
<%	response.write "<select name='usertype'>"
	response.write	"<option value='' selected>选择要搜索的会员级别</option>"
	if type1<>"" then response.write "<option value='1'>"&type1&"</option>"
	if type2<>"" then response.write "<option value='2'>"&type2&"</option>"
	if type3<>"" then response.write "<option value='3'>"&type3&"</option>"
	if type4<>"" then response.write "<option value='4'>"&type4&"</option>"
	if type5<>"" then response.write "<option value='5'>"&type5&"</option>"
	if type6<>"" then response.write "<option value='6'>"&type6&"</option>"
%>
</td></tr>
<tr><td width=20% align=center> 根据会员注册ID
</td><td><input type=text name=userid size=25 maxlength=20></td></tr>
<td width=20% align=center>根据会员姓名
</td><td><input type=text name=username size=25 maxlength=20></td></tr>
<td width=20% align=center>根据会员电子邮箱
</td><td><input type=text name=usermail size=25 maxlength=100></td></tr>
<td width=20% align=center>根据会员联系电话
</td><td><input type=text name=HomePhone size=25 maxlength=20></td></tr>
<td width=20% align=center>根据会员联系地址
</td><td><input type=text name=address size=25 maxlength=100></td></tr>
<td width=20% align=center>根据会员邮政编码
</td><td><input type=text name=ZipCode size=25 maxlength=8></td></tr>
<td width=20% align=center>根据会员QQ号码
</td><td><input type=text name=userqq size=25 maxlength=9></td></tr>
<td width=20% align=center>根据会员注册时间
</td><td><input type="radio" name="SignDate" value="1">今天 &nbsp; <input type="radio" name="SignDate" value="2">昨天 &nbsp; <input type="radio" name="SignDate" value="7">一周内 &nbsp; <input type="radio" name="SignDate" value="30">一月内 &nbsp; <input type="radio" name="SignDate" value="">全部 &nbsp; </td></tr>
<td width=20% align=center>根据会员登陆次数
</td><td><input type=text name=TotalLogin1 size=4 maxlength=3>次至<input type=text name=TotalLogin2 size=4 maxlength=3>次</td></tr>
<td width=20% align=center>根据会员IP上次登陆IP
</td><td><input type=text name=IP size=25 maxlength=15></td></tr>
<td width=20% align=center>根据会员状态
</td><td><input type="radio" name="Status" value="1">正常 <input type="radio" name="Status" value="0">锁定/审核中</td></tr>
<tr><td colspan=2><INPUT name="action" TYPE="hidden" value="ok"><INPUT name=action TYPE="submit" value="开始搜索"></td></tr>
</table>
<br>※提示：支持模糊搜索，可根据一个或多个条件进行搜索，非搜索条件可空出。
<%
else
if trim(request("TotalLogin1"))<>"" then
  if not isNumeric(trim(request("TotalLogin1"))) then
	response.write "<script language='javascript'>"
	response.write "alert('出错了，登陆次数必须是数字！');"
	response.write "location.href='javascript:history.go(-1)';"
	response.write "</script>"
	response.end
  end if
end if
if trim(request("TotalLogin2"))<>"" then
  if not isNumeric(trim(request("TotalLogin2"))) then
	response.write "<script language='javascript'>"
	response.write "alert('出错了，登陆次数必须是数字！');"
	response.write "location.href='javascript:history.go(-1)';"
	response.write "</script>"
	response.end
  end if
end if
	usersql=""
	if request("usertype")<>"" then usersql=usersql+" and UserType='"&request("usertype")&"'"
	if trim(request("userID"))<>"" then usersql=usersql+" and userid like '%"&trim(request("userid"))&"%'"
	if trim(request("username"))<>"" then usersql=usersql+" and username like '%"&trim(request("username"))&"%'"
	if trim(request("userqq"))<>"" then usersql=usersql+" and userqq like '%"&trim(request("userqq"))&"%'"
	if trim(request("usermail"))<>"" then usersql=usersql+" and usermail like '%"&trim(request("usermail"))&"%'"
	if trim(request("address"))<>"" then usersql=usersql+" and address like '%"&trim(request("address"))&"%'"
	if trim(request("HomePhone"))<>"" then usersql=usersql+" and HomePhone like '%"&trim(request("HomePhone"))&"%'"
	if trim(request("ZipCode"))<>"" then usersql=usersql+" and ZipCode like '%"&trim(request("ZipCode"))&"%'"
	if trim(request("ip"))<>"" then usersql=usersql+" and ip like '%"&trim(request("ip"))&"%'"
	if request("SignDate")="1" then  usersql=usersql+" and SignDate >= #"&date()&"#"
	if request("SignDate")="2" then  usersql=usersql+" and SignDate >= #"&date()-1&"# and SignDate < #"&date()&"#"
	if request("SignDate")="7" then  usersql=usersql+" and SignDate >= #"&date()-7&"#"
	if request("SignDate")="30" then  usersql=usersql+" and SignDate >= #"&date()-30&"#"
	if trim(request("TotalLogin1"))<>"" then  usersql=usersql+" and totallogin >= "& trim(request("TotalLogin1"))
	if trim(request("TotalLogin2"))<>"" then  usersql=usersql+" and totallogin <= "& trim(request("TotalLogin2"))
	if request("Status")<>"" then usersql=usersql+" and Status='"&request("Status")&"'"

response.cookies("buyok")("usersql")=usersql
if usersql="" then
Response.Redirect("user2.asp")
else
Response.Redirect("user1.asp")
end if

end if
%>

</body>
</html>
⌨️ 快捷键说明

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