发送文章__当百网

文章·资料	电脑软件	手机软件	网站源码
电脑·手机·网络学习话题娱乐故事文化·历史国学典籍法律法规	操作系统网络办公·文件音频视频图形图像硬件·驱动程序行业教学学习编程游戏	安卓苹果鸿蒙其他	ASP ASP.NET JSP PHP HTML·CSS·JavaScript

本站搜索

发送文章

ASP生成HTML静态文件件技术杂谈

〖评论()〗〖留言〗〖收藏〗

收信地址

填写收信人的电子邮箱

邮件主题

填写邮件主题

邮件内容

网页生成静态 HTML 文件有许多好处，比如有利于被搜索引擎收录，不仅被收录的快还收录的全，前台脱离了数据访问，减轻对数据库访问的压力，加快网页打开速度。像 www.aspid.cn 的主站就采用了TSYS生成html文件！所以吟清最近对生成 HTML 比较感兴趣，看了不少文章，也有一点点收获。
1、下面这个例子直接利用FSO把html代码写入到文件中然后生成.html 格式的文件% filename="test.htm" if request("body")"" then set fso = Server.CreateObject("Scripting.FileSystemObject") set htmlwrite = fso.CreateTextFile(server.mappath(""filename"")) htmlwrite.write "htmlheadtitle"  request.form("title")  "/title/head" htmlwrite.write "body输出Title内容: "  request.form("title")  "br / 输出Body内容:"  request.form("body") "/body/html" htmlwrite.close set fout=nothing set fso=nothing end if % form name="form" method="post" action="" input name="title" value="Title" size=26 br textarea name="body"Body/textarea br br input type="submit" name="Submit" value="生成html" /form 
2、但是按照上面的方法生成html文件非常不方便,第二种方法就是利用模板技术,将模板中特殊代码的值替换为从表单或是数据库字段中接受过来的值,完成模板功能;将最终替换过的所有模板代码生成HTML文件.这种技术采用得比较多,大部分的CMS都是使用这类方法。
template.htm ' //模板文件 html head title$title$ by aspid.cn/title /head body $body$ /body /html
TestTemplate.asp '// 生成Html % Dim fso,htmlwrite Dim strTitle,strContent,strOut '// 创建文件系统对象 Set fso=Server.CreateObject("Scripting.FileSystemObject") '// 打开网页模板文件，读取模板内容 Set htmlwrite=fso.OpenTextFile(Server.MapPath("Template.htm")) strOut=f.ReadAll htmlwrite.close 
strTitle="生成的网页标题" strContent="生成的网页内容" 
'// 用真实内容替换模板中的标记 strOut=Replace(strOut,"$title$",strTitle) strOut=Replace(strOut,"$body$",strContent) 
'// 创建要生成的静态页 Set htmlwrite=fso.CreateTextFile(Server.MapPath("test.htm"),true) 
'// 写入网页内容 htmlwrite.WriteLine strOut htmlwrite.close 
Response.Write "生成静态页成功！" 
'// 释放文件系统对象 set htmlwrite=Nothing set fso=Nothing % 
3、第三种方法就是用XMLHTTP获取动态页生成的HTML内容，再用ADODB.Stream或者Scripting.FileSystemObject保存成html文件。这句话是在蓝色理想上看到的,对XMLHTTP吟清还不熟悉正在找资料了解.找到一段XMLHTTP生成Html的代码参考一下. % 
'常用函数 '1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码 function getHTTPPage(url) dim Http set Http=server.createobject("MSXML2.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate4 then exit function end if getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312") set http=nothing if err.number0 then err.Clear end function 
'2、转换乱玛，直接用xmlhttp调用有中文字符的网页得到的将是乱玛，可以通过adodb.stream组件进行转换 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 
txtURL=server.MapPath("../index.asp") 
sText = getHTTPPage(txtURL) 
Set FileObject=Server.CreateObject("Scripting.FileSystemObject") filename="../index.htm" Set openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true为不存在自行建立 openFile.writeline(sText) Set OpenFile=nothing 
% script alert("静态网页生成完毕"); history.back(); /script<br /><br />文章网址：<a href="https://dangbai.cn/Article.asp?ID=10001892" target="_blank">https://dangbai.cn/Article.asp?ID=10001892</a>

填写邮件内容

发信地址

填写发信人的电子邮箱

邮件签名

填写邮件签名

验证码

填写验证码，单击刷新验证码

发送协议

·欢迎使用本站在线文章发送系统。
·不得使用本站在线发送邮件系统发送垃圾邮件、广告邮件。
·如果收信人地址或其服务器出现错误，可能无法成功发送。
·如果有什么问题，或者意见建议，请联系［网站管理员］。

当百网

本站使用【啊估文章软件站】网站系统〖网站管理员留言簿〗