|
|
< ><%</P>
<>Response.Write("<head><style><!--span{ font-size: 9pt }--></style></head>")</P>
<>On Error Resume Next</P>
<>Dim thisurl,thistext</P>
<>thisurl=Request("thisurl") '定义文件地址(非Html格式文档)!</P>
<>if thisurl="" then</P>
<>Response.Write("<span>请先输入文件地址!</span>")</P>
<>Response.End</P>
<>End if<BR>Function objxmlhttp(xmlurl)</P>
<>On Error Resume Next</P>
<P>Set objxml = CreateObject("Microsoft.XMLHTTP")</P>
<P>objxml.Open "get",xmlurl,false</P>
<P>objxml.setrequestheader "content-type","application/x-www-form-urlencoded"</P>
<P>objxml.send</P>
<P>objxmlhttp = objxml.responsebody</P>
<P>if Err then</P>
<P>Err.Clear</P>
<P>Response.Write("<span>建立连接失败,文件不存在或网络有问题!;错误原因:";Err.Description;"！</span>")</P>
<P>Response.End</P>
<P>End if</P>
<P>End Function<BR>Function bytes2BSTR(vIn)</P>
<P>strReturn = ""</P>
<P>For i = 1 To LenB(vIn)</P>
<P>ThisCharCode = AscB(MidB(vIn,i,1))</P>
<P>If ThisCharCode < ;H80 Then</P>
<P>strReturn = strReturn ; Chr(ThisCharCode)</P>
<P>Else</P>
<P>NextCharCode = AscB(MidB(vIn,i+1,1))</P>
<P>strReturn = strReturn ; Chr(CLng(ThisCharCode) * ;H100 + CInt(NextCharCode))</P>
<P>i = i + 1</P>
<P>End If</P>
<P>Next</P>
<P>bytes2BSTR = strReturn</P>
<P>End Function<BR>thisurl2=Split(thisurl,",")</P>
<P>For Each ii In thisurl2</P>
<P>thistext=bytes2BSTR(objxmlhttp(ii))</P>
<P>if InStr(thistext,"<html>")<>0 then</P>
<P>Response.Write("<span>"; ii ;" <b>×</b></span><br>")</P>
<P>Else</P>
<P>Response.Write("<span>"; ii ;" <b>√</b></span><br>")</P>
<P>End if</P>
<P>Next<BR>if Err then</P>
<P>Err.Clear</P>
<P>Response.Write("<span>碰到意外!;错误原因:";Err.Description;"！</span>")</P>
<P>Response.End</P>
<P>End if</P>
<P>%></P> |
|
|Archiver|手机版|小黑屋|嘉缘软件官网
( 沪ICP备12042403号-2 )
发表于 2006-4-12 08:11:43
