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

Question

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

Answer 1

<%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
  %>