皮皮网
皮皮网
皮皮网

【能查看phar源码】【mes源码 Bs】【zabbix源码开发】asp源码转成html源码

时间：2024-12-29 18:36:33 分类：娱乐

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

asp源码转成html源码

ASP转htm

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

        当然，凡事有利必有弊，生成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?码转码能查看phar源码keyword=%C9%FA%B3%C9&cid=&Submit=%CB%D1%CB%F7

编辑推荐