ASP函数 获取域名解析后的IP 获取远程网页的HTML代码
2013-01-15 23:30
691 查看
<% '获取 域名解析后的IP Function strCut(strContent) strLineArr=split(strContent,vbCrlf) for each strLine in strLineArr if instr(strLine,":")>0 then getArr=split(strLine,":") if LCase(getArr(0))="addresses" then strCut=split(Trim(getArr(1)),",")(0) exit function end if end if next strCut="err" End Function Function getIP(Domain) Set objWShell=Server.CreateObject("WScript.Shell") Set objCmd=objWShell.Exec(server.mappath("nslookup.exe")&" "&Domain) StrPResult=objCmd.StdOut.Readall() Set objCmd=nothing Set objWShell=nothing getIP=strCut(StrPResult) End Function response.write getIP("www.baidu.com") %>
<% '获取远程网页的HTML代码 Function getHTTPPage(url) On Error Resume Next dim http set http=Server.createobject("Microsoft.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate<>4 then exit function end if getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312") set http=nothing If Err.number<>0 then Response.Write "<p align='center'><font color='red'><b>服务器获取文件内容出错</b></font></p>" Err.Clear End If End Function Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function response.write getHTTPPage("http://www.baidu.com") %>
相关文章推荐
- 同一域名对应多个IP时,PHP获取远程网页内容的函数
- 同一域名对应多个IP时,PHP获取远程网页内容的函数[转]
- 同一域名对应多个IP时,PHP获取远程网页内容的函数[原创]
- 解析php通过cookies获取远程网页的指定代码
- 函数用途:同一域名对应多个IP时,获取指定服务器的远程网页内容
- 解析php通过cookies获取远程网页的指定代码
- MFC获取远程网页HTML代码产生的乱码问题
- 同一域名对应多个IP时,获取指定IP服务器的远程网页内容
- asp获取远程网页的指定内容的实现代码
- ASP.NET获取任意网页HTML代码
- asp.net(C#) 远程获取网页内容代码分享
- XMLHttp ASP远程获取网页内容代码
- 解析PHP获取当前网址及域名的实现代码
- HTML代码中,加这段声明 就可以 用IE7的方式 解析了,让IE8始终以IE7兼容模式运行网页
- 获取asp.net解析页面完毕后后的html代码
- 获取网页 HTML 中 <Title>内容的代码
- jsoup 解析html网页标签获取数据(java 网页解析 数据)
- 在Java代码中解析html,获取其中的值方法
- JS获取整个网页html代码
- asp获取远程网页的指定内容的实现代码