admin_user.asp

来自「这是一套基于WEB的网站管理系统」· ASP 代码 · 共 730 行 · 第 1/2 页

ASP
730 行
字号
12
<%
End Sub

Private Sub EditUser()
	Call PageTop
	If Trim(Request("userid")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>请输入正确的用户ID！</li>"
		Exit Sub
	End If
	SQL = "select * from NC_user where userid=" & Request("userid")
	Set Rs = Newasp.Execute(SQL)
	If Rs.bof And Rs.EOF Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>Sorry！没有找到任何会员。或者您选择了错误的系统参数!</li>"
		Exit Sub
	End If
%>
<table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder>
<tr>
	<th colspan=4>查看/修改会员资料</th>
</tr>
<form name=myform method=post action=?action=modify>
<input type=hidden name=userid value='<%=Rs("userid")%>'>
<tr>
	<td width='10%' class=tablerow1>会员名称</td>
	<td width='40%' class=tablerow1><input type=text name=username size=20 value='<%=Rs("username")%>' disabled></td>
	<td width='10%' class=tablerow1>真实姓名</td>
	<td width='40%' class=tablerow1><input type=text name=TrueName size=20 value='<%=Rs("TrueName")%>'></td>
</tr>
<tr>
	<td class=tablerow2>用户密码</td>
	<td class=tablerow2><input type=password name=password size=20> <font color=blue>如果不修改密码请留空</font></td>
	<td class=tablerow2>用户邮箱</td>
	<td class=tablerow2><input type=text name=usermail size=30 value='<%=Rs("usermail")%>'></td>
</tr>
<tr>
	<td class=tablerow1>交易密码</td>
	<td class=tablerow1><input type=text name=BuyCode size=20> <font color=blue>如果不修改密码请留空</font></td>
	<td class=tablerow1>用户状态</td>
	<td class=tablerow1>
	<input type=radio name=UserLock value='0'<%If Rs("UserLock") = 0 Then Response.Write " checked"%>> 激活&nbsp;&nbsp;
	<input type=radio name=UserLock value='1'<%If Rs("UserLock") <> 0 Then Response.Write " checked"%>> 锁定&nbsp;&nbsp;
	</td>
</tr>
<tr>
	<td class=tablerow2>用户等级</td>
	<td class=tablerow2><select name='UserGrade'>
<%
	Set RsObj = Newasp.Execute("Select GroupName,Grades From NC_UserGroup where Grades <> 0 order by Groupid")
	Do While Not RsObj.EOF
		Response.Write Chr(9) & Chr(9) & "<option value=""" & RsObj("Grades") & "," & RsObj("GroupName") & """"
		If RsObj("Grades") = Rs("UserGrade") Then Response.Write " selected"
		Response.Write ">"
		Response.Write RsObj("GroupName")
		Response.Write "</option>" & vbCrLf
		RsObj.movenext
	Loop
	Set RsObj = Nothing
%>
	</select></td>
	<td class=tablerow2>会员类型</td>
	<td class=tablerow2><select name='UserClass'>
		<option value='0'<%If Rs("UserClass") = 0 Then Response.Write " selected"%>>计点会员</option>
		<option value='1'<%If Rs("UserClass") = 1 Then Response.Write " selected"%>>计时会员</option>
		<option value='999'<%If Rs("UserClass") = 999 Then Response.Write " selected"%>>到期会员</option>
	</select></td>
</tr>
<tr>
	<td class=tablerow1>用户点数</td>
	<td class=tablerow1><input type=text name=userpoint size=10 value='<%=Rs("userpoint")%>'></td>
	<td class=tablerow1>账户余额</td>
	<td class=tablerow1><input type=text name=usermoney size=10 value='<%=Rs("usermoney")%>'> 元</td>
</tr>
<tr>
	<td class=tablerow2 nowrap>用户经验值</td>
	<td class=tablerow2><input type=text name=experience size=10 value='<%=Rs("experience")%>'></td>
	<td class=tablerow2 nowrap>用户魅力值</td>
	<td class=tablerow2><input type=text name=charm size=10 value='<%=Rs("charm")%>'></td>
</tr>
<tr>
	<td class=tablerow1>身分证号码</td>
	<td class=tablerow1><input type=text name=UserIDCard size=35 value='<%=Rs("UserIDCard")%>'></td>
	<td class=tablerow1>姓别</td>
	<td class=tablerow1><select name='UserSex'>
		<option value='男'<%If Rs("UserSex") = "男" Then Response.Write " selected"%>>帅哥</option>
		<option value='女'<%If Rs("UserSex") = "女" Then Response.Write " selected"%>>美女</option>
	</select></td>
</tr>
<tr>
	<td class=tablerow2>用户电话</td>
	<td class=tablerow2><input type=text name=phone size=20 value='<%=Rs("phone")%>'></td>
	<td class=tablerow2>用户QQ</td>
	<td class=tablerow2><input type=text name=oicq size=20 value='<%=Rs("oicq")%>'></td>
</tr>
<tr>
	<td class=tablerow1>邮政编码</td>
	<td class=tablerow1><input type=text name=postcode size=20 value='<%=Rs("postcode")%>'></td>
	<td class=tablerow1>联系地址</td>
	<td class=tablerow1><input type=text name=address size=45 value='<%=Rs("address")%>'></td>
</tr>
<tr>
	<td class=tablerow2>密码问题</td>
	<td class=tablerow2><input type=text name=question size=20 value='<%=Rs("question")%>'></td>
	<td class=tablerow2>密码答案</td>
	<td class=tablerow2><input type=text name=answer size=20> <font color=blue>如果不修改密码请留空</font></td>
</tr>
<tr>
	<td class=tablerow1 nowrap>最后登陆时间</td>
	<td class=tablerow1><input type=text name=LastTime size=30 value='<%=Rs("LastTime")%>'></td>
	<td class=tablerow1>最后登陆IP</td>
	<td class=tablerow1><input type=text name=userlastip size=20 value='<%=Rs("userlastip")%>'></td>
</tr>
<tr>
	<td class=tablerow2>注册时间</td>
	<td class=tablerow2><input type=text name=JoinTime size=30 value='<%=Rs("JoinTime")%>'></td>
	<td class=tablerow2>到期时间</td>
	<td class=tablerow2><input type=text name=ExpireTime size=30 value='<%=Rs("ExpireTime")%>'></td>
</tr>
<tr>
	<td class=tablerow1>用户图像</td>
	<td class=tablerow1><input type=text name=UserFace size=30 value='<%=Rs("UserFace")%>'></td>
	<td class=tablerow1>登陆次数</td>
	<td class=tablerow1><input type=text name=userlogin size=10 value='<%=Rs("userlogin")%>'></td>
</tr>
<tr>
	<td class=tablerow1>密码保护</td>
	<td class=tablerow1>
	<input type=radio name=Protect value='0'<%If Rs("Protect") = 0 Then Response.Write " checked"%>> 未申请&nbsp;&nbsp;
	<input type=radio name=Protect value='1'<%If Rs("Protect") <> 0 Then Response.Write " checked"%>> 已申请&nbsp;&nbsp;</td>
	<td class=tablerow1>用户昵称</td>
	<td class=tablerow1><input type=text name=nickname size=20 value='<%=Rs("nickname")%>'></td>
</tr>
<tr align=center>
	<td colspan=4 class=tablerow2>
	<input type=button name=Submit2 onclick="javascript:history.go(-1)" value='返回上一页' class=Button>
	<input type=Submit name=Submit1 value='确认修改' class=Button></td>
</tr></form>
</table>

<%
End Sub

Private Sub CheckSave()
	If Trim(Request.Form("usermail")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>用户邮箱不能为空！</li>"
	End If
	If IsValidEmail(Trim(Request.Form("usermail"))) = False Then
		ErrMsg = ErrMsg + "<li>您的Email有错误。</li>"
		FoundErr = True
	End If
	If Not IsNumeric(Request.Form("userpoint")) Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>用户点数必需是数字！</li>"
	End If
	If Trim(Request.Form("nickname")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>用户昵称不能为空！</li>"
	End If
	If Newasp.IsValidStr(Request("nickname")) = False Then
		ErrMsg = ErrMsg + "<li>用户昵称中含有非法字符。</li>"
		Founderr = True
	End If
	UserGroupStr = Split(Request.Form("UserGrade"), ",")
End Sub

Private Sub SaveUser()
	CheckSave
	If Trim(Request.Form("username")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>用户名不能为空！</li>"
	End If
	If Newasp.IsValidStr(Request("username")) = False Then
		ErrMsg = ErrMsg + "<li>用户名中含有非法字符。</li>"
		Founderr = True
	End If
	If Trim(Request.Form("password1")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>用户密码不能为空！</li>"
	End If
	If Trim(Request.Form("password2")) = "" Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>确认密码不能为空！</li>"
	End If
	If Request.Form("password1") <> Request.Form("password2") Then
		ErrMsg = ErrMsg + "<li>您输入的密码和确认密码不一致。</li>"
		FoundErr = True
	End If
	If Newasp.IsValidPassword(Request("password2")) = False Then
		ErrMsg = ErrMsg + "<li>密码中含有非法字符。</li>"
		Founderr = True
	Else
		UserPassWord =  md5(Request.Form("password2"))
	End If
	Set Rs = Newasp.Execute("select username from NC_User where username = '" & Trim(Request("username")) & "'")
	If Not (Rs.bof And Rs.EOF) Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>Sorry！此用户已经存在,请换一个用户名再试！</li>"
		Exit Sub
	End If
	Rs.Close:Set Rs = Nothing
	If Founderr = True Then Exit Sub
	Set Rs = Server.CreateObject("ADODB.Recordset")
	SQL = "select * from NC_User where (userid is null)"
	Rs.Open SQL,Conn,1,3
	Rs.Addnew
		Rs("username") = Trim(Request.Form("username"))
		Rs("password") = UserPassWord
		Rs("nickname") = Trim(Request.Form("nickname"))
		Rs("UserGrade") = CInt(UserGroupStr(0))
		Rs("UserGroup") = Trim(UserGroupStr(1))
		Rs("UserClass") = 0
		Rs("UserLock") = 0
		Rs("UserFace") = "face/1.gif"
		Rs("userpoint") = Trim(Request.Form("userpoint"))
		Rs("usermoney") = 0
		Rs("savemoney") = 0
		Rs("prepaid") = 0
		Rs("experience") = 10
		Rs("charm") = 10
		Rs("TrueName") = Trim(Request.Form("username"))
		Rs("usersex") = Newasp.CheckStr(Request.Form("usersex"))
		Rs("usermail") = Newasp.CheckStr(Request.Form("usermail"))
		Rs("oicq") = ""
		Rs("JoinTime") = Now()
		Rs("ExpireTime") = Now()
		Rs("LastTime") = Now()
		Rs("Protect") = 0
		Rs("usermsg") = 0
		Rs("userlastip") = ""
		Rs("userlogin") = 0
		Rs("usersetting") = ",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,"
	Rs.update
	Rs.Close:Set Rs = Nothing
	Call RemoveCache
	Succeed("<li>恭喜您！添加会员[<font color=blue>" & Request("username") & "</font>]成功。</li>")
End Sub

Private Sub ModifyUser()
	CheckSave
	If Newasp.IsValidPassword(Request("password")) = False And Trim(Request("password")) <> "" Then
		ErrMsg = ErrMsg + "<li>密码中含有非法字符。</li>"
		Founderr = True
	End If
	If Newasp.IsValidPassword(Request("BuyCode")) = False And Trim(Request("BuyCode")) <> "" Then
		ErrMsg = ErrMsg + "<li>交易密码中含有非法字符。</li>"
		Founderr = True
	End If
	If Newasp.IsValidPassword(Request("answer")) = False And Trim(Request("answer")) <> "" Then
		ErrMsg = ErrMsg + "<li>问题答案中含有非法字符。</li>"
		Founderr = True
	End If
	If Not IsDate(Request.Form("JoinTime")) Then
		FoundErr = True
		ErrMsg = ErrMsg + "<li>注册时间参数错误！</li>"
	End If
	If Founderr = True Then Exit Sub
	Set Rs = Server.CreateObject("ADODB.Recordset")
	SQL = "select * from NC_User where userid = " & Request("userid")
	Rs.Open SQL,Conn,1,3
		'Rs("username") = Trim(Request.Form("username"))
		Rs("nickname") = Trim(Request.Form("nickname"))
		If Trim(Request.Form("password")) <> "" Then Rs("password") = md5(Request.Form("password"))
		If Trim(Request.Form("BuyCode")) <> "" Then Rs("BuyCode") = md5(Request.Form("BuyCode"))
		Rs("UserGrade") = CInt(UserGroupStr(0))
		Rs("UserGroup") = Trim(UserGroupStr(1))
		Rs("UserClass") = Trim(Request.Form("UserClass"))
		Rs("UserLock") = Trim(Request.Form("UserLock"))
		Rs("UserFace") = Trim(Request.Form("UserFace"))
		Rs("userpoint") = Trim(Request.Form("userpoint"))
		Rs("usermoney") = Trim(Request.Form("usermoney"))
		Rs("experience") = Trim(Request.Form("experience"))
		Rs("charm") = Trim(Request.Form("charm"))
		Rs("TrueName") = Trim(Request.Form("TrueName"))
		Rs("UserIDCard") = Trim(Request.Form("UserIDCard"))
		Rs("usersex") = Trim(Request.Form("usersex"))
		Rs("usermail") = Trim(Request.Form("usermail"))
		Rs("phone") = Trim(Request.Form("phone"))
		Rs("oicq") = Trim(Request.Form("oicq"))
		Rs("postcode") = Trim(Request.Form("postcode"))
		Rs("address") = Trim(Request.Form("address"))
		Rs("question") = Trim(Request.Form("question"))
		If Trim(Request.Form("answer")) <> "" Then Rs("answer") = md5(Request.Form("answer"))
		Rs("Protect") = Trim(Request.Form("Protect"))
		Rs("JoinTime") = Trim(Request.Form("JoinTime"))
		Rs("ExpireTime") = Trim(Request.Form("ExpireTime"))
		Rs("LastTime") = Trim(Request.Form("LastTime"))
		Rs("userlastip") = Trim(Request.Form("userlastip"))
		Rs("userlogin") = Trim(Request.Form("userlogin"))
	Rs.update
	username = Rs("username")
	Rs.Close:Set Rs = Nothing
	Call RemoveCache
	Succeed("<li>恭喜您！修改会员[<font color=blue>" & username & "</font>]的资料成功。</li>")
End Sub

Private Sub DeleteUser()
	If Request("userid") = "" Then
		ErrMsg = "<li>请选择正确的系统参数！</li>"
		Founderr = True
		Exit Sub
	End If
	Newasp.Execute("Delete from NC_User Where userid = " & Request("userid"))
	Call RemoveCache
	OutHintScript("用户删除成功！")
End Sub

Private Sub BatDelUser()
	Newasp.Execute ("delete from NC_User where userid in (" & seluserid & ")")
	Call RemoveCache
	OutHintScript ("批量删除操作成功！")
End Sub

Private Sub IslockUser()
	Newasp.Execute ("update NC_User set UserLock = 1 where userid in (" & seluserid & ")")
	Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub

Private Sub NolockUser()
	Newasp.Execute ("update NC_User set UserLock = 0 where userid in (" & seluserid & ")")
	Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub

Private Sub MoveUser()
	If Request("sUserGrade") = "" Then
		OutAlertScript("请选择正确的系统参数！")
		Exit Sub
	End If
	UserGroupStr = Split(Request("sUserGrade"), ",")
	Newasp.Execute ("update NC_User set UserGrade=" & CInt(UserGroupStr(0)) & ", UserGroup='" & UserGroupStr(1) & "' where userid in (" & seluserid & ")")
	Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub

Private Sub showpage()
	Dim n
	If totalnumber Mod maxperpage = 0 Then
		n = totalnumber \ maxperpage
	Else
		n = totalnumber \ maxperpage + 1
	End If
	Response.Write "<table cellspacing=1 width='100%' border=0><form method=Post action=?UserGrade=" & Request("UserGrade") & "&lock=" & Request("lock") & "><tr><td align=center> " & vbCrLf
	Response.Write "<font color='red'>" & sUserGroup & "</font> "
	If CurrentPage < 2 Then
		Response.Write "共有会员 <font COLOR=#FF0000><strong>" & totalnumber & "</strong></font> 位&nbsp;首 页&nbsp;上一页&nbsp;|&nbsp;"
	Else
		Response.Write "共有会员 <font COLOR=#FF0000><strong>" & totalnumber & "</strong></font> 位&nbsp;<a href=?page=1&UserGrade=" & Request("UserGrade") & "&lock=" & Request("lock") & ">首 页</a>&nbsp;"
		Response.Write "<a href=?page=" & CurrentPage - 1 & "&UserGrade=" & Request("UserGrade") & "&lock=" & Request("lock") & ">上一页</a>&nbsp;|&nbsp;"
	End If
	If n - CurrentPage < 1 Then
		Response.Write "下一页&nbsp;尾 页" & vbCrLf
	Else
		Response.Write "<a href=?page=" & (CurrentPage + 1) & "&UserGrade=" & Request("UserGrade") & "&lock=" & Request("lock") & ">下一页</a>"
		Response.Write "&nbsp;<a href=?page=" & n & "&UserGrade=" & Request("UserGrade") & "&lock=" & Request("lock") & ">尾 页</a>" & vbCrLf
	End If
	Response.Write "&nbsp;页次：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页 "
	Response.Write "&nbsp;转到："
	Response.Write "<input name=page size=3 value='" & CurrentPage & "'> <input class=Button type=submit name=Submit value='转到'>"
	Response.Write "</td></tr></FORM></table>" & vbCrLf
End Sub
Private Sub RemoveCache()
	Newasp.DelCahe "RenewStatistics"
	Newasp.DelCahe "TotalStatistics"
End Sub
%>
12

admin_user.asp - 源码说明

本页面展示了「这是一套基于WEB的网站管理系统」中的 admin_user.asp 源码文件，采用 ASP 编程语言编写，共 730 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与WEB相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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