chinfo.asp

一个小巧的论坛程序 本程序基本功能： 可开设任意数目的讨论区类别和版块 使用Cookies

<%width=40
height=40
%>
<!--#include file="up.asp"--><!--#include file="fun.asp"--><!--#include file="md5.asp"-->
<br><%
function strLength(str)
       ON ERROR RESUME NEXT
       dim WINNT_CHINESE
       WINNT_CHINESE    = (len("论坛")=2)
       if WINNT_CHINESE then
          dim l,t,c
          dim i
          l=len(str)
          t=l
          for i=1 to l
             c=asc(mid(str,i,1))
             if c<0 then c=c+65536
             if c>255 then
                t=t+1
             end if
          next
          strLength=t
       else 
          strLength=len(str)
       end if
       if err.number<>0 then err.clear
end function
function ubbg(str)
dim re
	Set re=new RegExp
	re.IgnoreCase=true
	re.Global=True
re.Pattern="(height|javascript|jscript:|js:|value|about:|file:|document.cookie|vbscript:|vbs:|script|width|)"
str=re.Replace(str,"")

re.Pattern="(on(mouse|exit|error|click|key))"
str=re.Replace(str,"")
re.Pattern="(&)"
str=re.Replace(str,"")

set re=Nothing
ubbg=str
end function
sty="<P style='MARGIN: 8px'>"
t1="<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='98%' align=center><tr><td background='pic/"&sp&"3.gif' height=30 bgcolor="&c2&"> <p style='margin:5px'><img border='0' src='pic/fl.gif'> <font color='#FFFFFF'><b>"
t2="</b></font></p></td></tr></table><table align=center border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor="&c1&" width=98% >"
d1="<tr><td width=100% ><P style='MARGIN: 14px'>"
d2="</td></tr></table>"
newpwd=check2(Request.Form("newpwd"))
repwd=check2(Request.Form("repwd"))
email=check2(Request.Form("email"))
question=check2(Request.Form("question"))
old=check2(Request.Form("old"))
answer=check2(Request.Form("answer"))
sex=check2(Request.Form("sex"))
burn=check2(Request.Form("burn"))
home=check2(Request.Form("home"))
qq=check2(Request.Form("qq"))
toupic=check2(Request.Form("toupic"))
mypic=check2(Request.Form("mypic"))
mypic=ubbg(mypic)
ch=check2(Request.Form("ch"))
ku=check2(Request.Form("ku"))
gxqm=Request.Form("gxqm")
gxqm=check2(left(gxqm,255))
set canl=myconn.execute("select*from [user] where name='"&lgname&"' and password='"&lgpwd&"'")
if canl.eof or canl.bof then
%>
<%=t1%>错 误 信 息<%=t2&d1%>·你还没有登陆或者你登陆的用户名或密码错误！·<%=d2%><%
response.end
end if
anan=canl("answer")
if strlength(newpwd)>16 or Instr(newpwd,"=")>0 or Instr(newpwd,"%")>0 or Instr(newpwd,chr(32))>0 or Instr(newpwd,"?")>0 or Instr(newpwd,"&")>0 or Instr(newpwd,";")>0 or Instr(newpwd,",")>0 or Instr(newpwd,"'")>0 or Instr(newpwd,",")>0 or Instr(newpwd,chr(34))>0 or Instr(newpwd,chr(9))>0 or Instr(newpwd,"