Recommended: Brief analysis of ASP AJAX search tips similar to Google The main files are: Index.html implementation function, a text box, input content and implement the prompt search.asp query function, let the content entered in the text box be queried in the database, and then return it to the client conn.asp database connection function, implement and
There are 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 and it can be easily
Complete a news system that generates html. ^_^
Since the code is relatively short, I won't comment here
<%
'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 filename
| The following is the quoted content: 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 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 %> |
Example of usage:
| The following is the quoted content: f.WriteLine( asp2html(youpage.asp) ) f.close set f = nothing set fso = nothing |
Share: Perceive the power of ASP through startup scripts Like most language scripts, the best way to learn ASP is to try ASP yourself and install PWS or IIS using your own system. You can test ASP components and functions on your own server while learning. To facilitate learning, we have compiled some fucks