在网上找判断远程文件是否存在的asp代码时，看到了这个代码，也顺便记录一下。
<%
url=request.querystring("url")
Set fs = Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath(url)
If fs.FileExists(File) Then '判断url文件是否存在
Response.Write File & "文件存在"
Else
Response.Write File & "文件不存在"
End If
%>
使用时，在地址后面加 ?url=本地文件名
技术爱好
asp, fso
XMLHTTP在采集建站中非常常用，用它来判断网页是否存在也是个不错的方法。今天测试这个使用方法，并做些整理。
基于asp的应用
<%
Function testURL(url)
set XMLHTTP =Server.CreateObject("Microsoft.XMLHTTP")
XMLHTTP.open "HEAD",url,false
XMLHTTP.send()
'这里的200表示访问正常
‘如果是404是的话则说明页面不存在
if XMLHTTP.status=200 then
testURL = 1
Else
testURL = 0
end If
Set XMLHTTP = Nothing
End Function
if testURL("http://www.baizoo.cn/index.php")=0 then
response.write "文件不存在"
else
response.write "文件存在"
end if
%>
技术爱好
asp, xmlhttp
想要在网页程序中查找域名的IP，ASP的方法据我了解有两种。
一、使用wscript.shell运行ping或者nslookup命令获取已知域名的服务器的IP。
<form method="post">
<input type=text name="name" size=60>
<input type=submit value="run">
</form>
<%if request("name")<>"" then response.write server.createobject("wscript.shell").exec(server.mappath("nslookup.exe")&" "&request.form("name")).stdout.readall%>
虽然wscript.shell组件可用。上面的代码刚开始在我电脑上测试时通过不过。
将c:\windows\system32下nslookup复制到asp文件的目录下，可以了。
方法二、使用TCPIP.DNS组件
<%Set DNS=CreateObject("TCPIP.DNS")
IP=DNS.GetIPByHost("www.baizoo.cn")%>
下载：TCPIP.DNS组件
需要注意的一点：双击安装组件的时候，默认是安装在系统盘，比如”C:\Program Files\PSTRUH\TCPIP\”，这里不要修改，否则可能无法使用。
技术爱好
asp, ip, TCPIP.DNS, 域名
主要是用MSXML2.XMLHTTP获取页面内容的方式采集到alexa的值
如本站的真实alexa获取地址为：http://www.alexa.com/data/details/traffic_details/baizoo.cn
具体代码如下： Read more…
技术爱好
alexa, asp, 代码
Recent Comments