几种关于利用asp生成静态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 = ""
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生成静态页面方法二

css教程" type=text/css rel=stylesheet>
<%strHead=strHead&""
strHead=strHead&""
strHead=strHead&""
strHead=strHead&""
strHead=strHead&""
%>
<%
sql="select * from news"
set rs=server.createObject("ADODB.Recordset")
rs.open sql,conn,1,1
%><%
rs.pagesize=2
totalpage=rs.pagecount
rs.close
set rs=nothing

for j=1 to totalpage
sql="select * from news"
set rs=server.createObject("ADODB.Recordset")
rs.open sql,conn,1,1

whichpage=j
rs.pagesize=2
totalpage=rs.pagecount
rs.absolutepage=whichpage
howmanyrecs=0
%><%
str0=""
str0=str0&"

"
str0=str0&""
%><%
do while not rs.eof and howmanyrecs %><%
str0=str0&""
str0=str0&""
str0=str0&""
str0=str0&""
str0=str0&""
str0=str0&""
%><%
rs.movenext
howmanyrecs=howmanyrecs+1
loop
rs.close
set rs=nothing
%><%str0=str0&"

"&rs(0)&"

"&rs(1)&"

"&rs(2)&"

"&rs(3)&"

"
%><%

'分页部分
ref=""

ref=ref&"
"
ref=ref&"

"
ref=ref&""
ref=ref&""
ref=ref&"

" ref=ref&"Pages： " & j & " / " & totalpage &"" ref=ref&"

" ref=ref&"" & "9" & " " if whichpage=1 then ref=ref&"7" else ref=ref&"" & "7" & " " end if for counter=1 to totalpage ref=ref&"[" & counter & "]" ref=ref& " " if counter mod 10 = 0 then ref=ref& " " end if next if (whichpage>totalpage or whichpage=totalpage) then ref=ref&"8" else ref=ref&"" & "8" & " " end if ref=ref&"" & ":" & " " Dim fso,f Dim strTitle,strContent,strOut '创建文件系统对象 Set fso=Server.createObject("Scripting.FileSystemObject") Set f=fso.createTextFile(Server.MapPath("list_"&j&".html"),true) '写入网页内容 f.WriteLine strHead&str0&ref f.close response.write "正在生成第"&j&"个页面! " %><% next%>     asp生成静态页面方法三   Set fs = CreateObject("Scripting.FileSystemObject") NewFile=Server.MapPath("/asp/chap06/at/newfile.html") '新建一文件/newfile.html,若该文件已存在，则覆盖它 Set a = fs.CreateTextFile(NewFile, True) Response.Write"新文件已建立！" a.close File=Server.MapPath("newfile.html") Set txt=fs.OpenTextFile(File,8,True) '打开成可以在结尾写入数据的文件 data1="这句话是使用WriteLine方法写入的哦！~~" txt.WriteLine data1 data2="这句话是使用Write方法写入的哦！~~" txt.Write data2 txt.Close 方法二:XMLHTTP <% Set xml = Server.CreateObject("Microsoft.XMLHTTP") '把下面的地址替换成你的首页的文件地址,一定要用http://开头的绝对路径,不能写相对路径 xml.Open "GET", "http://www.111com.net", False xml.Send BodyText=xml.ResponseBody BodyText=BytesToBstr(BodyText,"gb2312") Set xml = Nothing Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile= fso.CreateTextFile(server.MapPath("aa.htm"), True) MyFile.WriteLine(BodyText) MyFile.Close 上一个： 超简单asp生成静态页面代码 下一个： ASP操作Excel技术总结 相关文章 VBS 批量Ping的项目讲解 09-19 如何封装一个Ajax函数介绍 09-16 ASP实现加法验证码方法 09-16 ASP错误捕获的几种常规处理方法介绍 09-16 ajax实现城市三级联动的代码介绍 09-16 asp中获取日期为星期几的技巧 09-14 热门栏目 php教程 php入门 php安全 php安装 php常用代码 php高级应用 asp.net教程 基础入门 .Net开发 C语言 VB.Net语言 WebService 手机开发 安卓教程 ios7教程 Windows Phone Windows Mobile 手机常见问题 css教程 CSS入门 常用代码 经典案例 样式布局 高级应用 网页制作 设计基础 Dreamweaver Frontpage js教程 XNL/XSLT 办公数码 word excel powerpoint 金山WPS 电脑新手 jsp教程 Application与Applet J2EE/EJB/服务器 J2ME开发 Java基础 Java技巧及代码 一聚教程网| 关于我们| 联系我们| 广告合作| 友情链接| 版权声明 copyRight@2007-2024 www.111COM.NET AII Right Reserved 苏ICP备17065847号-2 网站内容来自网络整理或网友投稿如有侵权行为请邮件:yijucomnet@163.com 我们24小时内处理