adminuser.asp

一个不错的论坛原代码

          </tr>
            <tr valign="baseline" > 
            <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">
            问题</td>
            <td bgcolor=<%=tColor2%> class=tdc height="19"> 
              <input type="text" name="question" size="50" class="tdc" value="<%=rsedit("question")%>">
            </td>
          </tr>
            <tr valign="baseline" > 
            <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">
            答案</td>
            <td bgcolor=<%=tColor2%> class=tdc height="19"> 
              <input type="text" name="answer" size="50" class="tdc">(若不修改请留空)
            </td>
          </tr>
                   <tr> 
            <td width="18%" bgcolor=<%=tColor2%> class=tdc align="right" height="22" >
            是否显示Email</td>
            <td width="82%" bgcolor=<%=tColor2%> class=tdc height="23"> 
              &nbsp;<input type="radio" name="openemail" value="0" <% if rsedit("u_todaytime")="0" then response.write"checked" end if%>>显示<input type="radio" name="openemail" value="1" size="20" <% if rsedit("u_todaytime")="1" then response.write"checked" end if%>>不显示
            </td>
          </tr>
           <tr valign="baseline" > 
            <td nowrap align="right"bgcolor=<%=tColor2%> class=tdc height="19">
            性别</td>
            <td bgcolor=<%=tColor2%> class=tdc height="19"> 
              <input type="radio"  name="sex" value=男 <% if rsedit("sex")="男" then response.write"checked" end if%>>男<input type="radio"  name="sex" value=女 <% if rsedit("sex")="女" then response.write"checked" end if%> >女
            </td>
          </tr>
          <tr valign="baseline" > 
            <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">OICQ</td>
            <td bgcolor=<%=tColor2%> class=tdc height="19"> 
              <input type="text" name="qq" size="12" class="tdc" value="<%=rsedit("qq")%>">
            </td>
          </tr>
         
          <tr valign="baseline" b> 
            <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">MSN</td>
            <td bgcolor=<%=tColor2%> class=tdc height="19"> 
              <input type="text" name="msn" size="32" class="tdc" value="<%=rsedit("msn")%>">
            </td>
          </tr>
          <tr valign="baseline" > 
            <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">来自</td>
            <td bgcolor=<%=tColor2%> class=tdc height="19"> 
              <input type="text" name="address" size="20" class="tdc" value="<%=rsedit("address")%>">
            </td>
          </tr>
               <tr valign="baseline"> 
            <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">
            登陆次数</td>
            <td bgcolor=<%=tColor2%> class=tdc height="19"> 
              <input type="text" name="u_logintimes" size="16" class="tdc" value="<%=rsedit("u_logintimes")%>">(只能为数字)
            </td>
          </tr>
              <tr valign="baseline"> 
            <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">
            共发表文章数</td>
            <td bgcolor=<%=tColor2%> class=tdc height="19"> 
              <input type="text" name="send" size="16" class="tdc" value="<%=rsedit("send")%>">
            </td>
          </tr>
                  <tr valign="baseline"> 
            <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">
            被删文章数</td>
            <td bgcolor=<%=tColor2%> class=tdc height="19"> 
              <input type="text" name="u_deltopic" size="16" class="tdc" value="<%=rsedit("u_deltopic")%>">
            </td>
          </tr>
                <tr valign="baseline"> 
            <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">
            精华文章数</td>
            <td bgcolor=<%=tColor2%> class=tdc height="19"> 
              <input type="text" name="u_toptopic" size="16" class="tdc" value="<%=rsedit("u_toptopic")%>">
            </td>
          </tr>
          <tr valign="baseline"> 
            <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">
            经验</td>
            <td bgcolor=<%=tColor2%> class=tdc height="19"> 
              <input type="text" name="fen" size="16" class="tdc" value="<%=rsedit("fen")%>">
            </td>
          </tr>
               <tr valign="baseline"> 
            <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">
            金钱</td>
            <td bgcolor=<%=tColor2%> class=tdc height="19"> 
              <input type="text" name="u_money" size="16" class="tdc" value="<%=rsedit("u_money")%>">
            </td>
          </tr>
                  <tr valign="baseline"> 
            <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">
            魅力</td>
            <td bgcolor=<%=tColor2%> class=tdc height="19"> 
              <input type="text" name="u_beauty" size="16" class="tdc" value="<%=rsedit("u_beauty")%>">
            </td>
          </tr>
          
          <tr valign="baseline" > 
            <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">主页</td>
            <td bgcolor=<%=tColor2%> class=tdc height="19"> 
              <input type="text" name="home" size="32" class="tdc" value="<%=rsedit("home")%>">
            </td>
          </tr>
          <tr > 
            <td nowrap align="right" valign="top" bgcolor=<%=tColor2%> class=tdc height="56">签名</td>
            <td valign="baseline" bgcolor=<%=tColor2%> class=tdc height="56"> 
              <textarea name="sign" cols="40" rows="4" wrap="VIRTUAL" class="tdc"><%=rsedit("sign")%></textarea>
            </td>
          </tr>
      
         
       
        <%face=rsedit("face")%>
          <tr valign="baseline" > 
            <td nowrap align="right"bgcolor=<%=tColor2%> class=tdc height="19"><img id=face src="<%=face%>" alt="头像">头像</td>
            <td height="19" bgcolor=<%=tColor2%> class=tdc> 
              <select name="face" onChange="document.images['face'].src=options[selectedIndex].value;" class="tdc">
                <% 
                 for i=1 to cpbface
Response.Write "<option "
facestr=cpbfaces&""&cpbfacestitle&"" & i & ""&cpbfaceslb
if facestr=rsedit("face") then Response.Write "selected "
Response.Write "value='" & facestr &"'>头像" &i &"</option>"
next%>
              </select>
            </td>
          </tr>
          <tr> 
            <td bgcolor=<%=tColor2%> class=tdc align="right">自定义头像</td>
            <td  bgcolor=<%=tColor2%> class=tdc> 
              <input type="text" name="imghead" size="40" value=<%=rsedit("imghead")%>> <input type="button" name="Submit2" value="预览" onClick="imghead1()" class=bdtj3><BR>
              头像宽度:<input type="text" name="imgwidth" size="3" value=<%=rsedit("imgwidth")%>>(最大不超过120)
              <BR>头像高度:<input type="text" name="imgheight" size="3" value=<%=rsedit("imgheight")%>>(最大不超过120)
                         <BR> <%if rsedit("imghead")<>"" then           
          response.write("<img src="""&chkimg(rsedit("imghead"))&"""  width="&rsedit("imgwidth")&" height="&rsedit("imgheight")&" name=""imgheadfy"">")
          else
          response.write("<img src=""""  width=0 height=0 name=""imgheadfy"">")
          end if%></td>
          </tr>
          <tr valign="baseline" > 
            <td nowrap <%=tColor%> class=tdc1 colspan="2" height="16" align="center">操作该用户</td>
          </tr>
           <tr > 
            <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">等级</td>
            <td height="19" bgcolor=<%=tColor2%> class=tdc> 
            
      <select size="1" name="grade">
       <option value=<%=rsedit("grade")%> selected>
       <% 
sql_fen = "select * from grade where g_num="&rsedit("grade")&""
set rs_fen =conn.Execute (sql_fen)%>
<%=rs_fen("g_title")%>
 <% 
 rs_fen.close
 set rs_fen=nothing

 %>
</option>
       <% sqledi="select * from grade"
set rs_fenlei=conn.execute(sqledi)
do while not rs_fenlei.Eof %>
      
      <option value=<%=rs_fenlei("g_num")%>><%=rs_fenlei("g_title")%></option>
      
      <%rs_fenlei.MoveNext 
        Loop
     
        set rs_fenlei=nothing%>  </select>

             </td>
          </tr>
          <tr valign="baseline"> 
            <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">
            头衔</td>
            <td bgcolor=<%=tColor2%> class=tdc height="19"> 
              <input type="text" name="u_name" size="16" class="tdc" value="<%=rsedit("u_name")%>">
            </td>
          </tr>
     <tr valign="baseline"> 
            <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">
            威望</td>
            <td bgcolor=<%=tColor2%> class=tdc height="19"> 
              <input type="text" name="u_weiwang" size="16" class="tdc" value="<%=rsedit("u_weiwang")%>">(只能为数字)
            </td>
          </tr>
           <tr valign="baseline"> 
            <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">
            屏蔽用户</td>
            <td bgcolor=<%=tColor2%> class=tdc height="19">
            <select size="1" name="lock">
       <option value=0  <% if rsedit("lock")="0" then%> selected<%end if%>>正常</option>
       <option value=1 <% if rsedit("lock")="1" then%>selected <%end if%>>屏蔽</option>
<option value=2 <% if rsedit("lock")="2" then%>selected <%end if%>>禁止用户登陆</option>
       
 </select>

                    
            (屏蔽用户可以屏蔽其发言资格或者禁止用户登陆)</td>
          </tr>

        <tr valign="baseline"> 
            <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">
            屏蔽发贴</td>
            <td bgcolor=<%=tColor2%> class=tdc height="19">
            <select size="1" name="locktopic">
       <option value=0  <% if rsedit("locktopic")="0" then%> selected<%end if%>>正常</option>
       <option value=1 <% if rsedit("locktopic")="1" then%>selected <%end if%>>屏蔽</option>
       
 </select>

                    
            (屏蔽发贴可以屏蔽其所有发言)</td>
          </tr>
          
          
              <tr valign="baseline"> 
            <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">
            屏蔽发短信</td>
            <td bgcolor=<%=tColor2%> class=tdc height="19">
            <select size="1" name="u_locksendpm">
       <option value=0  <% if rsedit("u_locksendpm")="0" then%> selected<%end if%>>正常</option>
       <option value=1 <% if rsedit("u_locksendpm")="1" then%>selected <%end if%>>屏蔽</option>
       
 </select>

                    
            (屏蔽发短信可以屏蔽其发短信)</td>
          </tr>
          
            
              <tr valign="baseline"> 
            <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">
            验证用户</td>
            <td bgcolor=<%=tColor2%> class=tdc height="19">
            <select size="1" name="u_yzreg">
       <option value=0  <% if rsedit("u_yzreg")="0" then%> selected<%end if%>>通过</option>
       <option value=1 <% if rsedit("u_yzreg")="1" then%>selected <%end if%>>不通过</option>
       
 </select>

                    
            (验证用户可以使其有发言权)</td>
          </tr>
          
          <tr valign="baseline" b> 
            <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">最后登陆时间</td>
            <td bgcolor=<%=tColor2%> class=tdc height="19"> 
              <%=rsedit("u_lastlogin")%>
            </td>
          </tr>


<tr valign="baseline"> 
            <td nowrap align="right" bgcolor=<%=tColor2%> class=tdc height="19">
选择操作</td>
<td bgcolor=<%=tColor2%> class=tdc height="19">
<INPUT type="radio" name="delete" value="no" checked>不进行任何操作<br>
<INPUT type="radio" name="delete" value="deleday">删除该用户 
<INPUT type="text" name="dd1" value="1" size="5" >  天的<select size="1" name="dd2">
<option value="1">主题</option>
<option value="2">回复</option>
</select><br>
<INPUT type="radio" name="delete" value="closetopic">关闭该用户发表的所有主题<br>
<INPUT type="radio" name="delete" value="deletetopic">删除该用户发表的所有主题或回复(慎重，不建议使用)<br>
<INPUT type="radio" name="delete" value="deleteuser">删除该用户 (包括删除该用户发表的所有主题或回复,慎重，不建议使用)
</td></tr>
          <tr valign="baseline" > 
            <td nowrap align="right" height="18" bgcolor=<%=tColor2%> class=tdc> 
                        </td>
            <td height="18" bgcolor=<%=tColor2%> class=tdc> 
              <input type="submit" value="修改用户信息" name="submit" class=bdtj>
            </td>
          </tr>
             </form>

        </table>

        </div>

<% end if
set rsedit=nothing

end sub

sub edit1()

set rsedit=server.createobject("adodb.recordset")
sqledit="select * from user where u_id="&chktopic(request("u_id"))&""
rsedit.open sqledit,conn,1,3
if  rsedit.eof and rsedit.bof then
errormsg="<li>不存在此用户，或者用户可能已经被管理员删除</li>"
call error(errormsg)
else
password=chktopic(trim(Request.Form("password"))) 
qq=chktopic(trim(Request.Form("qq")))
email=chktopic(trim(Request.Form("email"))) 
sex=chktopic(trim(Request.Form("sex")))
home=chktopic(trim(Request.Form("home")))
address=chktopic(trim(Request.Form("address")))
msn=chktopic(trim(Request.Form("msn")))
sign=chktopic(trim(Request.Form("sign")))
face=chktopic(trim(Request.Form("face")))
imghead=chktopic(trim(Request.Form("imghead")))
imgwidth=chktopic(trim(Request.Form("imgwidth")))
imgheight=chktopic(trim(Request.Form("imgheight")))
question=chktopic(trim(Request.Form("question")))
answer=chktopic(trim(Request.Form("answer")))
cyear=chktopic(trim(Request.Form("cyear")))
cmonth=chktopic(trim(Request.Form("cmonth")))
cday=chktopic(trim(Request.Form("cday")))
username=chktopic(trim(request.form("username")))
grade=chktopic(request.form("grade"))
fen=chktopic(request.form("fen"))
address=chktopic(request.form("address"))
lock=chktopic(request.form("lock"))
locktopic=chktopic(request.form("locktopic"))
u_beauty=chktopic(request.form("u_beauty"))
u_money=chktopic(request.form("u_money"))
u_name=chktopic(request.form("u_name"))
u_weiwang=chktopic(request.form("u_weiwang"))
u_deltopic=chktopic(request.form("u_deltopic"))
u_toptopic=chktopic(request.form("u_toptopic"))
u_logintimes=chktopic(request.form("u_logintimes"))
u_yzreg=chktopic(request.form("u_yzreg"))
u_locksendpm=chktopic(request.form("u_locksendpm"))
send=chktopic(request.form("send"))
openemail=chktopic(trim(request.form("openemail")))
if cday="" or cmonth="" or cyear="" then
h_birder=""
else
h_birder=cyear&"-"&cmonth&"-"&cday
end if
delete=chktopic(request.form("delete"))

ii=0
i=0
if delete="closetopic" then
sql="update topic set t_lock=1 where t_username='"&username&"'"
conn.execute(sql)

elseif delete="deleday" then
dd1=chktopic(request("dd1"))