皮皮网

【求 aws.exe 源码】【奇迹源码修改教程】【微高手论坛源码】asp生成html源码_asp源码怎么搭建网站

2024-11-24 22:54:30 来源：爱微源码论坛 分类：知识

1.ASP转htm
2.如何利用fso将asp转化为html

asp生成html源码_asp源码怎么搭建网站

ASP转htm

       å°†åŠ¨æ€é¡µé¢è½¬æ¢ç”Ÿæˆé™æ€Html文件有许多好处，比如生成html网页有利于被搜索引擎收录（特别是对接受动态参数的页面）。前台访问时，脱离了数据访问,源源码减轻对数据库访问的压力，加快网页打开速度。

        当然，凡事有利必有弊，生成HTML页面无形中也耗费大量的磁盘空间以存放这些静态文件，在编辑页面过程中除读写数据库外，也要读写服务器磁盘，页面样式的改动必须重新生成全部HTML文件，等等。

        像很多搜索引擎，都可以提交网站的页面地址列表，动态文件的收录问题已经不算是个问题了（如google sitemap）。得失就要自己衡量把握了，但无论如何，我们还是要懂得如何操作的。这里就引用一下别人的文章说明几种常见的生成思路，供大家参考参考。

       1、下面这个例子直接利用FSO把html代码写入到文件中然后生成.html格式的文件 。这是最原始的，优点是简单，缺点是页面的修改不方便，我一般用到的地方是利用它生成整站参数文件。（通常网站如标题，名称等配置保存在数据库，我将它生成config.asp保存这些变量调用，避免频繁访问数据库）

       -------------------------------------------------------------------------

       ä»¥ä¸‹ä¸ºå¼•ç”¨çš„内容：

       <%

       filename="test.htm"

       if request("body")<>"" then

       set fso = Server.CreateObject("Scripting.FileSystemObject")

       set htmlwrite = fso.CreateTextFile(server.mappath(""&filename&""))

       htmlwrite.write "<html><head><title>" & 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=>

       <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 webjx.com</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="生成的网页标题"

       strC

       "// 用真实内容替换模板中的标记

       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生成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.readystate<>4 then

       exit function

       end if

       getHTTPPage=bytesToBSTR(Http.responseBody,"GB")

       set /news_con.asp?id="&id

       ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

       sText = getHTTPPage(txtURL)

       Set FileObject=Server.CreateObject("Scripting.FileSystemObject")

       filename=server.MapPath("/")&"/html/"&id&".html"

       Set openFile=FileObject.OpenTextfile(filename,2,true) 'true为不存在自行建立

       openFile.writeline(sText)

       Set OpenFile=nothing

       function checksql(kustr)

       checksql=server.htmlencode(replace(replace(replace(kustr,"<>"," "),"* from "," "),"="," "))

       end function

       response.Write("<script language=javascript>alert('信息发布成功！');window.location.href='list.asp';</script>")

       更多参考：/search.asp?搭建求 aws.exe 源码keyword=%C9%FA%B3%C9&cid=&Submit=%CB%D1%CB%F7

更多资讯请点击：知识

热门资讯

radmin远程源码_radmin远程软件

2024-11-24 22:151289人浏览

ecc算法源码_ecc算法原理

2024-11-24 22:08548人浏览

个性签名源码_个性签名源码大全

2024-11-24 22:011203人浏览

虚拟试衣源码_虚拟试衣源码怎么用

2024-11-24 21:58573人浏览

vpp源码 ipsec

2024-11-24 21:23320人浏览

借贷app源码_借贷平台源码

2024-11-24 20:421856人浏览

推荐资讯

vivado顶层源码_vivado顶层模块怎么建

1.【划水】Vivado生成网表文件是怎么回事呢？2.FPGA纯verilog代码实现图像对数变换，提供工程源码和技术支持3.FPGA实现HDMI转LVDS视频输出，纯verilog代码驱动，提供4套

落伍源码

1.Hibernate已经落伍了吗？2.请问哈，那能找到个简单的整站ASP源代码，有基本的功能就可以，后台好操作，完整Hibernate已经落伍了吗

mtk源码下载

1.MTK手机是什么意思啊？2.编译系统MTK分布式编译系统MTK手机是什么意思啊？ MTK手机中的MTK是指台湾联发科技多媒体芯片提供商的简称，现在大多数国产手机都为MTK平台手机，如塞班也是一