推薦:如何使用ASP腳本技術在VB腳本中,你不必定義變量或者像在其他腳本語言中明確的定義他們的類型。一個變量在你第一次使用的時候存在。但是,這個特性讓你的代碼廣泛的存在打字稿中。如果你在代碼中錯誤的定義一個變量名,那麼一個新的變量將被創建。你的腳本可能不能正常的工作,
ASP如何生成html?已經有很多生成html的新聞系統,但是都是用的模板,本函數實現把asp頁面產生的html代碼保存成為一個html文件,這樣就沒有必要改動原來的頁面就可以輕鬆完成一個生成html的新聞系統了。 ^_^
由於代碼比較短,這裡就不進行註釋了
以下為引用的內容: <% '當目標頁面的包含文件即#include的頁面裡邊存在response.End()的時候本程序有問題 '注意:本文件一定要放在20041227111723.htm指向的文件的同一目錄下 dim hughchiu_rtcode Function get_exe_code(20041227111723.htm) 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(20041227111723.htm)) 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(20041227111723.htm) dim code code = replace( replace( replace( get_exe_code(20041227111723.htm), 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 |
分享:怎樣入門ASP變量變量用於存儲信息。 假如在子程序之外聲明變量,那麼這個變量可被ASP 文件中的任何腳本改變。假如在子程序中聲明變量,那麼當子程序每次執行時,它才會被創建和撤銷。 實例: 聲明變量以下為引用的內容: html body % dim name name=Donald Duck response.