Question

如何将ASP生成HTML

Answer 1

也不知道怎么解释给你段代码：
<%
Dim id
id = Request("id")
%>
<%
if SaveFile("/new/"&id&".html","http://127.0.0.1/news.asp?id="&id&"") then
Response.write "已生成"
else
Response.write "没有生成"
end if

function SaveFile(LocalFileName,RemoteFileUrl)
Dim Ads, Retrieval, GetRemoteData
On Error Resume Next
Set Retrieval = Server.CreateObject("Microso" & "ft.XM" & "LHTTP") '//把单词拆开防止杀毒软件误杀
With Retrieval
.Open "Get", RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Ado" & "db.Str" & "eam") '//把单词拆开防止杀毒软件误杀
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
%>

Answer 2

主页面另存为html形式就可以了啊！干嘛想那么复杂？

Answer 3

楼主是不是猪脑子吃多了??
asp文件直接另存为html文件不就行了,何必非要把问题想得那么复杂呀?

Answer 4

楼上的都有问题，人家是想在服务器上直接利用Asp生成Html的，写法多种多样，但是还是利用了服务器的 FSO!

Answer 5

调试-----然后在浏览器上”保存“