asp動態(tài)頁面如何生成html頁面_ASP教程
推薦:淺析ASP AJAX做類似google的搜索提示主要要文件有: Index.html 實現(xiàn)功能,一個文本框,輸入內(nèi)容并實現(xiàn)提示 search.asp 查詢功能,讓文本框輸入的內(nèi)容在數(shù)據(jù)庫中查詢,然后返回給客戶端 conn.asp 數(shù)據(jù)庫連接功能,實現(xiàn)與
目前已經(jīng)有很多生成html的新聞系統(tǒng),但是都是用的模板,本函數(shù)實現(xiàn)把asp頁面產(chǎn)生的html代碼保存成為一個html文件,這樣就沒有必要改動原來的頁面就可以輕松
完成一個生成html的新聞系統(tǒng)了。^_^
由于代碼比較短,這里就不進行注釋了
<%
'當目標頁面的包含文件即#include的頁面里邊存在response.End()的時候本程序有問題
'注意:本文件一定要放在filename指向的文件的同一目錄下
| 以下為引用的內(nèi)容: 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*#includes*files*=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 aspStart=inStr(aspEnd,content,"<%") 2 &""""&vbcrlf
function asp2html(filename) |
使用范例:
| 以下為引用的內(nèi)容: f.WriteLine( asp2html("youpage.asp") ) f.close set f = nothing set fso = nothing
|
分享:通過啟動腳本感知ASP的力量和大多數(shù)的語言腳本一樣,學習ASP最好的方法就是親身嘗試ASP,使用你自己的系統(tǒng)安裝PWS或者IIS。你可以邊學習邊在你自己的服務器上測試ASP組件和函數(shù)。為了方便學習,我們已經(jīng)編譯了一些操
- 相關鏈接:
- 教程說明:
ASP教程-asp動態(tài)頁面如何生成html頁面
。