仔细看了一下才明白,原来是这样的啊!用个小偷程序就搞定了。
'asp远程读取网页源代码
'读取数据
Function GetURL(URL)
Set http=Server.CreateObject("Microsoft.XMLHTTP")
On Error Resume Next
http.Open "GET",URL,False
http.send()
if Err then
Err.Clear
Response.Write("没有找到网页!")
Response.End()
End if
getHTTPPage=bytesToBSTR(Http.responseBody,"gb2312")
set http=nothing
GetURL=getHTTPPage
End Function
'转换编码
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
'调用方法
Content=GetURL("http://www.******.com/tp/view.asp?sid=8")
Response.Write(Content)
用这个调用这样:Content=GetURL("http://www.******.com/tp/view.asp?sid=8")
将Content中投票部分提取出来就可以了!这样也算是偷别人的东西,再灵活运用Replace函数就可以了。先就这么多了!