modifyok.asp

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

<!--#include file="ip.asp"-->
<!--#include file="mycheck.asp"-->
<%sub modifyok()
%>
<%
if request("password")="" then
error_html=error_html&"<li>您的密码还没有填写，没有密码以后不能管理的哦！</li>"
end if

if Len(request("password"))>15 then
error_html="<li>您的密码太长了，可不能超过15个字符！</li>"
end if
if Instr(request("password"),"=")>0 or Instr(request("password"),"%")>0 or Instr(request("password"),chr(32))>0 or Instr(request("password"),"?")>0 or Instr(request("password"),"&")>0 or Instr(request("password"),";")>0 or Instr(request("password"),",")>0 or Instr(request("password"),"'")>0 or Instr(request("password"),",")>0 or Instr(request("password"),chr(34))>0 then
error_html="<li>您的密码中含有非法字符！</li>"
end if
if request("password")<>request("confirm") then
error_html=error_html&"<li>您的密码和确认密码好像不相同哦！</li>"
end if

if request("name")="" then
error_html=error_html&"<li>您得填写您的姓名哦！</li>"
end if

if Len(request("name"))>20 then
error_html="<li>您的姓名太长了，可不能超过20个字符！</li>"
end if
if request("myhome")="" then
error_html=error_html&"<li>您得填写您的网站简称，即你的留言板名字</li>"
end if
if Len(request("myhome"))>10 then
error_html="<li>网站简称太长了，可不能超过 5 个字符！</li>"
end if
if request("profile")="" then
error_html=error_html&"<li>您得填写您的网站简介哦！就是网站的内容！</li>"
end if
if Len(request("profile"))>messagemax then
error_html="<li>网站简介太长了，可不能超过"&messagemax&"个字符！</li>"
end if
if request("homename")="" then
error_html=error_html&"<li>您得填写您的网站全称哦！网站都得有个名字啊！</li>"
end if
if Len(request("homename"))>100 then
error_html="<li>您的网站全称太长了，可不能超过100个字符！</li>"
end if

if request("homepage")="" or request("homepage")="http://" then
error_html=error_html&"<li>您得填写您的网址哦！没有网址怎样访问？</li>"
end if

if request("email")="" then
error_html=error_html&"<li>还没有填写电子邮箱哦！</li>"
else
if IsValidEmail(trim(request("email")))=false then
error_html=error_html&"<li>电子邮箱好像不正确哦！</li>"
end if
end if


if error_html<>"" then
error_html=error_html&"<p align=center>[<a href=javascript:history.go(-1);>这里返回</a>]</p>"
error_html="<table width=100% height=151 border=1 cellspacing=0 cellpadding=3 bordercolorlight=#333333 bordercolordark=#FFFFFF>        <tr>           <td width='100%' height='6' class=link > "&error_html&"</td></tr></table>"
table(error_html)
else
if session("user")="" then
response.write("<meta HTTP-EQUIV='REFRESH' CONTENT='0;URL=?user="&request("user")&"'")
end if
set rs_user=server.createobject("adodb.recordset")
sql_user="select * from user where user='"&session("user")&"'"
rs_user.open sql_user,conn,3,2
if (rs_user.bof and rs_user.eof) then
response.write("<meta HTTP-EQUIV='REFRESH' CONTENT='0;URL=?user="&request("user")&"'")
else
rs_user("password")=request("password")
rs_user("name")=request("name")
rs_user("myhome")=request("myhome")
rs_user("styleid")=request("styleid")
rs_user("homepage")=request("homepage")
rs_user("homename")=request("homename")
rs_user("email")=request("email")
rs_user("logo")=request("logo")
rs_user("profile")=request("profile")
rs_user("from_address")=address(Request.ServerVariables("REMOTE_ADDR"))
rs_user.update
addok_html="<table width=100% height=151 border=1 cellspacing=0 cellpadding=3 bordercolorlight=#333333 bordercolordark=#FFFFFF>        <tr>           <td width='100%' height='6' class=link  align=center>  祝贺！您已成功修改资料.<br> 请注意，我们将审阅您的资料，如果资料不正确，我们将停止您的留言板.<br>  我们将在你的管理面板里通知您，如果资料不正确，请及时修改！<p><br>  [<a href=?user="&rs_user("user")&">进入我的留言本</a>] </td></tr></table>"
table(addok_html)
end if
end if
end sub%>