admin_usermodify.asp

一个美化的论坛程序

<!--#include file="function.asp"-->
<%CheckAdmin%>
<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<%
id=request.QueryString("id")
set rs=server.createobject("adodb.recordset")
sql="select * from user where id="&id
rs.open sql,conn,1,1
if rs.eof then
	errmsg="<br><li>操作错误！请联系管理员</li>"
	call error()
	Response.end
else
	UserName=rs("UserName")
	Birthday=rs("Birthday")
	TrueName=rs("TrueName")
	password=rs("password")
	Address=rs("Address")
	face=rs("face")
	Sex=rs("Sex")
	Email=rs("Email")
	oicq=rs("oicq")
	sign=rs("sign")
	ask=rs("ask")
	answer=rs("answer")
	title=rs("title")
	UserWebName=rs("UserWebName")
	UserWebUrl=rs("UserWebUrl")
rs.close
end if
%>
<!--#include file="top.asp"-->
<img src="" width="1" height="3"><table border="0" width="680" cellspacing="1" cellpadding="1" bgcolor="<%=tablebackcolor%>" align="center">
  <tr> 
    <script language="javascript">
function showimage()
{
	document.images.useravatars.src ="face/"+ document.form2.face.options[document.form2.face.selectedIndex].value;
}
</script>
    <td width=20% valign=top bgcolor="<%=tabletitlecolor%>"> 
      <!--#include file="admin_left.asp"-->
    </td>
    <td align=center valign=top bgcolor="<%=tablebodycolor%>"> 
      <form method="POST" action="admin_UserSave.asp?id=<%=id%>" id=form2 name=form2>
        <table width="98%" border="0" cellspacing="1" cellpadding="1" align="center">
          <tr> 
            <td bgcolor="<%=tabletitlecolor%>" align="center"><font color="#FFFFFF">基本资料</font></td>
          </tr>
          <tr> 
            <td> 
              <table width="80%" border="0" cellspacing="1" cellpadding="2" align="center">
                <tr> 
                  <td width="29%" align="right">用户名：</td>
                  <td colspan="2"> 
                    <input maxlength=20 size=16 name=UserName value="<%=username%>">
                    <font color="#FF0000">*</font>(<font color="#FF0000">不可修改</font>，推荐使用中文名) 
                  </td>
                </tr>
                <tr> 
                  <td align="right" width="29%">头衔：</td>
                  <td colspan="2"> 
                    <input type=text maxlength=20 size=16 name=title value="<%=title%>">
                  </td>
                </tr>
                <tr> 
                  <td align="right" width="29%">密码：</td>
                  <td colspan="2"> 
                    <input type=text maxlength=20 size=16 name=password value="<%=password%>">
                    <font color="#FF0000">*</font> (您的钥匙,最长20位)</td>
                </tr>
                <tr> 
                  <td align="right" width="29%">密码提示：</td>
                  <td colspan="2"> 
                    <input type=text maxlength=50 size=25 name=ask value="<%=ask%>">
                    <font color="#FF0000">*</font>(如：1+2=?) </td>
                </tr>
                <tr> 
                  <td align="right" width="29%">提示答案：</td>
                  <td colspan="2"> 
                    <input type=text maxlength=50 size=25 name=answer value="<%=answer%>">
                    <font color="#FF0000">*</font>(如：好象是4)</td>
                </tr>
                <tr> 
                  <td align="right" width="29%">Email地址：</td>
                  <td colspan="2"><font color="#FF0000"> 
                    <input maxlength=50 size=25 name=Email value="<%=email%>">
                    *</font>（如：[e-mail]）</td>
                </tr>
                <tr> 
                  <td align="right" width="29%">性别：</td>
                  <td width="26%"> 
                    <%if sex=true then%>
                    <input type=radio CHECKED value="1" name=sex>
                    男 
                    <input type=radio value="0" name=sex>
                    女 
                    <%else%>
                    <input type=radio value="1" name=sex>
                    男 
                    <input type=radio CHECKED value="0" name=sex>
                    女 
                    <%end if%>
                    <font color="#FF0000">*</font></td>
                  <td rowspan="2" width="45%"><img src="face/<%=face%>" name="useravatars"  border=1 hspace=15></td>
                </tr>
                <tr> 
                  <td align="right" width="29%">个人头像：</td>
                  <td width="26%"> 
                    <select name="face" size="1" onChange="showimage()">
                      <%For dido = 1 To 60
Response.Write "<option" 
Response.Write " value=Image" & dido & ".gif"
if instr(face,dido)>0 then response.write " selected"
response.write">Image" & dido & ".gif</option>" & vbcrlf
Next%>
                    </select></td>
                </tr>
              </table>
            </td>
          </tr>
          <tr> 
            <td bgcolor="<%=tabletitlecolor%>" align="center"><font color="#FFFFFF">详细资料</font></td>
          </tr>
        </table>
        <table width="98%" border="0" cellspacing="1" cellpadding="1" align="center">
          <tr> 
            <td align="center"> 
              <table width="80%" border="0" cellspacing="1" cellpadding="1">
                <tr> 
                  <td width="29%" align="right">真实姓名：</td>
                  <td width="71%"> 
                    <input maxlength=20 size=16 name=TrueName value="<%=truename%>">
                  </td>
                </tr>
                <tr> 
                  <td align="right">出生日期：</td>
                  <td> 
                    <%
yeararr=split(birthday,"-")
byear=yeararr(0)
bmonth=yeararr(1)
bday=yeararr(2)
%>
                    <select size="1" name="Byear">
                      <option value="">－－</option>
                      <%for i=1940 to year(date)-3%>
                      <option value="<%=i%>" <%if cstr(byear)=cstr(i) then%> selected <%end if%>><%=i%></option>
                      <%next%>
                    </select>
                    年 
                    <select size="1" name="Bmonth">
                      <option value="">－</option>
                      <%for i=1 to 12%>
                      <option value="<%=i%>" <%if cstr(Bmonth)=cstr(i) then%> selected <%end if%>><%=i%></option>
                      <%next%>
                    </select>
                    月 
                    <select size="1" name="Bday">
                      <option value="">－</option>
                      <%for i=1 to 31%>
                      <option value="<%=i%>" <%if cstr(Bday)=cstr(i) then%> selected <%end if%>><%=i%></option>
                      <%next%>
                    </select>
                    日</td>
                </tr>
                <tr> 
                  <td align="right">OICQ号码：</td>
                  <td> 
                    <input maxlength=10 size=20 name=OICQ value="<%=oicq%>">
                  </td>
                </tr>
                <tr> 
                  <td align="right">地区：</td>
                  <td> 
                    <select  name=Address size=1>
                      <option value="" selected>请选择</option>
                      <%if address<>"" then%>
                      <option value="<%=Address%>" selected><%=Address%></option>
                      <%end if%>
                      <option value="安徽省">安徽省</option>
                      <option value="澳门特别行政区">澳门特别行政区</option>
                      <option value="北京市">北京市</option>
                      <option value="重庆市">重庆市</option>
                      <option value="福建省">福建省</option>
                      <option value="甘肃省">甘肃省</option>
                      <option value="广东省">广东省</option>
                      <option value="广西省">广西省</option>
                      <option value="贵州省">贵州省</option>
                      <option value="海南省">海南省</option>
                      <option value="河北省">河北省</option>
                      <option value="河南省">河南省</option>
                      <option value="黑龙江省">黑龙江省</option>
                      <option value="湖北省">湖北省</option>
                      <option value="湖南省">湖南省</option>
                      <option value="吉林省">吉林省</option>
                      <option value="江苏省">江苏省</option>
                      <option value="江西省">江西省</option>
                      <option value="辽宁省">辽宁省</option>
                      <option value="内蒙古">内蒙古</option>
                      <option value="宁夏回族自治区">宁夏回族自治区</option>
                      <option value="青海省">青海省</option>
                      <option value="山西省">山西省</option>
                      <option value="四川省">四川省</option>
                      <option value="山东省">山东省</option>
                      <option value="陕西省">陕西省</option>
                      <option value="上海市">上海市</option>
                      <option value="台湾省">台湾省</option>
                      <option value="天津市">天津市</option>
                      <option value="香港特别行政区">香港特别行政区</option>
                      <option value="新疆自治区">新疆自治区</option>
                      <option value="云南省">云南省</option>
                      <option value="西藏自治区">西藏自治区</option>
                      <option value="浙江省">浙江省</option>
                      <option value="国外">国外</option>
                      <option value="其他">其他</option>
                    </select>
                  </td>
                </tr>
                <tr> 
                  <td align="right">主页名称：</td>
                  <td> 
                    <input maxlength=20 size=20 name=UserWebName value="<%=UserWebName%>">
                  </td>
                </tr>
                <tr> 
                  <td align="right">主页地址：</td>
                  <td> 
                    <input maxlength=100 size=50 name=UserWebUrl value="<%=UserWeburl%>">
                  </td>
                </tr>
                <tr> 
                  <td align="right" valign="top">个性签名：</td>
                  <td> 
                    <textarea name=sign rows=5 wrap=PHYSICAL cols=50><%if sign<>"" then%><%=htmldecode(sign)%><%end if%></textarea>
                    <br>
                    极富个性的签名,随时随地展示您的魅力</td>
                </tr>
              </table>
            </td>
          </tr>
          <tr> 
            <td bgcolor="<%=tabletitlecolor%>" align="center"> 
              <input type="hidden" value="edit" name="act">
              <input type="submit" value=" 修 改 ">
              &nbsp; 
              <input type="reset" value=" 清 除 ">
            </td>
          </tr>
        </table>
      </FORM>
    </td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
<%
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>