<%
'=================================================
'過程名：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
%>