有一个问题不知道是否能有答案：我要打开一个HTML文件，取得其中内容，可是文件在其他地方，我只有一个URL，怎么打开？

[900126]

如果是本地文件，当然可以用createobject什么的，可是URL指向其他服务器。
我并不是要重新定向到其他服务器，而是要取得其中的内容来生成我将提交给用户的网页。
呵呵，事情有点怪。

[bzscs]

Function bstr(vIn)
Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bstr = strReturn
End Function

Function GetURL(url)
dim Retrieval
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, false
.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
.Send
GetURL = .ResponseBody
End With
Set Retrieval = Nothing
GetURL=bstr(GetURL)
End Function

response.write GetUrl("http://www.bzscs.com")

• 打赏
• 举报

回复 赞

[900126]

解的比较好。

• 打赏
• 举报

回复 赞

[ttfish]

顶一下

• 打赏
• 举报

回复 赞

[sweetgirl88]

top

• 打赏
• 举报

回复 赞

[900126]

不过一个字节一个字节的处理总不是办法，应该使用一个函数解释全部内容。也许是这里不允许使用strconv函数吧？

• 打赏
• 举报

回复 赞