余志国网站设计工作室是专业从事义乌网站建设、义乌外贸网站建设、义乌网站制作、义乌网站设计的专业义乌网站建设工作室,是义乌外贸网站建设专家!

通用ASP生成HTML代码,无需读取模版

分类:程序开发 Tags: asp html 静态网页 评论:0 浏览:5771 最近更新时间:2008/3/24 12:27:33

最近在做一个饰品网站(http://www.yiwu-jewelry.cn/)涉及到生成HTML静态网页,没办法找了很多资料,不过也都大同小异,最后采用了如下代码来生成静态文章!该代码主要原理是通过浏览器传送变量,如:http://www.yiwu-jewelry.cn/show_jewelry_news.asp?id=7,代码中:if SaveFile("/news_yiwujewelry/"&id&".html","http://www.yiwu-jewelry.cn/show_jewelry_news.asp?id="&id&"") then 中"/news_yiwujewelry/"&id&".html",是你生成的文件和路径。http://127.0.0.1/news.asp?id="&id&""是asp的路径可以自己设置修改,其中 "&id&" 是读取浏览器的变量,网站网址改成自己的。使用方法,给你的文章列表添加一个连接,如 http://127.0.0.1/html.asp?id=7 ,7这个变量相信大家会调用吧,这样就能在/news_yiwujewelry目录下生成按照id排列的html文章了!可以到这里看效果:http://www.yiwu-jewelry.cn/jewelry_news.asphttp://www.yiwu-jewelry.cn/news_yiwujewelry/7.html以下是主要代码,把要改的代码改成自己的,保存成html.asp文件!

<%
Dim id
id = Request("id")
%>
<%
if SaveFile( "/news_yiwujewelry/"&id&".html","http://www.yiwu-jewelry.cn/show_jewelry_news.asp?id="&id&"" ) then
response.Write "<script language=javascript>alert('生成静态页面成功!');history.go(-1);</script>"
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
%>
附图:

最后一个疑问:这个只是生成一篇文章,不用模版的方式如何生成所有文章呢,就按这个原理?

本文地址:/324/
  • 相关文章
  • 推荐文章
  • 最新文章
发表评论





您的IP:52.55.186.225,来自:

留言

 


免费咨询
建站咨询热线
15967985565

扫一扫微信咨询
QQ: 358758308 Skype: yuzhiguo Facebook: yuzhiguo Email