DIV CSS 佈局教程網

 DIV+CSS佈局教程網 >> 網頁腳本 >> JavaScript入門知識 >> AJAX入門 >> AJAX詳解 >> ASP采集頁面內容組件Microsoft.XMLHTTP
ASP采集頁面內容組件Microsoft.XMLHTTP
編輯:AJAX詳解     

<%
'=================================================
'過程名:getHTTPPage
'作  用:獲取頁面內容
'參  數:url ----絕對地址
'=================================================
on error resume Next

Function bytes2BSTR(vIn)
 dim strReturn
 dim i,ThisCharCode,NextCharCode
 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

Function NewString(wstr,strng)
 NewString=Instr(wstr,strng)
End Function

function getHTTPPage(url)
 on error resume next
 dim http
 set http=Server.createobject("Microsoft.XMLHTTP")
 Http.open "GET",url,false
 Http.send()
 if Http.readystate<>4 then
  exit function
 end if
 getHTTPPage=bytes2BSTR(Http.responseBody)
 set http=nothing
 if err.number<>0 then err.Clear 
end function

If request("action")="go" then
 url = request("url")

 

wstr = getHTTPPage(url)
wstr=replace(wstr,"<head>","<head><base href="""&url&""">")


if err.number=0  Then
response.Write "<div align='center'>采集已完成,請點此<a href='晨風資訊網.htm>查看采集的文件</a></div>"
End If

Else

%>
<form action="">請輸入網絡絕對路徑:<input type="text" name="url"><input type="hidden" name="action" value="go"><input

type="submit" value="提交"></form>
<%End if%>

 <%
FilePathHtml=server.MapPath("晨風資訊網.htm")
set obj_fso=server.createobject("scripting.filesystemobject")
obj_fso.CreateTextFile FilePathHtml,true
set obj_file=obj_fso.opentextfile(FilePathHtml,2)
obj_file.write wstr
obj_file.close
set obj_file=nothing
%>

 

XML學習教程| jQuery入門知識| AJAX入門| Dreamweaver教程| Fireworks入門知識| SEO技巧| SEO優化集錦|
Copyright © DIV+CSS佈局教程網 All Rights Reserved