useredit.asp

一个美化的论坛程序

<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<!--#include file="char.asp"-->
<script language="javascript">
function showimage()
{
	document.images.useravatars.src ="face/"+ document.reg2.face.options[document.reg2.face.selectedIndex].value;
}
</script>
<%
if Request.Cookies("bookbaby")("username")="" or isnull(Request.Cookies("bookbaby")("username")) or Request.Cookies("bookbaby")("userpwd")="" or isnull(Request.Cookies("bookbaby")("userpwd")) then
	errmsg="<li>你尚未登陆,无法修改自己的资料！</li>"
	call error()
	Response.end 
end if
username=Request.Cookies("bookbaby")("username")
Password=Request.Cookies("bookbaby")("userpwd")
set rs=server.createobject("adodb.recordset")
sql="select * from user where username='"&username&"' and password='"&password&"'"
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")
	UserWebName=rs("UserWebName")
	UserWebUrl=rs("UserWebUrl")
rs.close
end if
stat="修改注册资料"
if Request.Cookies("bookbaby")("username")<>"" then
    set rs1=conn.execute("select username from online where username='"&Request.Cookies("bookbaby")("username")&"'")
    if not rs1.eof then
	conn.execute("update online set stat='"&stat&"',lasttime='"&now()&"' where username='"&Request.Cookies("bookbaby")("username")&"'")
    else
	conn.execute "insert into online(username,sex,stat,lasttime) values ('"&Request.Cookies("bookbaby")("username")&"',"&Request.Cookies("bookbaby")("usersex")&",'"&stat&"','"&now()&"')"
    end if
    set rs1=nothing
else
	conn.execute("delete * from online where datediff('n',lasttime,now())>20")
end if%>
<!--#include file="top.asp"-->
<FORM name=reg2 action=Usersave.asp method=post>
  <table width="680" border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="<%=tablebackcolor%>">
    <tr> 
      <td bgcolor="<%=tabletitlecolor%>" align="center">基本资料</td>
    </tr>
    <tr> 
      <td bgcolor="<%=tablebodycolor%>"> 
        <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%>" disabled>
              <font color="#FF0000">*</font>(<font color="#FF0000">不可修改</font>，推荐使用中文名) 
            </td>
          </tr>
          <tr> 
            <td align="right" width="29%">密码：</td>
            <td colspan="2"> 
              <input type=password 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=password maxlength=20 size=16 name=password2 value="<%=password%>">
              <font color="#FF0000">*</font> (重复一下,以免您疏忽)</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="40%"> 
              <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> <a href="bg.htm" target="_blank">杳看图片</a>
	 </td>
          </tr>
        </table>
      </td>
    </tr>
    <tr> 
      <td bgcolor="<%=tabletitlecolor%>" align="center">详细资料</td>
    </tr>
</table>
  <table width="680" border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="<%=tablebackcolor%>">
    <tr> 
      <td bgcolor="<%=tablebodycolor%>" 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="submit" value="『 修 改 』">
        <input type="button" value="『 放 弃 』" onclick="javascript:history.go(-1)">
        <input type="hidden" name="action" value="edit">
      </td>
    </tr>
</table>
</FORM>
<!--#include file="copyright.asp"-->
</BODY>
</HTML>