%

Response.Write(headstyle!--span{ font-size 9pt }--stylehead)

On Error Resume Next

Dim thisurl,thistext

thisurl=Request(thisurl) '定义文件地址(非Html格式文档)!

if thisurl= then

Response.Write(span请先输入文件地址!span)

Response.End

End if
Function objxmlhttp(xmlurl)

On Error Resume Next

Set objxml = CreateObject(Microsoft.XMLHTTP)

objxml.Open get,xmlurl,false

objxml.setrequestheader content-type,applicationx-www-form-urlencoded

objxml.send

objxmlhttp = objxml.responsebody

if Err then

Err.Clear

Response.Write(span建立连接失败,文件不存在或网络有问题!;错误原因&Err.Description&！span)

Response.End

End if

End Function
Function bytes2BSTR(vIn)

strReturn =

For i = 1 To LenB(vIn)

ThisCharCode = AscB(MidB(vIn,i,1))

If ThisCharCode  &H80 Then

strReturn = strReturn & Chr(ThisCharCode)

Else

NextCharCode = AscB(MidB(vIn,i+1,1))

strReturn = strReturn & Chr(CLng(ThisCharCode)  &H100 + CInt(NextCharCode))

i = i + 1

End If

Next

bytes2BSTR = strReturn

End Function
thisurl2=Split(thisurl,,)

For Each ii In thisurl2

thistext=bytes2BSTR(objxmlhttp(ii))

if InStr(thistext,html)0 then

Response.Write(span& ii & b×bspanbr)

Else

Response.Write(span& ii & b√bspanbr)

End if

Next
if Err then

Err.Clear

Response.Write(span碰到意外!;错误原因&Err.Description&！span)

Response.End

End if

%
 

  作者：小艺