📄 user.asp
字号:
<%dbdns="../"%>
<!--#include file="../inc/conn.asp"-->
<!--#include file="cook.asp"-->
<%cha=request("cha")
if request("Submit")="删 除" then
SQL = "delete FROM es_smsuser where es_id in("&request("id")&")"
msg="删除成功"
elseif request("Submit")="开通" then
SQL = "update es_smsuser set es_type=0 where es_id in("&request("id")&")"
msg="开通成功"
elseif request("submit")="关闭" Then
SQL = "update es_smsuser set es_type=1 where es_id in("&request("id")&")"
msg="关闭成功"
End if
if request("submit")="删 除" or request("submit")="开通" or request("submit")="关闭" then
Set RS=Server.CreateObject("Adodb.Recordset")
rs.open SQL,conn,1,3
response.write "<Script language=javascript>alert('"&msg&"');location='user.asp'</script>"
rs.close
set rs=nothing
end if
%>
<%
if request("action")="key" then
key_1=request("key_1")
select case key_1
case "0"
conn.execute("update es_smsuser set es_type=0 where es_id="&request("id"))
response.write "<Script language=javascript>alert('开通成功');location='user.asp'</script>"
case "1"
conn.execute("update es_smsuser set es_type=1 where es_id="&request("id"))
response.write "<Script language=javascript>alert('锁定成功');location='user.asp'</script>"
end select
end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312">
<script>
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>
<script>
function oa_tool1(){
window.parent.mm.rows="200,10,*";
}
</script>
<%=citycss%>
<body style="margin:5">
<table width="99%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#cccccc" bordercolordark="#FFFFFF">
<form name="form1" method="post" action="user.asp">
<tr align=center bgcolor=#efefef><td height=25 align=center>用户名<input type="text" name="user"> 电话号码<input type="text" name="phone"> <input type="submit" name="Submit" value="搜索"> </td></tr>
</form>
</table>
<table width="763" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#cccccc" bordercolordark="#FFFFFF">
<form name="from1" method="post" action="user.asp?word=<%=request("word")%>&vip=<%=request("vip")%>&cha=<%=request("cha")%>&chag=<%=request("chag")%>&key1=<%=request("key1")%>&key2=<%=request("key2")%>">
<tr align=center bgcolor=#efefef>
<%if request("user")<>"" then
sql= "select * from es_smsuser where es_user like'%"&request("user")&"%' order by es_id desc"
elseif request("phone")<>"" then
sql= "select * from es_smsuser where es_phone like'%"&request("phone")&"%' order by es_id desc"
else
sql="select * from es_smsuser order by es_id desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "暂无内容"
else
'分页的实现
listnum=100
Rs.pagesize=listnum
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
'编号的实现
j=rs.recordcount
j=j-(page-1)*listnum
i=0
nn=request("page")
if nn="" then
n=0
else
nn=nn-1
n=listnum*nn
end if%>
<td width="28" height=22>编号</td>
<td width="151">用户名称</td>
<td width="40">冲值</td>
<td width="47">余额</td>
<td width="87">身份</td>
<td width="102">
<p align="left">手机号码</td>
<td width="143">开始时间</td>
<td width="28">操作</td>
<td width="48">管理</td>
<td width="28">选择</td>
</tr>
<%do while not rs.eof and i<listnum
n=n+1
ksdate=cdate(year(rs("es_date"))&"-"&month(rs("es_date"))&"-"&day(rs("es_date")))
tian=ktdate-date()
ztian=ktdate-ksdate
page=request("page")
if page="" then page=1
%>
<tr align=center height=22>
<td><%=n%></td>
<td align=left width="151"> <a href="log.asp?word=<%=rs("es_id")%>"><%=rs("es_user")%></a></td>
<td align=left width="40"><input class=input type=button name=edit value=冲值 onClick="javascript:window.open('pay.asp?id=<%=rs("es_id")%>','_n','width=400,height=280')"></td>
<td align=left width="47"><font color="#FF0000"><%=rs("es_pay")%></font></td>
<td width="87"><%if rs("es_dl")=0 then%>普通用户<%elseif rs("es_dl")=1 then%><font color=blue>普通代理</font><%elseif rs("es_dl")=2 then%><font color=red>高级代理</font><%end if%></td>
<%goname=rs("SMT_user")
goid=rs("SMT_id")%>
<td width="102" align="left"><%=rs("es_phone")%></td>
<td><%=ksdate%></td>
<td><a href=lx.asp?id=<%=rs("es_id")%> onclick="oa_tool1()" target=top>操作</a></td>
<td><%if rs("es_type")=0 then%><a href=user.asp?id=<%=rs("es_id")%>&action=key&key_1=1>开通</a>
<%else%>
<a href=user.asp?id=<%=rs("es_id")%>&action=key&key_1=0><font color=red>锁定</font></a><%end if%></td>
<td><input type="checkbox" name="ID" value="<%=rs("es_id")%>" style="border:0"></td>
</tr>
<%rs.movenext
i=i+1
j=j-1
loop%>
<tr>
<%filename="user.asp?word="&request("word")&"&vip="&request("vip")&"&cha="&request("cha")&"&chag="&request("chag")&"&key1="&request("key1")&"&key2="&request("key2")&""%>
<td colspan=10 height=20 align=right bgcolor=#cccccc><%=Rs.recordcount%> 个会员 <%=listnum%> 个会员/页 共 <%=Rs.pagecount%> 页
<% if page=1 then %>
<%else%>
<a href=<%=filename%>><strong>|<<</strong></a>
<a href=<%=filename%>&page=<%=page-1%>><strong><<</strong></a>
<a href=<%=filename%>&page=<%=page-1%>><b>[<%=page-1%>]</b></a>
<%end if%><% if Rs.pagecount=1 then %><%else%><b>[<%=page%>]</b><%end if%>
<% if Rs.pagecount-page <> 0 then %>
<a href=<%=filename%>&page=<%=page+1%>><b>[<%=page+1%>]</b></a>
<a href=<%=filename%>&page=<%=page+1%>><strong>>></strong></a>
<a href=<%=filename%>&page=<%=Rs.pagecount%>><strong>>>|</strong></a>
<%end if%> <input name="chkall" type="checkbox" id="chkall" value="select" onclick="CheckAll(this.form)" style="border:0">全选 <input type="submit" name="Submit" value="开通"> <input type="submit" name="Submit" value="关闭"> <input type="submit" name="Submit" value="删 除"> </td>
<%end if%></tr>
</form>
</table>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -