嚜?script language="vb" runat=server>
Function GetHTML(strURL)
Dim myRequest As HttpWebRequest = CType(WebRequest.Create(strURL), HttpWebRequest)
myRequest.Credentials = CredentialCache.DefaultCredentials
Dim myResponse As HttpWebResponse = CType(myRequest.GetResponse(), HttpWebResponse)
Dim receiveStream As Stream = myResponse.GetResponseStream()
Dim readStream As New StreamReader(receiveStream, Encoding.Default)
Dim x As String = readStream.ReadToEnd()
Response.Write(x)
End Function
?瑟平敺葦鈭箸?銝璈???梁?瘜??睪PP,元照APP Store
