28,409
社区成员
发帖
与我相关
我的任务
分享有一个问题不知道是否能有答案：我要打开一个HTML文件，取得其中内容，可是文件在其他地方，我只有一个URL，怎么打开？
如果是本地文件，当然可以用createobject什么的，可是URL指向其他服务器。
我并不是要重新定向到其他服务器，而是要取得其中的内容来生成我将提交给用户的网页。
呵呵，事情有点怪。
我并不是要重新定向到其他服务器，而是要取得其中的内容来生成我将提交给用户的网页。
呵呵，事情有点怪。
...全文
请发表友善的回复…
发表回复
900126 2005-01-11
- 打赏
- 举报
不过一个字节一个字节的处理总不是办法，应该使用一个函数解释全部内容。也许是这里不允许使用strconv函数吧？
sweetgirl88 2005-01-10
- 打赏
- 举报
top
ttfish 2005-01-10
- 打赏
- 举报
顶一下
900126 2005-01-10
- 打赏
- 举报
解的比较好。
bzscs 2005-01-09
- 打赏
- 举报
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")
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")
