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

📄 users.asp

📁 网趣购物系统加强升级版 ○ 完美整合BBS论坛程序
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
		<td bgcolor=#d7d7d7 align="center">
		<input type="text" name="GradeNum" size="12" value="<%=rs("GradeNum")%>" disabled></td>		
		<td bgcolor=#d7d7d7 align="center">
		<input type="text" name="GradePic" size="17" value="<%=rs("GradePic")%>"></td>		
		<td bgcolor=#d7d7d7 align="center">
		<input type="text" name="UserMinPostNum" size="13" value="<%=rs("UserMinPostNum")%>"></td>		
		<td bgcolor=#d7d7d7 align="center">
		<input type="text" name="ClassID" size="10" value="<%=rs("ClassID")%>"></td>		
		<td bgcolor=#d7d7d7 align="center"><a href="?Action=DelUserGrade&GradeID=<%=rs("GradeID")%>">删除</a></td>		
		</tr> 
		<%
		rs.movenext
		wend
		rs.close
		set rs=nothing
		%>
		<tr>
		<td bgcolor=#e7e7e7 colspan=6 align=center>
		<input type="submit" value="提交" name="B1"></td></tr>
	</table>
	</form>
<%
End Sub

Sub DelUserGrade
dim GradeID
GradeID=request("GradeID")
YxBBs.Execute("Delete * From [YX_UserGrade] where GradeID="&GradeID&"")
Call Suc("","用户等级删除成功！建议您到更新用户数据中进行更新操作！","?Action=UserGrade")
End Sub

Sub DelUserclass
dim ClassID
ClassID=request("ClassID")
YxBBs.Execute("Delete * From [YX_UserClass] where ClassID="&ClassID&"")
Call Suc("","用户组删除成功！建议您到更新用户数据中进行更新操作！","?Action=UserClass")
End Sub

Sub SaveAddGrade
	dim GradeName,GradeNum,GradePic,UserMinPostNum,ClassID,flag,ErrStr
	GradeName=Request.form("Gradename")
	GradeNum=Request.form("GradeNum")
	GradePic=Request.form("GradePic")
	UserMinPostNum=Request.form("UserMinPostNum")
	ClassID=Request.form("ClassID")
	flag=false
	ErrStr=""
	if GradeName="" then
		ErrStr="<li>等级名没写。<br>"
		flag=true
	end if
	
	if GradeNum="" then
		ErrStr=ErrStr&"<li>等级序号没写。<br>"
		flag=true
	elseif Not isNumeric(GradeNum) then
		ErrStr=ErrStr&"<li>等级序号只能是数字。<br>"
		flag=true
	end if
	
	if GradePic="" then
		ErrStr=ErrStr&"<li>等级图片没有。<br>"
		flag=true
	end if
	
	if UserMinPostNum="" then
		ErrStr=ErrStr&"<li>新的等级需要文章数没写"
		flag=true
	elseif Not isNumeric(UserMinPostNum) then
		ErrStr=ErrStr&"<li>新的等级文章数只能是数字"
		flag=true
	end if
	
	if flag then
		Call GoBack("错误提示",ErrStr)
		exit sub
	end if
	
	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_Placard] 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
1234

⌨️ 快捷键说明

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