admin_modifyok.asp

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

<!--#include file="mycheck.asp"-->
<%sub admin_modifyok()
%>
<%
if request("admin")="" then
error_html="<li>您得填写您的帐号哦！</li>"
end if
if Len(request("admin"))>20 then
error_html="<li>您的用户名太长了，可不能超过20个字符！</li>"
end if
if Instr(request("admin"),"=")>0 or Instr(request("admin"),"%")>0 or Instr(request("admin"),chr(32))>0 or Instr(request("admin"),"?")>0 or Instr(request("admin"),"&")>0 or Instr(request("admin"),";")>0 or Instr(request("admin"),",")>0 or Instr(request("admin"),"'")>0 or Instr(request("admin"),",")>0 or Instr(request("admin"),chr(34))>0 then
error_html="<li>您的用户名中含有非法字符！</li>"
end if
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("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 request("messagemax")="" then
error_html=error_html&"<li>你得填写你的留言字数限制，要不有时数据库会很大！</li>"
else
if isInteger(request("messagemax"))=false then
error_html=error_html&"<li>留言字数限制好像填写不正确哦！</li>"
end if
end if

if request("pagesize")="" then
error_html=error_html&"<li>你得填写你的留言每页显示留言数目！</li>"
else
if isInteger(request("pagesize"))=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_admin=server.createobject("adodb.recordset")
sql_admin="select * from admin where admin='"&session("user")&"'"
rs_admin.open sql_admin,conn,3,2
if (rs_admin.bof and rs_admin.eof) or session("zouwenye")<>"zouwenye" then
response.write("<meta HTTP-EQUIV='REFRESH' CONTENT='0;URL=?user="&request("user")&"'")
else
rs_admin("admin")=request("admin")
rs_admin("password")=request("password")
rs_admin("name")=request("name")
rs_admin("myhome")=request("myhome")
rs_admin("styleid")=request("styleid")
rs_admin("homepage")=request("homepage")
rs_admin("homename")=request("homename")
rs_admin("email")=request("email")
rs_admin("logo")=request("logo")
rs_admin("ubb")=request("ubb")
rs_admin("pagesize")=request("pagesize")
rs_admin("messagemax")=request("messagemax")
rs_admin("badwords")=request("badwords")
rs_admin("counter")=request("counter")
rs_admin("version_number")=request("version_number")
rs_admin.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><p><br>  [<a href=?user="&rs_admin("admin")&">进入我的留言本</a>] </td></tr></table>"
table(addok_html)
end if
end if
end sub%>