ASP判断文件地址是否有效!

1   
2'原创作者:小艺 QQ:52093 时间:2005.6.30   
3Response.Write("

<head><style><!--span{ font-size: 9pt }--></style></head>

1")   
2On Error Resume Next   
3Dim thisurl,thistext   
4thisurl=Request("thisurl") '定义文件地址(非Html格式文档)!   
5if thisurl="" then   
6Response.Write("

<span>请先输入文件地址!</span>

 1")   
 2Response.End   
 3End if 
 4
 5Function objxmlhttp(xmlurl)   
 6On Error Resume Next   
 7Set objxml = CreateObject("Microsoft.XMLHTTP")   
 8objxml.Open "get",xmlurl,false   
 9objxml.setrequestheader "content-type","application/x-www-form-urlencoded"   
10objxml.send   
11objxmlhttp = objxml.responsebody   
12if Err then   
13Err.Clear   
14Response.Write("

<span>建立连接失败,文件不存在或网络有问题!;错误原因:"&amp;Err.Description&amp;"!</span>

 1")   
 2Response.End   
 3End if   
 4End Function   
 5'www.knowsky.com   
 6Function bytes2BSTR(vIn)   
 7strReturn = ""   
 8For i = 1 To LenB(vIn)   
 9ThisCharCode = AscB(MidB(vIn,i,1))   
10If ThisCharCode < &H80 Then   
11strReturn = strReturn & Chr(ThisCharCode)   
12Else   
13NextCharCode = AscB(MidB(vIn,i+1,1))   
14strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))   
15i = i + 1   
16End If   
17Next   
18bytes2BSTR = strReturn   
19End Function 
20
21thisurl2=Split(thisurl,",")   
22For Each ii In thisurl2   
23thistext=bytes2BSTR(objxmlhttp(ii))   
24if InStr(thistext,"

<html>")&lt;&gt;0 then
Response.Write("<span>"&amp; ii &amp;" <b>×</b></span><br/>")
Else
Response.Write("<span>"&amp; ii &amp;" <b>√</b></span><br/>")
End if
Next

if Err then
Err.Clear
Response.Write("<span>碰到意外!;错误原因:"&amp;Err.Description&amp;"!</span>")
Response.End
End if

Published At
Categories with Web编程
Tagged with
comments powered by Disqus