admin_user.asp

采用的是新云内核

</tr>
</table>

<%
End Sub

Sub AddUser()
	Call PageTop
%>
<table border=0 align=center cellpadding=3 cellspacing=1 class=tableborder>
<tr>
	<th colspan="2">添加会员</th>
</tr>
<form name=myform method=post action=?action=save>
<tr>
	<td width='30%' align=right class=tablerow1><strong>登陆名称：</strong></td>
	<td width='70%' class=tablerow1><input type=text name=username size=20 value=''></td>
</tr>
<tr>
	<td align=right class=tablerow2><strong>用户密码：</strong></td>
	<td class=tablerow2><input type=password name=password1 size=20></td>
</tr>
<tr>
	<td align=right class=tablerow1><strong>确认密码：</strong></td>
	<td class=tablerow1><input type=password name=password2 size=20></td>
</tr>
<tr>
	<td align=right class=tablerow2><strong>用户昵称：</strong></td>
	<td class=tablerow2><input type=text name=nickname size=20 value=''></td>
</tr>
<tr>
	<td align=right class=tablerow1><strong>用户邮箱：</strong></td>
	<td class=tablerow1><input type=text name=usermail size=30 value='<%=Newasp.MasterMail%>'></td>
</tr>
<tr>
	<td align=right class=tablerow2><strong>用户姓别：</strong></td>
	<td class=tablerow2><select name='UserSex'>
		<option value='男'>帅哥</option>
		<option value='女'>美女</option>
	</select></td>
</tr>
<tr>
	<td align=right class=tablerow1><strong>所属用户组：</strong></td>
	<td class=tablerow1><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") = 1 Then Response.Write " selected"
		Response.Write ">"
		Response.Write RsObj("GroupName")
		Response.Write "</option>" & vbCrLf
		RsObj.movenext
	Loop
	Set RsObj = Nothing
%>
	</select></td>
</tr>
<tr>
	<td align=right class=tablerow2><strong>用户点数：</strong></td>
	<td class=tablerow2><input type=text name=userpoint size=10 value='50'></td>
</tr>
<tr align=center>
	<td colspan=2 class=tablerow1>
	<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

Sub EditUser()
	Call PageTop
	Dim userid,username
	userid = Newasp.ChkNumeric(Request("userid"))
	username = Replace(Request("username"), "'", "")
	If userid = 0 Then
		SQL = "SELECT * FROM NC_user WHERE username='" & username & "'"
	Else
		SQL = "SELECT * FROM NC_user WHERE userid=" & userid
	End If
	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

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

Sub SaveUser()
	CheckSave
	Dim Password,Question,Answer
	Dim usersex,sex
	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
	Else
		username = Newasp.CheckBadstr(Request("username"))
	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
		Password = Trim(Request.Form("password2"))
		UserPassWord =  md5(Password)
	End If
	If Trim(Request.Form("usersex")) = "" Then
		ErrMsg = ErrMsg + "<li>您的姓别不能为空！</li>"
		Founderr = True
	Else
		usersex = Newasp.CheckBadstr(Request.Form("usersex"))
	End If
	If usersex = "女" Then
		sex = 0
	Else
		sex = 1
	End If
	Set Rs = Newasp.Execute("SELECT username FROM NC_User WHERE username = '" & 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
	Set Rs = Newasp.Execute("SELECT username FROM NC_Admin WHERE username='" & 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
	Question = Trim(Request.Form("question"))
	Answer = Trim(Request.Form("answer"))
	If Question = "" Then Question = Newasp.GetRandomCode
	If Answer = "" Then Answer = Newasp.GetRandomCode
	'-----------------------------------------------------------------
	'系统整合
	'-----------------------------------------------------------------
	Dim API_Newasp,API_SaveCookie,SysKey