ASP信息页面自动生成HTML的两种方法

1）目前已经有很多生成html的新闻系统，但是都是用的模板，本函数实现把asp页面产生的html代码保存成为一个html文件，这样就没有必要改动原来的页面就可以轻松完成一个生成html的新闻系统了

<% ''当目标页面的包含文件即#include的页面里边存在response.End()的时候本程序有问题 ''注意：本文件一定要放在filename指向的文件的同一目录下 dim hughchiu_rtcode Function get_exe_code(filename) dim execode dim tmp_str Dim re,re1,content,fso,f,aspStart,aspEnd dim ms,m execode = "" set fso=CreateObject("Scripting.FileSystemObject") set f=fso.OpenTextFile(server.mappath(filename)) content=f.ReadAll f.close set f=nothing set fso=nothing set re = new regexp re.ignorecase = true re.global = true re.pattern = "/</%/@[^/%]+/%/>" content = re.replace(content,"") re.global = false re.pattern = "/</!/-/-/s*/#include/s*file/s*=/s*/""([^/""]+)/""/s*/-/-/>" do set ms = re.execute(content) if ms.count<>0 then set m = ms(0) tmp_str = get_exe_code(m.submatches(0)) content = re.replace(content, tmp_str) else exit do end if loop set m = nothing set ms = nothing re.pattern="^/s*=" aspEnd=1 aspStart=inStr(aspEnd,content,"<%")+2 set re1=new RegExp re1.ignorecase = true re1.global = false re1.pattern = "response/.Write(.+)" do while aspStart>aspEnd+1 execode = execode&vbcrlf&" hughchiu_rtcode = hughchiu_rtcode&"""&replace( replace(Mid(content,aspEnd,aspStart-aspEnd-2),"""",""""""), vbcrlf, """&vbcrlf&""")&""""&vbcrlf aspEnd=inStr(aspStart,content,"%/>")+2 tmp_str = Mid(content,aspStart,aspEnd-aspStart-2) do set ms = re1.execute(tmp_str) if ms.count<>0 then set m = ms(0) tmp_str = re1.replace(tmp_str, " hughchiu_rtcode = hughchiu_rtcode&"&m.submatches(0)) else exit do end if loop set m = nothing set ms = nothing execode = execode& re.replace(tmp_str,"hughchiu_rtcode = hughchiu_rtcode&") aspStart=inStr(aspEnd,content,"<%")+2 loop set re1 = nothing set re=nothing execode = execode&vbcrlf&" hughchiu_rtcode = hughchiu_rtcode&"""&replace( replace(Mid(content,aspEnd), """", """"""), vbcrlf, """&vbcrlf&""" )&""""&vbcrlf get_exe_code = "<%"&execode&"%/>" End Function function asp2html(filename) dim code code = replace( replace( replace( get_exe_code(filename), "hughchiu_rtcode = hughchiu_rtcode&"""""&vbcrlf, "" ), "<%", "" ), "%/>", "" ) ''response.Write(code) execute(code) ''response.Write( hughchiu_rtcode ) asp2html = hughchiu_rtcode end function %>

使用范例：
set fso=CreateObject("Scripting.FileSystemObject")
set f=fso.CreateTextFile( server.mappath( "youpage.htm" ), true )
f.WriteLine( asp2html("youpage.asp") )
f.close
set f = nothing
set fso = nothing

2）用re_write
目前较为普遍的动态网页包括asp,php,jsp,shtml,jhtml,cgi......甚至还有一些自己定义的，比如：aspx,do,index,hello等等。表现形式为：news.asp?id=95。通过re_write将其转换成news/95.html，以便于google对改网页的识别。

re_write是iis里的一个模块，

当需要将news.jsp?id=95的映射成news/95.html时，只需设置httpd.ini文件：
RewriteRule /news/(/d+)/.html /news/.jsp/?id=$1 [N,I]
这样就把 /news/95.html 这样的请求映射成了 /news.jsp?id=95

然后你在连接处这样写：<a href=''/news/95.html''>95新闻</a>。
如果你的新闻是通过数据库循环读取出来的，那么写法是：
while(rs.next())
{
String id = (String)rs.getString(''id'');
out.print(''<a hef=''/news/''''+id+''.html>'');
out.print(''95新闻'');
out.print(''</a>'');
}

如果你在处理数据翻页，那么写法是：

More_<%=Page%>_<%=type%>.html （注：page是翻页页数，type是数据类型）
表现形式：More_1_95.html

如果翻下一页，则为：More_2_95.html，继续下一页的循环，则是：
More_3_95.html，以此类推。

不过你需要在httpd.ini文件中增加以下代码：
RewriteRule /More_(/d+)_(/d+)/.html /jsp/more/.jsp/?page=$1&type=$2 [N,I]

如果你的动态程序有多个参数需要传递，那么就增加多个(/d+)即可，如下：

RewriteRule /More_(/d+)_(/d+)_(/d+)/.html /jsp/more/.jsp/?page=$1&type=$2&type2=$3 [N,I]