Recommended: How to use ASP scripting technology In VB scripts, you do not have to define variables or explicitly define their types in other scripting languages. A variable exists when you first use it. However, this feature allows your code to exist widely in typescripts. If you wrongly define a variable name in the code, a new variable will be created. Your script may not work properly.
How to generate html in ASP? There are already many news systems that generate html, but they all use templates. This function saves the html code generated by the asp page into an html file, so there is no need to change the original page to easily complete a news system that generates html. ^_^
Since the code is relatively short, I won't comment here
The following is the quoted content: <% 'When the target page contains the file, i.e., the page #include, there is a problem with this program. 'Note: This file must be placed in the same directory as the file pointed to by 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 %> |
Example of usage:
The following is the quoted content: 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 |
Share: How to get started with ASP variables Variables are used to store information. If a variable is declared outside the subroutine, the variable can be changed by any script in the ASP file. If a variable is declared in a subroutine, it will be created and revoked every time the subroutine is executed. Example: Declare the variable as follows: html body % dim name name=Donald Duck response.