ASP生成页面参数设置求教！

[fengye1981]

Fso1.Writeline(getHTTPPage("http://127.0.0.1/htdocs/index1.asp"))


中的getHTTPPage的参数应该怎么写？
我把三书改成Server.MapPath("index1.asp")生成的页面是asp的代码
换成http://127.0.0.1/htdocs/index1.asp，总是说Bad Request (Invalid Hostname)



Function getHTTPPage(url)
'on error resume next
dim http
set http=Server.createobject("Msxml2.XMLHTTP")
Http.open "GET",url,false
Http.send()
If Http.readystate<>4 Then Exit Function
getHTTPPage=bytes2BSTR(Http.responseBody)
Set http=Nothing
If err.number<>0 then err.Clear
End Function

[杨风79]

Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312")
End function

Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function

'然后调用XMLHTTP组件创建一个对象并进行初始化设置。

Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function

url="http://127.0.0.1/htdocs/index1.asp"
sourcecode=getHTTPPage(url)
pagename="index.asp"
pagepath=server.MapPath("/")&"\"&pagename
Set f1 = fso.CreateTextFile(pagepath, True)
f1.write(sourcecode)
f1.Close:set f1=nothing

[qingfengloveye]

您确认这个页面在您程序运行的地方打的开？
还是说http://127.0.0.1/htdocs/index1.asp是在本机上？
程序是放在服务器上运行的？

[fengye1981]

还是不行
是放在服务器上运行的