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]