ASP判斷文件地址是否有效

<%
ResponseWrite(<head><style><!span{ fontsize: pt }></style></head>)
On Error Resume Next
Dim thisurlthistext
thisurl=Request(thisurl) 定義文件地址(非Html格式文檔)!
if thisurl= then
ResponseWrite(請先輸入文件地址!)
ResponseEnd
End if Function objxmlhttp(xmlurl)
On Error Resume Next
Set objxml = CreateObject(MicrosoftXMLHTTP)
objxmlOpen getxmlurlfalse
objxmlsetrequestheader contenttypeapplication/xwwwformurlencoded
objxmlsend
objxmlhttp = objxmlresponsebody
if Err then
ErrClear
ResponseWrite(建立連接失敗文件不存在或網絡有問題!;錯誤原因:&ErrDescription&！)
ResponseEnd
End if
End Function Function bytesBSTR(vIn)
strReturn =
For i = To LenB(vIn)
ThisCharCode = AscB(MidB(vIni))
If ThisCharCode < &H Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIni+))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H + CInt(NextCharCode))
i = i +
End If
Next
bytesBSTR = strReturn
End Function thisurl=Split(thisurl)
For Each ii In thisurl
thistext=bytesBSTR(objxmlhttp(ii))
if InStr(thistext<html>)<> then
ResponseWrite(& ii & × )
Else
ResponseWrite(& ii & √ )
End if
Next if Err then
ErrClear
ResponseWrite(碰到意外!;錯誤原因:&ErrDescription&！)
ResponseEnd
End if
%>

From:http://tw.wingwit.com/Article/program/net/201311/15080.html