📄 admin_userlist.asp
字号:
<!--#include file="../Conn.asp"-->
<!--#include file="../Include/Md6.asp"-->
<%
If Session("AdminUserName") = "" Then
Response.Write "<script>window.open('Login.asp','_parent');</script>"
Response.End
End If
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<script>alert('警告！你正在从外部提交数据！！请立即终止！！');location.href='../index.htm';</script>"
Response.End
end If
action=Request("action")
id=SafeStr(Request.QueryString("id"))
password=SafeStr(Request.Form("newpin"))
bz=SafeStr(Request.Form("bz"))
senhe=SafeStr(Request.Form("senhe"))
ot=SafeStr(Request.Form("ot")) & " " & time()
ct=SafeStr(Request.Form("ct")) & " " & time()
If Not IsNumeric(Id) Or Id = "" Then
Id = 0
End If
If action = "save" Then
If PassWord <> "" Then
Call RegStr("^\s*[.A-Za-z0-9]{6,20}\s*$",password,"密码必须是数字或字母，长度为6-20个字符！")
End If
If Not (IsDate(ot) Or IsDate(ct)) Then
Response.Write "<script>alert('请正确选择开通日期和到期日期!');history.go(-1);</script>"
Response.End
End If
Set Rs = Server.CreateObject("Adodb.Recordset")
Rs.Open "Select * From [User] Where Id=" & id,Conn,1,3
If PassWord <> "" Then
Rs("PassWord") = Md6(PassWord)
End If
Rs("Content") = bz
If senhe = "0" Then
Rs("State") = False
Else
Rs("State") = True
End If
Rs("StartTime") = ot
Rs("EndTime") = ct
Rs.Update
Rs.Close
Set Rs = Nothing
Response.Write "<script>alert('修改成功!');parent.document.getElementById('contents').src='admin_left.asp';</script>"
End If
Set Rs = Conn.Execute("Select * From [User] Where Id=" & id)
If Not (Rs.Eof Or Rs.Bof) Then
UserName = Rs("UserName")
bz = Rs("Content")
quyu = Rs("Class")
senhe = Rs("State")
ot = Rs("StartTime")
ct = Rs("EndTime")
End If
Set Rs = Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Name%>—添加用户</title>
<link href="../images/text.css" rel="stylesheet" type="text/css">
<SCRIPT src="setday.js"></SCRIPT>
</head>
<body leftmargin="0" topmargin="0">
<table width="100%" height="32" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" background="../images/bj3.jpg">添加用户</td>
</tr>
<tr>
<td></td>
</tr>
</table> <form name="form1" method="post" action="admin_userlist.asp?action=save&id=<%=id%>">
<table width="49%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#C1DFFF">
<tr>
<td colspan="2" bgcolor="#FFFFFF">
<table width="80%" cellpadding="5">
<tr>
<td bgcolor="#E6F2FF"><b> 设置会员名和密码</b></td>
</tr>
</table></td>
</tr>
<tr>
<td width="17%" align="right" bgcolor="#FFFFFF">用 户 名</td>
<td width="83%" bgcolor="#FFFFFF"><%=UserName%></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF">登录密码</td>
<td bgcolor="#FFFFFF"><INPUT name=newpin type=password class=inp1 maxlength="12">
<font class=p8>(密码可使用英文、数字，长度为6-20个字符)</font></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF">备 注</td>
<td bgcolor="#FFFFFF"><INPUT name=bz type=text class=inp1 id="bz" maxlength="50" value="<%=Server.HtmlEnCode(bz)%>"></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF">所属区域</td>
<td bgcolor="#FFFFFF"><%=quyu%></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF">用户状态</td>
<td bgcolor="#FFFFFF"><select name="senhe" id="senhe">
<option value="0">正常</option>
<option value="1" <%If senhe = True Then Response.Write "Selected"%>>锁定</option>
</select></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF">开通日期</td>
<td bgcolor="#FFFFFF"><input name="ot" class="inp3" onClick="setday(this)" value="<%=ot%>" size="45" runat="server"></td>
</tr>
<tr>
<td align="right" bgcolor="#FFFFFF">到期日期</td>
<td bgcolor="#FFFFFF"><input name="ct" class="inp3" onClick="setday(this)" value="<%=ct%>" size="45" runat="server"></td>
</tr>
</table>
<p align="center"><input class=btn type="submit" name="submit" value=" 提 交 信 息 "></p>
</form></body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -