📄 meber.asp
字号:
<!--#include file="check.asp"-->
<%
dim action
action=request.QueryString("action")
if action="cc" then
set Rs=GrateRs("select * from mobile where number like '"&request.form("sjhm")&"'",3)
if not Rs.eof then
Rs("value")="无效"
Rs.update
end if
Rs.close
Set Rs=nothing
response.write "<script language='JavaScript'>{window.alert('手机："&request.form("sjhm")&"成功注销!');window.location='"&Request.ServerVariables("HTTP_REFERER")&"';}</script>"
response.end
end if
upline=request.QueryString("upline")
Nowpage=cint(request.QueryString("page"))
id=cint(request.QueryString("id"))
call ConnectionDatabase
upline=request("upline")
startdate=request("startdate")
enddate=request("enddate")
state1=request("state1")
aa=request("aa")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>手机会员</title>
<link href="css.css" rel="stylesheet" type="text/css">
<SCRIPT src="ye_datetime.js"></SCRIPT>
<style type="text/css">
<!--
.style4 {font-weight: bold}
.unnamed1 {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
background-color: #E3E2C3;
border: 1px solid #333333;
}
-->
</style>
</head>
<body>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" class="tablegg">
<tr>
<td><table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#F1F1F1">
<tr bgcolor="#E3E2C3">
<td height="23" bgcolor="#E3E2C3"><div align="center" class="style4"><strong>定制详单管理</strong></div></td>
</tr>
<tr>
<td valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#EDEDE1">
<td height="26" colspan="8"><span class="forumRow"> <strong> : : <span class="style4"><strong>定制详单</strong></span> : : </strong><%if upline<>"" then response.write("服务ID : "&upline)%></span></td>
</tr>
<form name="form1" method="get" action="meber.asp"><tr bgcolor="#E3E2C3">
<td height="30" colspan="8" align="center">站长ID
<input name="upline" type="text" class="inputbox" id="upline" size="10"><input name="action" type="hidden" value="search">
开始时间
<input name="startdate" type="text" class="inputbox" id="startdate" size="10" value="<%=startdate%>" onClick="showCal(this);" readonly>
结束时间
<input name="enddate" type="text" class="inputbox" id="enddate" value="<%=enddate%>" size="10" onClick="showCal(this);" readonly>
状态
<select name="state1" class="inputbox" id="state1">
<option value="" selected<%if state1="" then response.write(" selected")%>>全部</option>
<option value="0"<%if state1="0" then response.write(" selected")%>>未结</option>
<option value="1"<%if state1="1" then response.write(" selected")%>>已结</option>
<option value="2"<%if state1="2" then response.write(" selected")%>>重复</option>
<option value="3">扣除</option>
</select>
有无效
<select name="aa" class="inputbox" id="aa">
<option value=""<%if aa="" then response.write(" selected")%>>全部</option>
<option value="有效"<%if aa="有效" then response.write(" selected")%>>有效</option>
<option value="无效"<%if aa="无效" then response.write(" selected")%>>无效</option>
</select>
<input name="Submit" type="submit" class="inputbutton" value="立即查询">
</td>
</tr></form>
<tr bgcolor="#FFFFFF">
<td width="16%" height="20" align="center">手机号</td>
<td width="14%" height="20" align="center">注册时间</td>
<td width="13%" height="20" align="center"><span class="pt12">到期时间</span></td>
<td width="14%" height="20" align="center">服务ID</td>
<td width="11%" height="20" align="center">密码</td>
<td width="10%" height="20" align="center">状态</td>
<td width="11%" height="20" align="center">是否有效</td>
<td width="11%" height="20" align="center">操作</td>
</tr>
<%
if enddate="" then enddate=date()
searchstr=""
if upline<>"" then searchstr="upline='"&upline&"'"
if isdate(startdate) then
if not searchstr="" then searchstr=searchstr+" and "
searchstr=searchstr+"regdate >= #"&startdate&"#"
end if
if isdate(enddate) then
if not searchstr="" then searchstr=searchstr+" and "
searchstr=searchstr+"regdate <= #"&enddate&"#"
end if
if state1<>"" then
if not searchstr="" then searchstr=searchstr+" and "
searchstr=searchstr+"state="&state1
end if
if aa<>"" then
if not searchstr="" then searchstr=searchstr+" and "
searchstr=searchstr+"value='"&aa&"'"
end if
if not searchstr="" then searchstr=" where "+searchstr
if request("action")="search" then
set Rs=GrateRs("select * from mobile"&searchstr&" order by id desc",1)
else
set Rs=GrateRs("select * from mobile order by id desc",1)
end if
Rs.PageSize=60
if not Rs.eof then
If Nowpage=0 then Nowpage=1
Rs.AbsolutePage=Nowpage
i=1
if int(i/2)=i/2 then
thecolor="#E4FBFE"
else
thecolor="#F1F1F1"
end if
do while not Rs.eof and i<=Rs.pagesize
%>
<tr align="center" bgcolor="<%=thecolor%>">
<td height="18"> <%if Rs("state")=3 then response.write("<font color=red>")%><%=Rs("number")%></td>
<td height="18"><%=Rs("regDate")&" "&Rs("regtime")%></td>
<td height="18"><%=Rs("chkDate")%></td>
<td height="18"><%=Rs("upline")%></td>
<td height="18"><%=Rs("password")%></td>
<td height="18">
<%select case Rs("state")
case 1
response.write("已结")
case 2
response.write("重复")
case 3
response.write("扣除")
case else
response.write("未结")
end select
%></td>
<td height="18"><%=Rs("value")%></td>
<td height="18"><a href="#" onClick="window.alert('注册IP为:<%=Rs("ip")%>')">来源</a> / <a href="meber.asp?action=delete&id=<%=Rs("id")%>">删除</a></td>
</tr>
<%
i=i+1
Rs.movenext
loop
%>
<tr align="left" bgcolor="#EDEDE1">
<td height="26" colspan="8"> <strong>翻页: :</strong>
<%
myurl="meber.asp?action=search&upline="&upline&"&startdate="&startdate&"&enddate="&enddate&"&aa="&aa&"&state1="&state1&"&"
response.write("共："&Rs.recordcount&"条记录，共:"&Rs.PageCount&"页,"&Rs.PageSize&"条/页,第"&NowPage&"页 ")
response.write("<a href='"&myurl&"page=1'>"&"第一页</a> ")
if NowPage>1 then response.write("<a href='"&myurl&"page="&Nowpage-1&"'>前一页</a> ")
if NowPage<Rs.PageCount then response.write("<a href='"&myurl&"page="&Nowpage+1&"'>后一页</a> ")
response.write("<a href='"&myurl&"page="&Rs.PageCount&"'>最后页</a> ")
%>
</td>
</tr>
<%else%>
<tr align="center" bgcolor="#EDEDE1">
<td height="26" colspan="8">对不起,该服务ID还没有注册手机会员!</td>
</tr>
<%end if%>
<form name="form1" method="post" action="meber.asp?action=cc">
<tr bgcolor="#E3E2C3">
<td height="30" colspan="8" align="center">我要注销一个手机号：
<input name="sjhm" type="text" class="inputbox">
<input name="Submit" type="submit" class="inputbutton" value="提交"></td>
</tr>
</form>
</table>
</td>
</tr>
<tr align="center" bgcolor="#EDEDE1">
<td height="35" align="right"> <span class="style1">Copyright 2003 - 2005 IFBEST Inc. AllRights Reserved Design By <a href="http://www.258sp.com" target="_blank">258sp商务平台</a></span> </td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<%
call DBConnEnd
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -