Asp中对ip进行过滤限制函数
<%
'获取访问者的地址
ip=Request.ServerVariables("REMOTE_ADDR")
'允许的IP地址段为10.0.0.0～10.68.63.255
allowip1="10.0.0.0"
allowip2="10.68.10.71"
response.writecheckip(ip,allowip1,allowip2)
functioncheckip(ip,allowip1,allowip2)
dimcheck(4)
checkip=false
ipstr=split(ip,".")
allow1=split(allowip1,".")
allow2=split(allowip2,".")
ifcint(allow1(0))>cint(allow2(0))then
'判断IP地址段是否合法
response.write"IP地址段出错！"
exitfunction
endif
fori=0toubound(ipstr)
ifcint(allow1(i))<cint(allow2(i))then
ifcint(allow1(i))=cint(ipstr(i))then
check(i)=true
checkip=true
exitfor
elseifcint(ipstr(i))<cint(allow2(i))then
check(i)=true
checkip=true
exitfor
elseifcint(ipstr(i))>cint(allow2(i))then
check(i)=false
checkip=false
exitfor
else
check(i)=true
checkip=true
endif
endif
endif
elseifcint(allow1(i))>cint(ipstr(i))orcint(allow1(i))<cint(ipstr(i))then
check(i)=false
checkip=false
ifi<>ubound(ipstr)then
exitfor
endif
else
check(i)=true
endif
endif
next
if(check(0)=trueandcheck(1)=trueandcheck(2)=trueandcheck(3)=false)and(cint(allow2(2))>cint(ipstr(2)))then
checkip=true
endif
endfunction
%>
<%
'列举使用HTML表单提交的所有值
ForEachitemInRequest.Form
Response.WriteRequest.Form(item)
Next
%>
列举使用HTML表单提交的所有值
利用ASP得到图片尺寸大小
<%
imgpath="default_22.gif"
setpp=newimgInfo
w=pp.imgW(server.mappath(imgpath))
h=pp.imgH(server.mappath(imgpath))
setpp=nothing
response.write"<imgsrc='"&imgpath&"'border=0><br>宽:"&w&";高:"&h
ClassimgInfo
dimaso
PrivateSubClass_Initialize
setaso=CreateObject("Adodb.Stream")
aso.Mode=3
aso.Type=1
aso.Open
EndSub
PrivateSubClass_Terminate
err.clear
setaso=nothing
EndSub
PrivateFunctionBin2Str(Bin)
DimI,Str
ForI=1toLenB(Bin)
clow=MidB(Bin,I,1)
ifASCB(clow)<128then
Str=Str&Chr(ASCB(clow))
else
I=I+1
ifI<=LenB(Bin)thenStr=Str&Chr(ASCW(MidB(Bin,I,1)&clow))
endif
Next
Bin2Str=Str
EndFunction
PrivateFunctionNum2Str(num,base,lens)
dimret
ret=""
while(num>=base)
ret=(nummodbase)&ret
num=(num-nummodbase)/base
wend
Num2Str=right(string(lens,"0")&num&ret,lens)
EndFunction
PrivateFunctionStr2Num(str,base)
dimret
ret=0
fori=1tolen(str)
ret=ret*base+cint(mid(str,i,1))
next
Str2Num=ret
EndFunction
PrivateFunctionBinVal(bin)
dimret
ret=0
fori=lenb(bin)to1step-1
ret=ret*256+ascb(midb(bin,i,1))
next
BinVal=ret
EndFunction
PrivateFunctionBinVal2(bin)
dimret
ret=0
fori=1tolenb(bin)
ret=ret*256+ascb(midb(bin,i,1))
next
BinVal2=ret
EndFunction
PrivateFunctiongetImageSize(filespec)
dimret(3)
aso.LoadFromFile(filespec)
bFlag=aso.read(3)
selectcasehex(binVal(bFlag))
case"4E5089":
aso.read(15)
ret(0)="PNG"
ret(1)=BinVal2(aso.read(2))
aso.read(2)
ret(2)=BinVal2(aso.read(2))
case"464947":
aso.read(3)
ret(0)="GIF"
ret(1)=BinVal(aso.read(2))
ret(2)=BinVal(aso.read(2))
case"535746":
aso.read(5)
binData=aso.Read(1)
sConv=Num2Str(ascb(binData),2,8)
nBits=Str2Num(left(sConv,5),2)
sConv=mid(sConv,6)
while(len(sConv)<nBits*4)
binData=aso.Read(1)
sConv=sConv&Num2Str(ascb(binData),2,8)
wend
ret(0)="SWF"
ret(1)=int(abs(Str2Num(mid(sConv,1*nBits+1,nBits),2)-Str2Num(mid(sConv,0*nBits+1,nBits),2))/20)
ret(2)=int(abs(Str2Num(mid(sConv,3*nBits+1,nBits),2)-Str2Num(mid(sConv,2*nBits+1,nBits),2))/20)
case"FFD8FF":
do
do:p1=binVal(aso.Read(1)):loopwhilep1=255andnotaso.EOS
ifp1>191andp1<196thenexitdoelseaso.read(binval2(aso.Read(2))-2)
do:p1=binVal(aso.Read(1)):loopwhilep1<255andnotaso.EOS
loopwhiletrue
aso.Read(3)
ret(0)="JPG"
ret(2)=binval2(aso.Read(2))
ret(1)=binval2(aso.Read(2))
caseelse:
ifleft(Bin2Str(bFlag),2)="BM"then
aso.Read(15)
ret(0)="BMP"
ret(1)=binval(aso.Read(4))
ret(2)=binval(aso.Read(4))
else
ret(0)=""
endif
endselect
ret(3)="width="""&ret(1)&"""height="""&ret(2)&""""
getimagesize=ret
EndFunction
PublicFunctionimgW(pic_path)
Setfso1=server.CreateObject("Scripting.FileSystemObject")
If(fso1.FileExists(pic_path))Then
Setf1=fso1.GetFile(pic_path)
ext=fso1.GetExtensionName(pic_path)
selectcaseext
case"gif","bmp","jpg","png":
arr=getImageSize(f1.path)
imgW=arr(1)
endselect
Setf1=nothing
else
imgW=0
Endif
Setfso1=nothing
EndFunction
PublicFunctionimgH(pic_path)
Setfso1=server.CreateObject("Scripting.FileSystemObject")
If(fso1.FileExists(pic_path))Then
Setf1=fso1.GetFile(pic_path)
ext=fso1.GetExtensionName(pic_path)
selectcaseext
case"gif","bmp","jpg","png":
arr=getImageSize(f1.path)
imgH=arr(2)
endselect
Setf1=nothing
else
imgH=0
Endif
Setfso1=nothing
EndFunction
EndClass
%>
客户端屏幕分辨率：Request.SERVERVARIABLES("HTTP_UA_PIXELS")
如何判断URL格式是否符合规范？
<%functioncheckisUrl(tmpString)
dimc,icheckisUrl=truetmpString=Lcase(trim(tmpString))ifleft(tmpString,7)<>"http://"thentmpStri...//"&tmpStringfori=8toLen(checkisUrl)c=Lcase(Mid(tmpString,i,1))ifInStr("abcdefghijklmnopqrstuvwxyz_-./",c)<=0andnotIsNumeric(c)thencheckisUrl=falseexitfunctionendifnextifLeft(tmpString,1)="."orRight(tmpString,1)="."thencheckisUrl=falseexitfunctionendififInStr(tmpString,".")<=0thencheckisUrl=falseresponse.Write"f3"exitfunctionendififInStr(checkisUrl,"..")>0thencheckisUrl=falseendif
endfunction%><%
ifcheckisUrl(request("u"))=truethen%>恭喜,你的URL通过!<%else%>对不起,你的URL不合乎规范,请重新检查!<%endif%>
如何利用数据库内容建立一个下拉式列表？
<%myDSN="DSN=xur;uid=xur;pwd=xur"mySQL="select*fromauthorswhereAU_ID<100"setconntemp=server.createobject("adodb.connection")conntemp.openmyDSNsetrstemp=conntemp.execute(mySQL)ifrstemp.eofthenresponse.write"噢,数据库为空!"response.writemySQLconntemp.closesetconntemp=nothingresponse.endendif%><%dountilrstemp.eof%><%rstemp.movenextlooprstemp.closesetrstemp=nothingconntemp.closesetconntemp=nothing'清空对象%>
'获取用户真实IP函数
FunctionGetIP()
GetIP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
IfGetIP=""ThenGetIP=Request.ServerVariables("REMOTE_ADDR")
EndFunction
'获取完整地址栏地址
FunctionGetUrl()
GetUrl="http://"&Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("URL")
IfRequest.ServerVariables("QUERY_STRING")<>""ThenGetURL=GetUrl&"?"&Request.ServerVariables("QUERY_STRING")
EndFunction
'获取本页文件名
FunctionSelfName()
SelfName=Mid(Request.ServerVariables("URL"),InstrRev(Request.ServerVariables("URL"),"/")+1)
EndFunction
'获取文件后缀名
FunctionGetExt(filename)
GetExt=Mid(filename,InstrRev(filename,".")+1)
EndFunction
'求字符串长度函数
FunctionGetLength(str)
Dimi,length
Fori=1toLen(str)
IfAsc(Mid(str,i,1))<0orAsc(Mid(str,i,1))>256Then
length=length+2
Else
length=length+1
EndIf
Next
GetLength=length
EndFunction
'过滤不良字符
FunctionChkBadWords(fString)
DimBadWords,bwords,i
BadWords="我操|操你|操他|你妈的|他妈的|狗|杂种|屄|屌|王八|强奸|做爱|处女|泽民|法轮|法伦|洪志|法輪"
IfNot(IsNull(BadWords)orIsNull(fString))Then
bwords=Split(BadWords,"|")
Fori=0toUBound(bwords)
fString=Replace(fString,bwords(i),string(Len(bwords(i)),"*"))
Next
ChkBadWords=fString
EndIf
EndFunction
'防止外部提交
FunctionChkPost()
DimURL1,URL2
ChkPost=False
URL1=Cstr(Request.ServerVariables("HTTP_REFERER"))
URL2=Cstr(Request.ServerVariables("SERVER_NAME"))
IfMid(URL1,8,Len(URL2))<>URL2Then
ChkPost=False
Else
ChkPost=True
EndIf
EndFunction
'过滤HTML字符函数
FunctionHTMLEncode(fString)
IfNotIsNull(fString)AndfString<>""Then
fString=Replace(fString,"&","&")
fString=Replace(fString,">",">")
fString=Replace(fString,"<","<")
fString=Replace(fString,Chr(32),"")
fString=Replace(fString,Chr(9),"")
fString=Replace(fString,Chr(34),""")
fString=Replace(fString,Chr(39),"")
fString=Replace(fString,Chr(13),"")
fString=Replace(fString,Chr(10)&Chr(10),"</P><P>")
fString=Replace(fString,Chr(10),"<BR>")
fString=Replace(fString,Chr(255),"")
HTMLEncode=fString
EndIf
EndFunction
'清除HTML标记
FunctionstripHTML(strHTML)
DimobjRegExp,strOutput
SetobjRegExp=NewRegexp
objRegExp.IgnoreCase=True
objRegExp.Global=True
objRegExp.Pattern="<.+?>"
strOutput=objRegExp.Replace(strHTML,"")
strOutput=Replace(strOutput,"<","<")
strOutput=Replace(strOutput,">",">")
stripHTML=strOutput
SetobjRegExp=Nothing
EndFunction
【一些值得一看的代码asp】相关文章：