user.asp

BBS论坛的开发和设计

  </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>用户头衔</td>
      <td> 
        <input name="usertitle" type="text" id="usertitle"></td>
  </tr>
    <tr bgcolor="#F5F5F5"> 
      <td>用 户 组</td>
      <td> 
        <select name="usergroup" id="usergroup">
        <option value="1">管理员</option>
        <option value="2">超级版主</option>
        <option value="3">版主</option>
        <option value="4">贵宾</option>
        <option value="5" selected>普通会员</option>
		<%
		set rs = server.CreateObject("adodb.recordset")
		rs.open "select groupID,groupName from JBB_usergroup where groupID > 6",conn,1,1
		if Not(rs.Eof and rs.Bof) then
		for u = 1 to rs.recordCount
		%>
        <option value="<%=rs(0)%>"><%=rtrim(rs(1))%></option>
      	<%
		rs.MoveNext
		Next'u
		End if
		rs.close
		set rs = Nothing
		%>
	  </select></td>
  </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>E_mail</td>
      <td> 
        <input name="email" type="text" id="email"></td>
  </tr>
    <tr bgcolor="#F5F5F5"> 
      <td>在个人资料中显示Email?</td>
      <td>是 
        <input name="showemail" type="radio" value="1" checked>
      　 否
<input type="radio" name="showemail" value="0"></td>
  </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>论坛风格</td>
      <td> 
        <select name="styleid" id="styleid">
		<%
		set rs = server.CreateObject("adodb.recordset")
		rs.open "select styleid,stylename from JBB_style",conn,1,1
		if Not(rs.Bof and rs.Eof) then
		for s = 1 to rs.recordCount
		%>
        <option value="<%=rs(0)%>"><%=rtrim(rs(1))%></option>
		<%
		rs.MoveNext
		Next's
		End if
		rs.close
		set rs = nothing
		%>
      </select></td>
  </tr>
    <tr bgcolor="#F5F5F5"> 
      <td>个人主页</td>
      <td> 
        <input name="homepage" type="text" id="homepage" value="http://www"></td>
  </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>OICQ</td>
      <td> 
        <input name="oicq" type="text" id="oicq"></td>
  </tr>
    <tr bgcolor="#F5F5F5"> 
      <td>MSN</td>
      <td> 
        <input name="MSN" type="text" id="MSN"></td>
  </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>生日(格式:yyyy-mm-dd)</td>
      <td> 
        <input name="birthday" type="text" id="birthday"></td>
  </tr>
    <tr bgcolor="#F5F5F5"> 
      <td>姓别</td>
      <td> 
        <select name="usersex" id="usersex">
        <option value="1" selected>男</option>
        <option value="2">女</option>
        <option value="3">保密</option>
      </select></td>
  </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>来自</td>
      <td> 
        <input name="useradd" type="text" id="useradd" size="35"></td>
  </tr>
    <tr bgcolor="#F5F5F5"> 
      <td valign="top">个性签名</td>
      <td valign="top" bgcolor="#F5F5F5"> 
        <textarea name="signature" cols="35" rows="3" id="signature"></textarea>
      </td>
  </tr>
</table><br>
<div align="center">
    <input name="Submit2" type="submit" class="form1" value="确定添加">
  　 
    <input name="Submit4" type="reset" class="form1" value="重置">

</div>  </form>
  <br>
  <%
End Sub
'=============================
Sub SaveEdit()
	userid = Trim(Request.QueryString("userid"))
		if Not(IsNumeric(userid)) then ErrorMsg "参数错误!~"
	username = replace(Trim(Request.Form("username")),"'","")
		if username = "" then ErrorMsg "用户名不可为空!~"
	Cent = Trim(request.Form("Cent"))
		if Not(IsNumeric(Cent)) then ErrorMsg "用户积分只能为数字!~"
	oldusername = trim(request.form("old_username"))
	old_group = Trim(Request.Form("old_group"))
	usergroup = Trim(Request.Form("usergroup"))
	set rs = server.CreateObject("adodb.recordset")
	rs.open "select userid From JBB_user where username = '"& username &"' and userid <> "&userid,conn,1,1
	if Not rs.eof then
		rs.close
		set rs = Nothing
		ErrorMsg "论坛中已有名为 "& username &" 的用户了，请重新输入一个用户名!"
	End if
	rs.close
	set rs = Nothing
	userpass = replace(Trim(Request.Form("userpass")),"'","")
	usergroup = Trim(Request.Form("usergroup"))
	birthday = Trim(Request.Form("birthday"))
		if birthday <> "" and Not(IsDate(birthday)) then ErrorMsg "生日日期格式不对~"
	set rs = server.CreateObject("adodb.recordset")
	rs.open "select * From JBB_user where userid="&userid,conn,1,3
		rs("username") = username
		if userpass <> "" then
			rs("userpass") = md5(userpass)
			Conn.ExeCute("update JBB_admin set adminpass='"& md5(userpass) &"' where adminname='"& oldusername &"'")
		else
			userpass = rs("userpass")
		End if
		if username <> oldusername then
			Conn.ExeCute("update JBB_admin set adminname='"& username &"' where adminname = '"& oldusername &"'")
		End if
		rs("usertitle") = replace(Trim(Request.Form("usertitle")),"'","")
		rs("usergroup") = usergroup
		rs("email") = replace(Trim(Request.Form("email")),"'","")
		rs("showemail") = Trim(Request.Form("showemail"))
		rs("styleid") = Trim(Request.Form("styleid"))
		rs("homepage") = replace(Trim(Request.Form("homepage")),"'","")
		rs("oicq") = replace(Trim(Request.Form("oicq")),"'","")
		rs("MSN") = replace(Trim(Request.Form("MSN")),"'","")
		if birthday <> "" then
			rs("birthday") = birthday
		End if
		rs("usersex") = Trim(Request.Form("usersex"))
		rs("useradd") = replace(Trim(Request.Form("useradd")),"'","")
		rs("signature") = replace(rTrim(Request.Form("signature")),"'","")
		rs("Cent") = Cent
	rs.update
	rs.close
	set rs = Nothing
	if old_group <> usergroup then		
		if CInt(old_group) = 1 then
			Conn.ExeCute("delete From JBB_admin where adminname='"& trim(request.form("old_username")) &"'")
		elseif Cint(old_group) = 2 then
			Conn.ExeCute("delete From JBB_Mod where Mod_nameID='"& userid &"' and Mod_super=1")
		End if
		if usergroup = 1 then
			Conn.ExeCute("insert into JBB_admin(adminname,adminpass) values('"& username &"','"& userpass &"')")
		elseif usergroup = 2 then
			Conn.ExeCute("insert into JBB_Mod(Mod_BoardID,Mod_nameID,Mod_super) values("& 0 &","& userid &","& 1 &")")
		End if
	End if
	response.Write("<br><br>　　成功修改用户"& username &"的资料")		
	Application.Lock
		Application(JBBMasterCookies&"Home_userInfo") = ""
	Application.UnLock
End Sub
'=============================
Sub Edit()
	userid = Trim(Request.QueryString("userid"))
		if Not(IsNumeric(userid)) then ErrorMsg "参数错误!~"
	set rsu = server.CreateObject("adodb.recordset")
	rsu.open "select * from JBB_user where userid = "&userid,conn,1,1
	if Not rsu.eof then
%>
<br>
  
<form name="form3" method="post" action="?action=SaveEdit&userid=<%=userid%>">
  <table width="560" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
    <tr bgcolor="#EFEFE7"> 
      <td colspan="2"><strong>修改用户</strong></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="175">用户名</td>
      <td width="362"> <input name="username" type="text" id="username" value="<%=rtrim(rsu("username"))%>"> 
        <input name="old_username" type="hidden" id="old_username" value="<%=rtrim(rsu("username"))%>"></td>
    </tr>
    <tr bgcolor="#F5F5F5"> 
      <td>密　码<br> </td>
      <td> <input name="userpass" type="text" id="userpass">
        不修改密码可留空</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>用户头衔</td>
      <td> <input name="usertitle" type="text" id="usertitle" value="<%=rtrim(rsu("usertitle"))%>"></td>
    </tr>
    <tr bgcolor="#F5F5F5"> 
      <td>用 户 组</td>
      <td> <select name="usergroup" id="usergroup">
          <option value="1" <%if rsu("usergroup") = 1 then response.Write("selected")%>>管理员</option>
          <option value="2" <%if rsu("usergroup") = 2 then response.Write("selected")%>>超级版主</option>
          <option value="3" <%if rsu("usergroup") = 3 then response.Write("selected")%>>版主</option>
          <option value="4" <%if rsu("usergroup") = 4 then response.Write("selected")%>>贵宾</option>
          <option value="5" <%if rsu("usergroup") = 5 then response.Write("selected")%>>普通会员</option>
          <%
		set rs = server.CreateObject("adodb.recordset")
		rs.open "select groupID,groupName from JBB_usergroup where groupID > 6",conn,1,1
		if Not(rs.Eof and rs.Bof) then
		for u = 1 to rs.recordCount
		%>
          <option value="<%=rs(0)%>" <%if rsu("usergroup") = rs(0) then response.Write("selected")%>><%=rtrim(rs(1))%></option>
          <%
		rs.MoveNext
		Next'u
		End if
		rs.close
		set rs = Nothing
		%>
        </select> <input name="old_group" type="hidden" id="old_group" value="<%=rsu("usergroup")%>"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>E_mail</td>
      <td> <input name="email" type="text" id="email" value="<%=rtrim(rsu("email"))%>"></td>
    </tr>
    <tr bgcolor="#F5F5F5"> 
      <td>在个人资料中显示Email?</td>
      <td>是 
        <input name="showemail" type="radio" value="1" <%if rsu("showemail") then response.Write("checked")%>>
        　 否 
        <input type="radio" name="showemail" value="0" <%if Not(rsu("showemail")) then response.Write("checked")%>></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>论坛风格</td>
      <td> <select name="styleid" id="styleid">
          <%
		set rs = server.CreateObject("adodb.recordset")
		rs.open "select styleid,stylename from JBB_style",conn,1,1
		if Not(rs.Bof and rs.Eof) then
		for s = 1 to rs.recordCount
		%>
          <option value="<%=rs(0)%>"  <%if rsu("styleid") = rs(0) then response.Write("selected")%>><%=rtrim(rs(1))%></option>
          <%
		rs.MoveNext
		Next's
		End if
		rs.close
		set rs = nothing
		%>
        </select></td>
    </tr>
    <tr bgcolor="#F5F5F5"> 
      <td>个人主页</td>
      <td> <input name="homepage" type="text" id="homepage" value="<%=rtrim(rsu("homepage"))%>"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>OICQ</td>
      <td> <input name="oicq" type="text" id="oicq" value="<%=rtrim(rsu("oicq"))%>"></td>
    </tr>
    <tr bgcolor="#F5F5F5"> 
      <td>MSN</td>
      <td> <input name="MSN" type="text" id="MSN" value="<%=rtrim(rsu("MSN"))%>"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>生日(格式:yyyy-mm-dd)</td>
      <td> <input name="birthday" type="text" id="birthday" value="<%=rtrim(rsu("birthday"))%>"></td>
    </tr>
    <tr bgcolor="#F5F5F5"> 
      <td>姓别</td>
      <td> <select name="usersex" id="usersex">
          <option value="1" <%if rsu("usersex") = 1 then response.Write("selected")%>>男</option>
          <option value="2" <%if rsu("usersex") = 2 then response.Write("selected")%>>女</option>
          <option value="3" <%if rsu("usersex") = 3 then response.Write("selected")%>>保密</option>
        </select></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>来自</td>
      <td bgcolor="#FFFFFF"> 
        <input name="useradd" type="text" id="useradd" value="<%=rtrim(rsu("useradd"))%>" size="35">
      </td>
    </tr>
    <tr bgcolor="#F5F5F5"> 
      <td valign="top">个性签名</td>
      <td valign="top"> <textarea name="signature" cols="35" rows="3" id="signature">
<%
if trim(rsu("signature"))<> "" then
response.write rsu("signature")
End if
%></textarea> </td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td valign="top">论坛积分</td>
      <td valign="top"><input name="Cent" type="text" id="Cent" value="<%=rsu("Cent")%>" size="8"></td>
    </tr>
  </table>
  <br>
<div align="center">
    <input name="Submit2" type="submit" class="form1" value="确定修改">
  　 
    <input name="Submit4" type="reset" class="form1" value="重置">

</div>  </form>
  <br>
  <%
	End if
	rsu.close
	set rsu = Nothing
End Sub
'=================================
Sub pm()
	
End Sub
%>
</body>
</html>
<%
set conn=nothing
%>