📄 users.asp

📁 网趣购物系统加强升级版 ○ 完美整合BBS论坛程序
💻 ASP
📖 第 1 页 / 共 4 页
字号:
End If
ClassID=Rs("ClassID")
UserName=Rs("Name")
Password=Rs("Password")
Question=Rs("Clue")
Answer=Rs("Answer")
Sex=Rs("Sex")
GradeName=Rs("GradeName")
Email=Rs("Mail")
Homepage=Rs("Home")
QQ=Rs("QQ")
HeadFile=Rs("Pic")
HeadWidth=Rs("PicW")
HeadHeight=Rs("PicH")
Sign=Rs("Sign")
UserTitle=Rs("Honor")
Mark=Rs("Mark")
Coin=Rs("Coin")
BankSave=Rs("BankSave")
Birthday=Rs("Birthday")
RegistTime=Rs("RegTime")
LastLoginTime=Rs("LastTime")
useraction=Rs("IsShow")
Set Rs=Nothing
%>
<table width=95% border=0 align="center" cellpadding=6 cellspacing=1 bgcolor="#FFFFFF">
	<form action="?action=EditUser" method=post>
	<tr>
	<td bgcolor=#e7e7e7 valign=middle colspan=2 align=center>
	
	<p align="left"><font color="#800000"><b>用户基本资料修改</b></font></td></tr> 
	
 		<tr>
		<td bgcolor=#d7d7d7><font color="#000077"><b>用户组</b></font></td>		
		<td bgcolor=#d7d7d7>
		<INPUT TYPE="hidden" Name="UserID" Value="<%=UserID%>">
		<INPUT TYPE="hidden" Name="OldClassID" Value="<%=ClassID%>">
		<select size="1" name="ClassID">
		<%
		Dim UCL
		set UCL=Conn.execute("Select ClassID,ClassName from YX_UserClass Where ClassID<>6 order by ClassID Asc")
		while not UCL.eof
			Response.write "<option value='"&UCL("ClassID")&"'"
			If ClassID=UCL("ClassID") Then Response.Write "Selected"
			Response.write ">"&UCL("ClassName")&"</option>"
			UCL.MoveNext
		wend
		set UCL=nothing
		%>
		</select></td>
		</tr>
	<tr>
		<td bgcolor=#d7d7d7 width=40%><font color="#000077"><b>用户名</b></font></td>		
		<td bgcolor=#d7d7d7 width=60%>
		<INPUT TYPE="hidden" name="OldUserName" value="<%=UserName%>">
		<input name="UserName" size="30" value="<%=UserName%>">　</td>
	  </tr>
	
 		<tr>
		<td bgcolor=#d7d7d7 width=40%><font color="#000077"><b>密&nbsp;&nbsp; 码</b></font></td>		
		<td bgcolor=#d7d7d7 width=60%>
		<INPUT TYPE="hidden" name="OldPassword" value="<%=Password%>">
		<input name="Password" size="30" >　如果不修改请留空</td>
		</tr>
	<tr>
		<td bgcolor=#d7d7d7 width=40%><font color="#000077"><b>密码问题</b></font></td>		
		<td bgcolor=#d7d7d7 width=60%>
		<input name="Question" size="30" value="<%=Question%>">　</td>
	  </tr>
	<tr>
		<td bgcolor=#d7d7d7 width=40%><font color="#000077"><b>密码答案</b></font></td>		
		<td bgcolor=#d7d7d7 width=60%>
		<INPUT TYPE="hidden" name="OldAnswer" value="<%=Answer%>">
		<input name="Answer" size="30">　如果不修改请留空</td>
	  </tr>
	<tr>
		<td bgcolor=#d7d7d7 width=40%><font color="#000077"><b>性别</b></font></td>		
		<td bgcolor=#d7d7d7 width=60%><INPUT TYPE="radio" NAME="Sex" value="1" <%If Sex Then Response.write"Checked"%>>
		男 <INPUT TYPE="radio" NAME="Sex" value="0" <%If Not Sex Then Response.write"Checked"%>>
		女</td>
	  </tr>
	<tr>
		<td bgcolor=#d7d7d7><font color="#000077"><b>自定头衔</b></font></td>		
		<td bgcolor=#d7d7d7>
		<input name="UserTitle" size="30" value="<%=UserTitle%>"></td>
	  </tr>
	<tr>
		<td bgcolor=#d7d7d7><font color="#000077"><b>论坛等级</b></font></td>		
		<td bgcolor=#d7d7d7>
		<input name="GradeName" size="30" value="<%=GradeName%>" readonly></td>
	  </tr>
	<tr>
	<td bgcolor=#e7e7e7 valign=middle colspan=2 align=center>
	
	<p align="left"><font color="#800000"><b>用户联系资料</b></font></td>
	</tr>
	<tr>
		<td bgcolor=#d7d7d7 width=40%><font color="#000077"><b>邮箱</b></font></td>		
		<td bgcolor=#d7d7d7 width=60%>
		<input name="Email" size="30" value="<%=Email%>">　</td>
	  </tr>
	<tr>
		<td bgcolor=#d7d7d7 width=40%><font color="#000077"><b>个人主页</b></font></td>		
		<td bgcolor=#d7d7d7 width=60%>
		<input name="HomePage" size="30" value="<%=HomePage%>">　</td>
	  </tr>
	<tr>
		<td bgcolor=#d7d7d7 width=40%><font color="#000077"><b>QQ号码</b></font></td>		
		<td bgcolor=#d7d7d7 width=60%>
		<input name="QQ" size="30" value="<%=QQ%>">　</td>
	  </tr>
	<tr>
		<td bgcolor=#d7d7d7 width=40%><font color="#000077"><b>论坛头像</b></font></td>		
		<td bgcolor=#d7d7d7 width=60%>
		<input name="HeadFile" size="30" value="<%=HeadFile%>">　图片宽<input name="HeadWidth" size="5" value="<%=Headwidth%>">&nbsp; 
		图片高<input name="HeadHeight" size="5" value="<%=HeadHeight%>"></td>
	  </tr>
	<tr>
		<td bgcolor=#d7d7d7><font color="#000077"><b>个人签名<br>
		　</b></font></td>		
		<td bgcolor=#d7d7d7><textarea rows="4" name="Sign" cols="29"><%=Sign%></textarea></td>
	  </tr>
	<tr>
	<td bgcolor=#e7e7e7 valign=middle colspan=2 align=center>
	
	<p align="left"><font color="#800000"><b>积分相关</b></font></td>
	</tr>
	<tr>
		<td bgcolor=#d7d7d7 width=40%><font color="#000077"><b>用户金钱</b></font></td>		
		<td bgcolor=#d7d7d7 width=60%><input name="Coin" size="30" value="<%=Coin%>"></td>
	  </tr>
	<tr>
		<td bgcolor=#d7d7d7><font color="#000077"><b>用户存款</b></font></td>		
		<td bgcolor=#d7d7d7><input name="BankSave" size="30" Value="<%=BankSave%>"></td>
	  </tr>
	<tr>
		<td bgcolor=#d7d7d7><font color="#000077"><b>用户积分</b></font></td>		
		<td bgcolor=#d7d7d7><input name="Mark" size="30" value="<%=Mark%>"></td>
	  </tr>
	
	<tr>
	<td bgcolor=#e7e7e7 valign=middle colspan=2 align=center>
	
	<p align="left"><font color="#800000"><b>日期相关</b></font></td>
	</tr>
	<tr>
		<td bgcolor=#d7d7d7 width=40%><font color="#000077"><b>出生日期</b></font></td>		
		<td bgcolor=#d7d7d7 width=60%>
		<input name="Birthday" size="30" value="<%=Birthday%>">　
		格式:1986-8-12</td>
	  </tr>
	<tr>
		<td bgcolor=#d7d7d7><font color="#000077"><b>注册时间</b></font></td>		
		<td bgcolor=#d7d7d7><input name="RegistTime" size="30" Value="<%=RegistTime%>"></td>
	  </tr>
	<tr>
		<td bgcolor=#d7d7d7><font color="#000077"><b>最后登录</b></font></td>		
		<td bgcolor=#d7d7d7><input name="LastLoginTime" size="30" value="<%=LastLoginTime%>"></td>
	  </tr>
	<tr>
	<td bgcolor=#e7e7e7 valign=middle colspan=2 align=center>
	
	<p align="left"><font color="#800000"><b>用户设置</b></font></td>
	</tr>
	<tr>
		<td bgcolor=#d7d7d7><font color="#000077"><b>用户状态</b></font></td>		
	  <td bgcolor=#d7d7d7>正常 
		<input type="radio" value="0" name="useraction" <%If Not UserAction Then Response.write "Checked"%>>&nbsp; 
		屏蔽 
		<input type="radio" value="1" name="useraction" <%If UserAction Then Response.write "Checked"%>>	    </td>
	  </tr>
	<tr>
		<td bgcolor=#e7e7e7 valign=middle colspan=2 align=center>
		<input type="submit" value="编 辑" name="B1"></td></tr>
	</form>
</table>
<%
End sub
%>

<%
Sub UserClass
%>
  <table width=95% border=0 align="center" cellpadding=6 cellspacing=1 bgcolor="#FFFFFF">
	<tr>
	<td bgcolor=#e7e7e7 valign=middle colspan=5 align=center>
	
	<font color="#800000"><b>组 户 组 管 理</b></font></td></tr> 
	
	  <tr>
		<td bgcolor=#d7d7d7 width="20%" align="center"><b><font color="#000077">
		用户组</font></b></td>		
		<td bgcolor=#d7d7d7 width="20%" align="center"><font color="#000077"><b>
		用户数量</b></font></td>		
		<td bgcolor=#d7d7d7 width="20%" align="center"><font color="#000077"><b>
		编辑权限</b></font></td>		
		<td bgcolor=#d7d7d7 width="20%" align="center"><font color="#000077"><b>
		例出所有用户</b></font></td>
                <td bgcolor=#d7d7d7 width="20%" align="center"><font color="#000077"><b>
		操作</b></font></td>		
    </tr> 
	  <%
		Dim User_Count,Uc
		set rs=Conn.execute("Select ClassID,ClassName from YX_UserClass")
		while not rs.eof 
			Set uc=Conn.execute("Select Count(ID) from YX_User Where ClassID="&Rs(0)&"")
				User_Count=uc(0)
				uc.close
			set uc=nothing
		%>
	  <tr>
		<td bgcolor=#d7d7d7 width="20%" align="center"><%=rs("ClassName")%></td>		
		<td bgcolor=#d7d7d7 width="20%" align="center"><%=User_Count%></td>		
		<td bgcolor=#d7d7d7 width="20%" align="center"><a href="?Action=Classedit&ClassID=<%=rs("ClassID")%>">编辑</a></td>		
		<td bgcolor=#d7d7d7 width="20%" align="center"><a href="Users.Asp?ClassID=<%=Rs("ClassID")%>">查看</a></td>
                <td bgcolor=#d7d7d7 width="20%" align="center"><a href="users.asp?Action=DelUserclass&ClassID=<%=Rs("ClassID")%>" onclick="checkclick('删除前请先将该组用户全部移动到其他组,否则后果自负!\n\n您确定要删除吗？')">删除</a></td>		
	  </tr>
	  <%
		rs.movenext
		wend
		rs.close
		set rs=nothing
		%>
	  <tr>
		<td bgcolor=#e7e7e7 valign=middle colspan=5 align=center>&nbsp;
		</td>
	  </tr>
  </table>
<%
End Sub


Sub saveeditClass
	Dim ClassID,ClassSetting,Sql
	ClassID=Request.form("ClassID")
	IF ClassID="" or not isNumeric(ClassID) then
		Call GoBack("错误提示","参数错误码，请确认正确的参数。")
		Exit sub
	End if
	
	ClassSetting=Request.form("CanViewUserinfo") & "," & Request.form("CanViewNewTopic") & "," & Request.form("CanViewTopicDigest") & "," & Request.form("CanNewTopic") & "," & Request.form("CanPostMyTopic") & "," & Request.form("CanPostOrtherTopic") & "," & Request.form("CanUpfile") & "," & Request.form("CanNewTopicVote") & "," & Request.form("CanPostTopicVote") & "," & Request.form("CanEditMyTopic") & "," & Request.form("CanSendMessage") & "," & Request.form("SendMaxCount") & "," & Request.form("SendMessageMaxSize") & "," & Request.Form("SmsBoxMaxSize") & "," & Request.form("CanDelTopic") & "," & Request.form("CanMoveTopic") & "," & Request.form("CanTopTopic") & "," & Request.form("CanTTopTopic") & ","& Request.form("CanEditTopic") & "," & Request.form("CanDigestTopic") & "," & Request.form("CanLockTopic")
	
	Dim Rs
	Set rs=server.createobject("Adodb.Recordset")
	sql="select * from YX_UserClass where ClassID="& Request.form("ClassID")
	rs.open sql,conn,1,3
	If not (rs.eof and rs.bof) then
		'rs("ClassName")=ClassName
		rs("ClassSetting")=ClassSetting
		rs.update
	Else
		Call GoBack("错误提示","没有此用户组，或者已被删除。")
		Exit sub
	End if
	rs.close
	Set rs=nothing
⌨️ 快捷键说明

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