怎么从加密网页中提取数据出来？

[i9u]

现需要做一个网站，需要从另一个PHP网站中抽取相应数据，但是那个网站加密了，需要登陆进去才能看到数据，而且网页不能保存，鼠标右键不起作用，有没有什么办法写个软件自动登陆进去抽取数据出来存到本地数据库里呢？大侠们给个思路吧，谢谢！

[shuiaaa]

用Socket函数

[indeed]

高手，学习

[孟子E章]

注册一个用户

[i9u]

有了注册用户了，下面是不知道如何才能用程序实现数据的自动保存，数据量太大，让人手工输入不可能

[xuzuning]

若file("http://user:password@url")取不到的话
就用Socket函数

[ttt2]

用xmlhttp

[ttt2]

<%

Function Bytes2bStr(vin)
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream")
With BytesStream
.Type = 2
.Open
.WriteText vin
.Position = 0
.Charset = "GB2312"
.Position = 2
StringReturn = .ReadText
.close
End With
Set BytesStream = Nothing
Bytes2bStr = StringReturn
End Function

id=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)

Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "http://www.tsrcw.com/default.asp?id="&id, False
xml.Send
Response.write "Here's the html we now have in our xml object"
Response.write "<BR><BR><BR>"
Response.Write "<xmp>"
'Response.Write bytes2BSTR(xml.responsebody)
Response.Write "</xmp>"
Response.write "<BR><BR><BR>"
Response.write " Now here's how the page looks:<BR><BR>"
Response.Write bytes2BSTR(xml.responsebody)
Set xml = Nothing
%>