一些值得一看的代码asp

　　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.writeIP地址段出错！
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))
case4E5089:
aso.read(15)
ret(0)=PNG
ret(1)=BinVal2(aso.read(2))
aso.read(2)
ret(2)=BinVal2(aso.read(2))
case464947:
aso.read(3)
ret(0)=GIF
ret(1)=BinVal(aso.read(2))
ret(2)=BinVal(aso.read(2))
case535746:
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)
caseFFD8FF:
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)=BMthen
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
casegif,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
casegif,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)<>
endfunction%><%
ifcheckisUrl(request(u))=truethen%>恭喜,你的URL通过!<%else%>对不起,你的URL不合乎规范,请重新检查!<%endif%>


如何利用数据库内容建立一个下拉式列表？

获取用户真实IP函数
FunctionGetIP()
GetIP=Request.ServerVariables(HTTP_X_FORWARDED_FOR)
IfGetIP=ThenGetIP=Request.ServerVariables(REMOTE_ADDR)
EndFunction

获取完整地址栏地址
FunctionGetUrl()
GetUrl=
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