<%
'=========================================================================
'functionforpjblog2
'6 : 2006-6-2
'=========================================================================
'*********************************
'防止外部提交
'*********************************
functionchkpost ()
Dimserver_v1, Server_v2
chkpost = false
server_v1 = cstr (request.servervariables ( "http_referer"))
server_v2 = cstr (request.servervariables ( "server_name"))
ifmid (server_v1,8, len (server_v2)) <> server_v2then
chkpost = false
또 다른
chkpost = true
endif
최종 기능 장애
'*********************************
'IP 过滤
'*********************************
functionmatchip (IP)
onerrorresumenext
matchip = false
Dimsip, Splitip
foreachsipinfilterip
sip = 교체 (sip, "*", "/d*")
splitip = split (sip, ".")
Dimre, Strmatchs, 스트립
setre = newRegexp
re.ignorecase = true
re.global = true
re.pattern = "("& splitip (0) & "|)."& "("& splitip (1) & "|)."& "("& splitip (2) & "|)."& "("& splitip (3) & "|)"
setstrmatchs = re.Execute (IP)
Strip = strmatchs (0) .Submatches (0) & "."& strmatchs (0) .submatches (1) & "."& strmatchs (0) .submatches (2) & "."& strmatchs (0) .submatches (3).
ifstrip = ipthenMatchip = true : exitfunction
setstrmatchs = 아무것도
setre = 아무것도
다음
최종 기능 장애
'*********************************
'获得注册码
'*********************************
functiongetCode ()
getCode = "<imgsrc =" "common/getCode.asp" "alt =" "" "style =" "margin-right : 40px;" "/>"
최종 기능 장애
'*********************************
'限制上传文件类型
'*********************************
functionisValidFile (file_type)
isvalidfile = false
DIMGNAME
foreachgnameinup_fileType
iffile_type = gnamethen
isvalidfile = true