几种关于利用asp生成静态html页面方法实例代码

作者：袖梨 2022-06-29

<%
'当目标页面的包含文件即#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

相关文章

精彩推荐

一聚教程网

Copyright © 2010-2022

111cn.net All Rights Reserved