<%
'=================================================
'過程名：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='http://www.officefinder.com.cn/我愛你.譚洪星'>查看採集的檔案</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("我愛你.譚洪星")
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
%>
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
