⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 users.asp

📁 网趣系统时尚版8（支付宝）
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
	Dim Rs,Sql
	set rs = server.CreateObject ("Adodb.recordset")
	sql="select * from YX_UserGrade where GradeName='" & GradeName& "'"
	rs.open sql,conn,1,3
	if rs.eof or rs.bof then
		rs.addnew
		rs("GradeName")=GradeName
		rs("GradeNum")=GradeNum
		rs("GradePic")=GradePic
		rs("UserMinPostNum")=UserMinPostNum
		rs("ClassID")=ClassID
		rs.update
	else
		Call GoBack("","<li>该等级名称已经存在。")
                
		Exit sub
	end if
	rs.close
	set rs=nothing
	Call Suc("","用户等级添加成功！建议您到更新用户数据中进行更新操作！","?Action=UserGrade")
End sub

Sub UserGradeAdd
%>
	<table width=95% border=0 align="center" cellpadding=6 cellspacing=1 bgcolor="#FFFFFF">
	<form action="?action=SaveAddGrade" method=post>
	<tr>
	<td bgcolor=#e7e7e7 valign=middle colspan=2 align=center>
	<b><font color="#800000">添加新的用户等级</font></b></td></tr> 
 		<tr>
		<td bgcolor=#d7d7d7 width=40%><font color=#000077><b>名称</b></font></td>		
		<td bgcolor=#d7d7d7 width=60%>
		<input name="GradeName" size="30">　</td>
		</tr><tr>
		<td bgcolor=#d7d7d7><font color="#000077"><b>等级</b></font></td>		
		<td bgcolor=#d7d7d7>
		<input name="GradeNum" size="30"></td>
		</tr><tr>
		<td bgcolor=#d7d7d7><font color="#000077"><b>图片</b></font></td>		
		<td bgcolor=#d7d7d7>
		<input name="GradePic" size="30"></td>
		</tr><tr>
		<td bgcolor=#d7d7d7><font color="#000077"><b>最少发贴量</b></font></td>		
		<td bgcolor=#d7d7d7>
		<input name="UserMinPostNum" size="30"></td>
		</tr><tr>
		<td bgcolor=#d7d7d7><font color="#000077"><b>所属用户组</b></font></td>		
		<td bgcolor=#d7d7d7>
		<select size="1" name="ClassID">
		<%
		Dim Rs
		set rs=Conn.execute("Select ClassID,ClassName from YX_UserClass order by ClassID asc")
		while not rs.eof
		%>
		<option value="<%=rs("ClassID")%>"><%=rs("ClassName")%></option>
		<%
		rs.movenext
		wend
		rs.close
		set rs=nothing
		%>
		</select>
		</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 EditUser

Dim Rs,ClassID,UserName,UserID,OldPassword,Password,Question,Answer,Sex,GradeName,Email,HomePage,QQ,ICQ,MSN,HeadFile,HeadWidth
Dim UserTitle,Mark,Coin,BankSave
Dim HeadHeight,Sign,BirthDay,RegistTime,LastLoginTime,UserAction,OldClassID,OldAnswer,OldPassowrd,SQL,OldUserName,AllTable,i
UserID=Request.Form("UserID")
ClassID=Request.Form("ClassID")
OldClassID=Request.Form("OldClassID")
UserName=Request.Form("UserName")
OldUserName=Request.Form("OldUserName")
Password=Request.Form("Password")
OldPassword=Request.Form("OldPassword")
Question=Request.Form("Question")
Answer=Request.Form("Answer")
OldAnswer=Request.Form("OldAnswer")
Sex=Request.Form("Sex")
UserTitle=Request.Form("UserTitle")
Mark=Request.Form("Mark")
Coin=Request.Form("Coin")
BankSave=Request.Form("BankSave")
Email=Request.Form("Email")
HomePage=Request.Form("HomePage")
QQ=Request.Form("QQ")
ICQ=Request.Form("ICQ")
MSN=Request.Form("MSN")
HeadFile=Request.Form("HeadFile")
HeadWidth=Request.Form("HeadWidth")
HeadHeight=Request.Form("HeadHeight")
Sign=Request.Form("Sign")
BirthDay=Request.Form("BirthDay")
RegistTime=Request.Form("RegistTime")
LastLoginTime=Request.Form("LastLoginTime")
UserAction=Request.Form("UserAction")
If Cint(ClassID)<>Cint(OldClassID) Then
	Set Rs=Conn.Execute("Select GradeNum,GradeName,GradePic from YX_UserGrade Where ClassID="&ClassID)
	If rs.eof or rs.bof then
		Call GoBack("错误提示","没有此用户组或已被删除！")
		Exit sub
	End if
	Conn.Execute("Update YX_User Set GradeNum="&Rs("GradeNum")&",GradeName='"&rs("GradeName")&"',GradePic='"&rs("GradePic")&"',ClassID="&ClassID&" where ID =" &UserID)
	Set Rs=Nothing
End If

If OldUserName<>"" or UserName<>"" or UserName <> OldUserName Then
	If LCase(UserName)=LCase(OldUserName) Then
		IF YxBBs.Execute("select name From[YX_User] where Name='"&OldUserName&"'").eof Then Call GoBack("","这个用户根本不存在！"):Exit Sub
	Else
		IF YxBBs.Execute("select name From[YX_User] where Name='"&OldUserName&"'").eof Then Call GoBack("","这个用户根本不存在！"):Exit Sub
		If Not YxBBs.Execute("select name From[YX_User] where Name='"&UserName&"'").eof Then Call GoBack("","新用户名称已经被注册了！"):Exit Sub
	End If
	AllTable=Split(YxBBs.BBSTable(0),",")
	For i=0 To uBound(AllTable)
		YxBBs.Execute("Update [YX_Bbs"&AllTable(i)&"] Set Name='"&UserName&"' where Lcase(Name)='"&OldUserName&"'")
	Next
	YxBBs.Execute("Update [YX_TopicVoteUser] Set [User]='"&UserName&"' where Lcase([User])='"&OldUserName&"'")
	YxBBs.Execute("Update [YX_Topic] Set Name='"&UserName&"' where Lcase(Name)='"&OldUserName&"'")
	YxBBs.Execute("Update [YX_Sms] Set MyName='"&UserName&"' where Lcase(MyName)='"&OldUserName&"'")
	YxBBs.Execute("Update [YX_Sms] Set Name='"&UserName&"' where Lcase(Name)='"&OldUserName&"'")
	YxBBs.Execute("Update [YX_User] Set Name='"&UserName&"' where Lcase(Name)='"&OldUserName&"'")
	YxBBs.Execute("Update [YX_Admin] Set Name='"&UserName&"' where Lcase(Name)='"&OldUserName&"'")
End If

Set Rs=Server.CreateObject("Adodb.Recordset")
Sql="Select * From YX_User Where ID="&UserID
Rs.Open Sql,Conn,1,3
If Rs.Eof Then
	Call GoBack("错误提示","没有此用户或已被删除。")
	Exit Sub
End If
Rs("Name")=UserName
If Password<>"" Then Rs("Password")=MD5(Password)
Rs("Clue")=Question
If Answer<>"" Then Rs("Answer")=MD5(Answer)
Rs("Sex")=Sex
Rs("Home")=HomePage
Rs("QQ")=QQ
Rs("Mail")=Email
Rs("Pic")=HeadFile
Rs("PicW")=HeadWidth
Rs("PicH")=HeadHeight
Rs("Sign")=Sign
Rs("Honor")=UserTitle
Rs("Mark")=Mark
Rs("Coin")=Coin
Rs("BankSave")=BankSave
Rs("BirthDay")=BirthDay
Rs("RegTime")=RegistTime
Rs("LastTime")=LastLoginTime
Rs("IsShow")=UserAction
Rs.update
Rs.CLose
Set Rs= Nothing
Call Suc("","用户修改成功!","Users.Asp")
End Sub

Sub UserEdit
Dim Rs,i,ClassID,UserName,UserID,Password,Question,Answer,Sex,GradeName,Email,HomePage,QQ,ICQ,MSN,HeadFile,HeadWidth
Dim UserTitle,Mark,Coin,BankSave
Dim HeadHeight,Sign,BirthDay,RegistTime,LastLoginTime,UserAction
UserID=Request("UserID")
Set Rs=Conn.Execute("Select * From YX_User Where ID="&UserID)
If Rs.Eof Then
	Call GoBack("错误提示","找不到用户或已被删除！")
	Response.End
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>用户Y币</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>
123

⌨️ 快捷键说明

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