ASP网页编程之一个带完全收罗小偷功能的IP查询代码
asp是基于web的一种编程技术，可以说是cgi的一种。它可以完成以往cgi程序的所有功能，如计数器、留言簿、公告板、聊天室等等。查询|ip地点|收罗一个带完全收罗小偷功效的IP查询代码,收罗来自IP138.CN的IP地点数据.以下是代码：
<%
Response.expires=0
Response.expiresabsolute=now()-1
Response.addHeader"pragma","no-cache"
Response.addHeader"cache-control","private"
Response.cachecontrol="no-cache"
Response.CharSet="GB2312"
Server.ScriptTimeOut=9999
Ifrequest("ip")""Then
response.writegetip(Trim(request("ip")))
response.end
Endif
FunctionGetPage(Path)
t=GetBody(Path)
GetPage=BytesToBstr(t,"UTF-8")
Endfunction
FunctionGetPage2(Path)
t=GetBody(Path)
GetPage2=BytesToBstr(t,"GB2312")
Endfunction
FunctionGetBody(url)
onerrorresumeNext
SetRetrieval=CreateObject("Microsoft.XMLHTTP")
WithRetrieval
.Open"Get",url,False,"",""
.Send
GetBody=.ResponseBody
EndWith
SetRetrieval=Nothing
EndFunction
FunctionBytesToBstr(body,Cset)
dimobjstream
setobjstream=Server.CreateObject("adodb.stream")
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
setobjstream=nothing
EndFunction
FunctionFixStr(ByValstr,ByValstart,ByVallast,ByValn)
DimstrTemp
onerrorresumeNext
IfInStr(str,start)>0Then
SelectCasen
Case0
strTemp=Right(str,Len(str)-InStr(str,start)-Len(start)+1)
strTemp=Left(strTemp,InStr(strTemp,last)-1)
CaseElse
strTemp=Right(str,Len(str)-InStr(str,start)+1)
strTemp=Left(strTemp,InStr(strTemp,last)+Len(last)-1)
EndSelect
Else
strTemp=""
EndIf
FixStr=strTemp
EndFunction
PublicFunctionRemoveHtml(byvalstrContent)
DimobjReg,strTmp
IfstrContent=""ORISNull(strContent)ThenExitFunction
SetobjReg=newRegExp
objReg.IgnoreCase=True
objReg.Global=True
objReg.Pattern="<(.[^>]*)>"
strTmp=objReg.Replace(strContent,"")
SetobjReg=Nothing
RemoveHtml=strTmp
strTmp=""
EndFunction
PublicFunctionGetIp(ip)
strhtml=getpage2("http://www.ip138.cn/index.php?ip="&Trim(ip)&"")
strhtml=fixstr(strhtml,"查询结果<br><br>","<br><br>",0)
GetIp=Replace(removehtml(strhtml),Trim(ip),"")
EndFunction
%>
只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天 最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件) 学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点: 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。 代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。
页:
[1]