通过ASP生成html纯静态页面的简单示例

本站收录这篇文章通过ASP生成html纯静态页面的简单示例，详细解说文章中相关静态 asp 技术与知识，欢迎能给大家一些在这方面的支持和帮助！下面是详细内容：

原理：通过浏览器传送变量，如

http://127.0.0.1/shengcheng.asp?id=90

代码：
if SaveFile("/new/"&id&".html","http://127.0.0.1/news.asp?id="&id&"") then 中

/new"&id&".html",是你生成的文件和路径。http://127.0.0.1/news.asp?id="&id&""是asp的路径
大家可以自己设置修改，其中 "&id&" 是读取浏览器的变量。网址改成你自己的。

使用方法，给你的文章列表添加一个连接，如 http://127.0.0.1/shengcheng.asp?id=90

90这个变量相信大家会调用吧，这样就能在/new目录下生成按照id排列的html文章了

shengcheng.asp文件如下：

  程序代码(For Alixixi.com)如下:

 

1. <%
2. Dim id
3. id = Request("id")
4. %>
5. <%
6. if SaveFile("/new/"&id&".html","http://127.0.0.1/news.asp?id="&id&"") then
7. Response.write "已生成"
8. else
9. Response.write "没有生成"
10. end if
11. function SaveFile(LocalFileName,RemoteFileUrl)
12. Dim Ads, Retrieval, GetRemoteData
13. On Error Resume Next
14. Set Retrieval = Server.CreateObject("Microso" & "ft.XM" & "LHTTP") '//把单词拆开防止杀毒软件误杀
15. With Retrieval
16. .Open "Get", RemoteFileUrl, False, "", ""
17. .Send
18. GetRemoteData = .ResponseBody
19. End With
20. Set Retrieval = Nothing
21. Set Ads = Server.CreateObject("Ado" & "db.Str" & "eam") '//把单词拆开防止杀毒软件误杀
22. With Ads
23. .Type = 1
24. .Open
25. .Write GetRemoteData
26. .SaveToFile Server.MapPath(LocalFileName), 2
27. .Cancel()
28. .Close()
29. End With
30. Set Ads=nothing
31. if err <> 0 then
32. SaveFile = false
33. err.clear
34. else
35. SaveFile = true
36. end if
37. End function
38. %>