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

900126 2005-01-09 05:10:19
如果是本地文件,当然可以用createobject什么的,可是URL指向其他服务器。
我并不是要重新定向到其他服务器,而是要取得其中的内容来生成我将提交给用户的网页。
呵呵,事情有点怪。
...全文
98 5 打赏 收藏 举报
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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")
  • 打赏
  • 举报
回复
相关推荐
发帖
ASP
加入

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2005-01-09 05:10
社区公告
暂无公告