📄 admin_daili.asp
字号:
</table> </td>
</form> </tr></table><table align='center'><tr>
<td>
<%if page-1>0 then %>
<a href=?Page=<%=page-1%>&usergroup=<%=request("usergroup")%>&Keyword=<%=request("Keyword") %>>上一页</a>
<% else
response.Write("上一页")
end if
%>
<%if page+1=< pgnum then %>
<a href=?Page=<%=page+1%>&usergroup=<%=request("usergroup")%>&Keyword=<%=request("Keyword") %>>下一页</a>
<% else
response.Write("下一页")
end if%></a>
转到
<select name=userlist id="userlist" onChange="window.location.href=this.options[this.selectedIndex].value">
<%for i=1 to rs.pagecount %>
<option value="?Page=<%=i%>&usergroup=<%=request("usergroup")%>&Keyword=<%=request("Keyword") %>" <%if cint(request("page")) =i then response.write "selected" %>><%= i %></option>
<% next %>
</select>
页
</td>
</tr></table>
<form name='search_request' method='get' action=''>
<table width='100%' border='0' cellspacing='1' cellpadding='2' class='border'>
<tr class='tdbg'>
<td width='199'><strong>代理商用户高级查询:</strong></td>
<td width='553'> <input name='Search' type='text' id="Search" size='20' maxlength='30'>
若为空，则查询所有用户
<input type='submit' name='Submit2' value=' 查 询 '> </td>
</tr>
</table>
</form>
<%end sub
sub UpdateUser()
strHTML="<br></br><form name='myform' action='Admin_User.asp' method='post'>"
strHTML=strHTML & "<table width='100%' border='0' cellspacing='1' cellpadding='2' class='border'>"
strHTML=strHTML & " <tr align='center' class='title'>"
strHTML=strHTML & " <td height='22' colspan='2'><strong>更 新 用 户 数 据</strong></td>"
strHTML=strHTML & " </tr>"
strHTML=strHTML & " <tr class='tdbg'>"
strHTML=strHTML & " <td colspan='2'><p>说明：<br>"
strHTML=strHTML & " 1、本操作将重新计算扣点的电影用户的观看记录。<br>"
strHTML=strHTML & " 2、本操作可能将非常消耗服务器资源，而且更新时间很长，请仔细确认每一步操作后执行。</p>"
strHTML=strHTML & " </td>"
strHTML=strHTML & " </tr>"
strHTML=strHTML & " <tr class='tdbg'>"
strHTML=strHTML & " <td height='25'>开始用户ID：</td>"
strHTML=strHTML & " <td height='25'><input name='BeginID' type='text' id='BeginID' value='1' size='10' maxlength='10'>"
strHTML=strHTML & " 用户ID，可以填写您想从哪一个ID号开始进行修复</td>"
strHTML=strHTML & " </tr>"
strHTML=strHTML & " <tr class='tdbg'>"
strHTML=strHTML & " <td height='25'>结束用户ID：</td>"
strHTML=strHTML & " <td height='25'><input name='EndID' type='text' id='EndID' value='1000' size='10' maxlength='10'>"
strHTML=strHTML & " 将更新开始到结束ID之间的用户数据，之间的数值最好不要选择过大</td>"
strHTML=strHTML & " </tr>"
strHTML=strHTML & " <tr class='tdbg'>"
strHTML=strHTML & " <td height='25'> </td>"
strHTML=strHTML & " <td height='25'><input name='Submit' type='submit' id='Submit' value='更新用户数据'> <input name='Action' type='hidden' id='Action' value='DoUpdate'></td>"
strHTML=strHTML & " </tr>"
strHTML=strHTML & "</table>"
strHTML=strHTML & "</form>"
response.write strHTML
end sub
sub userinfo()
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select * from daili where id="&request("id")
rs.Open sql,Conn,1,3
%>
<form name='myform' action='?action=saveuserinfo&id=<% =request("id") %>' method='post'>
<table width='100%' border='0' cellspacing='1' cellpadding='2' class='border'>
<tr class='title'>
<td height=22 colspan=2 align='center'> <b>修改注册用户信息</b></td>
</tr>
<tr class='tdbg'>
<td width='37%'><div align="right"><strong>代理帐户：</strong></div></td>
<td width='63%'><%= rs("name") %> </td>
</tr>
<tr class='tdbg'>
<td><div align="right"><strong>注册日期：</strong></div></td>
<td><%= rs("RegDate") %> </td>
</tr>
<tr class='tdbg'>
<td><div align="right"><strong>最后一次登陆IP</strong></div></td>
<td><%= rs("LoginIP") %></td>
</tr>
<tr class='tdbg'>
<td width='37%'><div align="right"><strong>登陆次数</strong></div></td>
<td width='63%'> <%= rs("LoginTimes") %> </td>
</tr>
<tr class='tdbg'>
<td height="26"> <div align="right"><strong>代理状态：</strong></div></td>
<td> <input name='State' type='radio' value='false' <% if rs("state")=false then response.Write("checked ") %>>
关闭代理资格
<input type='radio' name='State' value='true' <% if rs("State")=true then response.Write("checked ") %>>
开启代理资格 </td>
</tr>
<tr class='tdbg'>
<td><div align="right"><strong>姓名：</strong></div></td>
<td><input name='realName' type='text' id="Name3" value="<%=rs("realName")%>" size='30'>
</td>
</tr>
<tr class='tdbg'>
<td><div align="right"><strong>登陆密码：</strong></div></td>
<td><input name='Password' type='text' id="Password" size='30'>
空即位不修改密码 </td>
</tr>
<tr class='tdbg'>
<td><div align="right"><strong>剩余金额：</strong></div></td>
<td><input name='Money' type='text' id="Money" value="<%=rs("Money")%>" size='30' maxlength='30'></td>
</tr>
<tr class='tdbg'>
<td><div align="right"><strong>QQ：</strong></div></td>
<td> <input name='QQ' type='text' id="QQ" value="<%=rs("QQ")%>" size='30' maxlength='30'></td>
</tr>
<tr class='tdbg'>
<td><div align="right"><strong>电话：</strong></div></td>
<td> <input name='phone' type='text' id="phone" value="<%=rs("Phone")%>" size='30' maxlength='30'></td>
</tr>
<tr class='tdbg'>
<td><div align="right"><strong>区域：</strong></div></td>
<td><input name='address' type='text' id="address" value="<%=rs("address")%>" size='30' maxlength='30'></td>
</tr>
<tr class='tdbg'>
<td width='37%'><div align="right"><strong>联系方式</strong></div></td>
<td width='63%'><textarea name="Connect" cols="30" id="Connect"><%= rs("Connect") %></textarea></td>
</tr>
<tr class='tdbg'>
<td height='40' colspan='2' align='center'> <input name=Submit3 type=submit id='Submit2' value='保存修改结果'>
</td>
</tr>
</table>
</form>
<p> </p>
<%
response.End()
end sub
sub add()
%>
<br>
<form name="form2" method="post" action="?action=saveadd">
<table width='100%' border='0' cellspacing='1' cellpadding='2' class='border'>
<tr class='title'>
<td height=22 colspan=2 align='center'><b>添 加 代 理 信 息</b></td>
</tr>
<tr class='tdbg'>
<td><div align="right"><strong>代理帐户：</strong></div></td>
<td><input name='Name' type='text' id="Name3" size='30'> </td>
</tr>
<tr class='tdbg'>
<td width='37%'><div align="right"><strong>姓名：</strong></div></td>
<td width='63%'><input name='realName' type='text' id="Name3" size='30'> </td>
</tr>
<tr class='tdbg'>
<td><div align="right"><strong>登陆密码：</strong></div></td>
<td><input name='Password' type='text' id="Password" size='30'> </td>
</tr>
<tr class='tdbg'>
<td><div align="right"><strong>帐户金额：</strong></div></td>
<td><input name='Money' type='text' id="Money3" value="10" size='30'></td>
</tr>
<tr class='tdbg'>
<td><div align="right"><strong>区域：</strong></div></td>
<td><input name='address' type='text' id="address" size='30' maxlength='30'></td>
</tr>
<tr class='tdbg'>
<td><div align="right"><strong>QQ：</strong></div></td>
<td> <input name='QQ' type='text' id="QQ" size='30' maxlength='30'></td>
</tr>
<tr class='tdbg'>
<td><div align="right"><strong>电话：</strong></div></td>
<td> <input name='phone' type='text' id="phone" size='30' maxlength='30'></td>
</tr>
<tr class='tdbg'>
<td><div align="right"><strong>代理状态：</strong></div></td>
<td> <input name='State' type='radio' value='false' >
关闭代理资格
<input name='State' type='radio' value='true' checked>
开启代理资格 </td>
</tr>
<tr class='tdbg'>
<td width='37%'><div align="right"><strong>联系方式</strong></div></td>
<td width='63%'><textarea name="Connect" cols="30" id="Connect"></textarea></td>
</tr>
<tr class='tdbg'>
<td height='40' colspan='2' align='center'> <input name=Submit32 type=submit id='Submit32' value='保存修改结果'>
</td>
</tr>
</table>
</form>
<p> </p>
<%end sub%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -