egedit.asp

obbs完全基于Dreamweaver 和EmEditor 下面完成.采用最好的可视结构,非常用利于修改,结构很明确.代码效少.管理非常简单

<!--#include file="CONN.ASP" -->
<!--#include file="ubbcode.asp" -->
<!--#include file="md5.asp" -->
<%
if not userislogin then
founderr=true
errmess=errmess+"<li>对不起!我们发现你现在还没登录!所以无法完成你的操作请求!请<a href=Login.asp>登录</a>"
end if
if userloginlock=1 then
founderr=true
errmess=errmess+"<li>对不起!我们发现你的ID被封闭!<li>原因:可能你违反有关规定<li>所以无法完成你的操作请求!请<a href=index.asp>返回首页</a>"
end if
if request.Form("form1")<>"" then
call editupdate()
end if

sub editupdate()
'on error resume next
dim quesion,answer,Email,rs,sql,qmlong,birthday,objitem
quesion=Trim(request.form("quesion"))
answer=Trim(request.form("answer"))
Email = Trim(Request.form("Email"))
If Email = "" or quesion="" or answer="" Then
response.write "<script language=JavaScript>" & chr(13) & "alert('请检查您填写的内容是否完整！');history.back()</script>"
Response.End
end if
If Instr(Email, "@") = 0 Or Right(Email, 1) = "@" Or Left(Email, 1) = "@" Then
response.write "<script language=JavaScript>" & chr(13) & "alert('请检查您的邮件地址是否正确！');history.back();</script>"
Response.End
end if
qmlong=split(request.form("Signature"),vbCrlf)
if ubound(qmlong)>8 then 
response.write "<script language=JavaScript>" & chr(13) & "alert('签名不能超过8行！请更正好再提交');history.back();</script>"
Response.End
End If

if founderr then
exit sub
end if
birthday=request.form("byear")&"-"&request.form("bmonth")&"-"&request.form("bday")
set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from userinfo where user='"&loginuser&"'"
rs.Open sql,conn,1,3
rs("quesion")=quesion
rs("answer")=MD5(answer)
rs("xb")=request.Form("xb")
rs("width")=request.Form("width")
rs("height")=request.Form("height")
rs("email")=email
rs("myface")=request.Form("myface")
rs("conn")=dvHTMLEncode(request.Form("conn"))
rs("ubbqm")=userubbqm(request.form("Signature"))
rs("Signature")=request.form("Signature")
rs("birthday")=birthday
rs("userseting")=request.Form("setuser1")&"|"&request.Form("mess")
rs.update
response.cookies("renwen")("user")=rs("user")
response.cookies("renwen")("passedok")="ofdkjduy"
response.Cookies("rewin")("errmess")="<li>您注册资料已经成功修改，感谢您的支持！单击这里<li><a href=index.asp>进入论坛</a>"
Response.Redirect "error.asp?founderr=mess"
Response.end
end sub
if founderr then
call founderror(errmess)
end if
%>
<!--#include file="mymem.asp" -->
<!--#include file="mymeumu.asp" -->
<%
dim rs,birthday,byear,bday,bmonth
set rs=conn.execute("select * from userinfo where user='"&loginuser&"'")
birthday=rs("birthday")
byear=year(birthday)
bday=day(birthday)
bmonth=month(birthday)
%>
<FORM name=form1  action=egedit.asp method=post >
  <table width="770" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#92b9fb">
    <tr class="tableborder1"> 
      <td height="22" colspan="2" background="backimg/bg1.gif" class=tablebody1> 
        <font color="#FFFFFF"><strong>用户资料修改 </strong></font></td>
    </tr>
    <tr bgcolor="#E0E4FE" class="tableborder1"> 
      <td width="19%" bgcolor="#FFFFFF"  class=tablebody1>性别：<br> </td>
      <td width="81%" bgcolor="#FFFFFF"  class=tablebody1> <input type=radio CHECKED value=男孩 name=xb> 
        <img  src=pic/Male.gif align=absMiddle>男孩 &nbsp;&nbsp;&nbsp;&nbsp; <input type=radio value=女孩 name=xb> 
        <img  src=pic/Female.gif align=absMiddle>女孩&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 
        请选择您的性别</td>
    </tr>
    <tr bgcolor="#FFFFFF" class="tableborder1"> 
      <td  class=tablebody1><font color="#FF0000">*</font>密码问题：</td>
      <td class=tablebody1> <input name=quesion type=text value="<%=rs("quesion")%>" size=30>
        忘记密码的提示问题 </td>
    </tr>
    <tr bgcolor="#FFFFFF" class="tableborder1"> 
      <td  class=tablebody1><font color="#FF0000">*</font>问题答案：<br> </td>
      <td class=tablebody1> <input name=answer type=text size=30> 
        &nbsp; &nbsp; 忘记密码的提示问题答案，用于取回论坛密码 </td>
    </tr>
    <tr bgcolor="#FFFFFF" class="tableborder1"> 
      <td  class=tablebody1><font color="#FF0000">*</font>Email地址：<br> </td>
      <td  class=tablebody1> <input name=email value="<%=rs("email")%>" size=30 maxlength=50>