Apache:
在网上抄了一段C#代码,改成VB 调试出现乱码,各种牛乱入
[阅读: 439] 2006-08-31 16:14:02
Dim errorMsg As String
Dim URL As String
URL = "http://www.cndev.org"
errorMsg = ""
Try
Dim wReq As System.Net.WebRequest
Dim wResp As System.Net.WebResponse
wReq = System.Net.WebRequest.Create(URL)
wResp = wReq.GetResponse()
Dim respStream As System.IO.Stream
respStream = wResp.GetResponseStream()
Dim reader As System.IO.StreamReader = New System.IO.StreamReader(respStream)
Response.Write(reader.ReadToEnd)
reader.Dispose()
respStream.Dispose()
Catch ex As Exception
errorMsg = ex.Message
End Try