modify.asp

超级留言簿（dxxo） 本留言参考了网上很多留言簿改进而来

<%sub modify()
if session("user")="" or session("user")<>request("user") then
response.write("<meta HTTP-EQUIV='REFRESH' CONTENT='0;URL=?user="&request("user")&"'")
else
sql_user="select * from user where user='"&session("user")&"'"
set rs_user=conn.execute(sql_user)
if rs_user.bof and rs_user.eof then
response.write("<meta HTTP-EQUIV='REFRESH' CONTENT='0;URL=?user="&request("user")&"'")
else

%>
<%tablefirst()%>
        <table width=100% border=1 cellspacing=0 cellpadding=2 bordercolorlight=#333333 bordercolordark=#FFFFFF align="center">
  <form name=submitok method=POST action=index.asp?action=modifyok&user=<%=rs_user("user")%>>
          <tr> 
            <td  align=center valign="top"> <font  class=link  > <br>
              </font> 
              
        <table width=100% border=0 cellspacing=0 cellpadding=6>
          <tr> 
            <td colspan="2" class=link  align="center">修 改 资 料</td>
          </tr>
          <tr> 
            <td colspan="2" class=link align="left" > 留言板地址： <%response.write("<font color=red>http://"&lcase(request.servervariables("HTTP_HOST"))&""&request.servervariables("url")&"?user="&request("user")&"")%>
            </td>
          </tr>
          <tr> 
            <td colspan="2" class=link align="left" > 留言板信息：申请时间为<%=rs_user("registration_time")%>，至今已有    
              <%=rs_user("counter")%> 人访问.</td>   
          </tr>
          <tr> 
            <td colspan="2" class=link align="left" > 
              <%if rs_user("confirm")=0 then
response.write("注意：你的申请资料尚未获站长 "&yourname&" 审核通过，保留随时删除你的帐号的权力.")
else
response.write("恭喜！你的申请资料已获站长 "&yourname&" 审核通过.")
end if%>
            </td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right">您的帐号：</td>
            <td width=70% class=link ><%=rs_user("user")%></td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right">您的密码：</td>
            <td width=70%> 
              <input type=password name=password size=21 maxlength=50 class=link value="<%=rs_user("password")%>">
            </td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right">确认密码：</td>
            <td width=70%> 
              <input type=password name=confirm size=21 maxlength=50 class=link value="<%=rs_user("password")%>">
            </td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right">您的姓名：</td>
            <td width=70%> 
              <input type=text name=name size=20 maxlength=50 class=link value="<%=rs_user("name")%>">
            </td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right" valign="middle">网站Logo：</td>
            <td width=70% valign="top"> 
              <input type=text name=logo size=20 maxlength=50 class=link value="<%=rs_user("logo")%>">
            </td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right">留言风格：</td>
            <td width=70%> 
              <select name="styleid" class=link>
                <%
    sql_style="select styleid,name from style"
   set rs_style=conn.execute(sql_style)
   while not rs_style.eof
    response.write "<option value="&rs_style("styleid")
    if rs_user("styleid")=rs_style("styleid") then
     response.write " selected"
    end if
   response.write ">"&rs_style("name")&"</option>"
   rs_style.movenext
   wend
   rs_style.close
  %>
              </select>
            </td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right">网站简称：</td>
            <td width=70%> 
              <input type=text name=myhome size=20 maxlength=5 class=link value="<%=rs_user("myhome")%>">
            </td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right">网站全称：</td>
            <td width=70%> 
              <input type=text name=homename size=50 maxlength=100 class=link value="<%=rs_user("homename")%>">
            </td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right">您的网址：</td>
            <td width=70%> 
              <input type=text name=homepage size=20 maxlength=50 class=link value="<%=rs_user("homepage")%>">
            </td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right">电子邮箱：</td>
            <td width=70%> 
              <input type=text name=email size=20 maxlength=50 class=link value="<%=rs_user("email")%>">
            </td>
          </tr>
          <tr> 
            <td width=30% class=link  align="right">网站简介：<br>
              <%if ubb=1 then%>
              支持UBB，<br>   
              <a href=javascript:openScript('?user=<%=request("user")%>&action=help_ubb',580,400)>UBB帮助</a>！    
              <%end if%>
              <br>
            </td>
            <td width="70%"> 
              <textarea rows=8 name=profile cols=45 class=link wrap="PHYSICAL"><%=rs_user("profile")%></textarea>
            </td>
          </tr>
        </table>
              <p> 
                
          <input type=submit value=修改完成 class=link name="Submit">
        </p>
              <p>&nbsp; </p>
            </td>
          </tr></form>
        </table>
 <%tablelast()%>
<%
end if
end if

end sub%>