我用XMLHTTP生成静态网页,可是提示错误:
错误类型：
(0x80004005)
未指定的错误
/glp/AddMenu.asp, 第 11 行
<%
function SaveFile(LocalFileName,RemoteFileUrl)
Dim Ads, Retrieval, GetRemoteData
' On Error Resume Next
Set Retrieval = Server.CreateObject( "Microsoft.XMLHTTP ")
With Retrieval
.Open "Get ", RemoteFileUrl, False '提示这行出错,不知怎回事
.Send
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject( "Adodb.Stream ")
With Ads
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile Server.MapPath(LocalFileName), 2
.Cancel()
.Close()
End With
Set Ads=nothing
if err <> 0 then
SaveFile = false
err.clear
else
SaveFile = true
end if
End function
%>
<%
Dim ID,ParentID,text,htext,URL,str
Dim Cmd1,rs1,Data
%>
<%
set Cmd1=Server.CreateObject( "ADODB.Command ")
Cmd1.ActiveConnection = MM_myconn_STRING
ParentID=Trim(Request.Form( "ParentID "))
text=Trim(Request.Form( "nodetext "))
htext=Trim(Request.Form( "htext "))
URL=Trim(Request.Form( "NodeURL "))
Data=Trim(Request.Form( "data "))
Response.Write(Data)
str= "Insert into treeview(parentID,nodetext,hint,url,data,target) values ( "&ParentID& ", ' "&text& " ', ' "&htext& " ', ' "&URL& " ', 'Description= "&Data& " ', ' "& "right ') "
Cmd1.CommandText=str
Cmd1.Execute
Cmd1.ActiveConnection.Close
Response.Write( "正在生成静态网页... "& " <br> ")
if SaveFile( "1.htm ", "main.asp ") then
Response.write "已生成 "& " <br> "
else
Response.write "没有生成 "& " <br> "
end if
'Response.Redirect( "MangmentTreeView.asp ")
%>
------解决方案--------------------
如上。。。服务器端请求必须是完整虚拟路径。。
http://www.xxxx.com/main.asp
http://localhost/main.asp
这类的。。
------解决方案--------------------
...
我还刻意说了下。要完整虚拟路径。。
不是绝对路径。。
这个正则有点老了。。不过可以实现。。
<%
Function getURL(f_url)
'获取目标文件绝对路径
Dim r, url
Set r = new RegExp '创建正则对象
r.Pattern = "\/[^\.\/]+\.[A-Za-z]+ " '匹配/*.*文件
'获取http://域名/目前文件地址
url = "http:// " & Request.ServerVariables( "HTTP_HOST ") & Request.ServerVariables( "URL ")
getURL = r.Replace(url, " ") & "/ " & f_url '把匹配字符串替换成空，并且加入/目标文件，并且返回结果
Set r = Nothing
End Function
getURL( "main.asp ")
%>