regfun.asp

不出错的ASP整站源码。 后台//本机目录地址/login.asp(admin.asp) 密码和用户名：admin.asp

<%
dim re,str,str1,lens,pass_c

function ubbg(str)
Set re=new RegExp
re.IgnoreCase=true
re.Global=True
re.Pattern="((javascript:)|(height)|(width)|(jscript:)|(object)|(script)|(js:)|(vbscript:)|(vbs:)|(\.value)|(about:)|(file:)|(document.cookie)|(on(mouse|exit|error|click|key|load)))"
str=re.Replace(str,"")
re.Pattern="(&#)"
str=re.Replace(str,"＆＃")
re.Pattern="(\|)"
str=re.Replace(str,"&#124;")
set re=Nothing
ubbg=str
end function

function strlength(str)
set re=new regexp
re.Global=true
re.IgnoreCase=true
re.Pattern="[\u4E00-\u9FA5\uF900-\uFA2D]"
set str1=re.Execute(str)
for each i in str1
lens=lens+1
next
lens=lens + len(str)
strLength=lens
end function

Function passc(str)
  passc=true
  If str <> "" Then
	set re = New RegExp
	re.Global = True
	re.IgnoreCase = True
    re.Pattern="[^A-Za-z#0-9]"
    pass_c=re.Test(str)
	end if
	if pass_c then passc=false
end function

function pass_name(str)
pass_name=true
if Instr(str,"=")>0  or Instr(str,"%")>0 or Instr(str,chr(32))>0  or Instr(str,"?")>0 or Instr(str,"&")>0 or Instr(str,";")>0 or Instr(str,",")>0  or Instr(str,"'")>0 or Instr(str,".")>0 or Instr(str,chr(34))>0 or Instr(str,chr(9))>0  or Instr(str,"