谁有asp生成htm代码，给我找一下，多谢
我 想实现用户访问时候是htm页面，提高访问速度，但htm页面里包含数据库里的数据，所以我用定时刷新,再后台asp里生成htm,不知道咋实现，那位高人指点一下，有源代码的更好！
[解决办法]
<style type= "text/css ">
#divLoadCont{position:absolute; z-index:500; left:0; top:0; width:100%; height:98%; clip:rect(0,100%,100%,0); background-color:transparent; layer-background-color:white; }
#divLoad1{position:absolute; layer-background-color:silver; background-color:silver}
#divLoad2{position:absolute; left:0; top:0; layer-background-color:navy; background-color:navy}
#divLoadText{position:absolute; background-color:transparent; font-family:arial,helvetica; color:Navy; font-size:14px; }
</style>
<script language= "JavaScript " type= "text/javascript ">
function lib_bwcheck(){ //humbass 浏览器检测
this.ver=navigator.appVersion
this.agent=navigator.userAgent
this.dom=document.getElementById?1:0
this.opera5=this.agent.indexOf( "Opera 5 ")> -1
this.ie5=(this.ver.indexOf( "MSIE 5 ")> -1 && this.dom && !this.opera5)?1:0;
this.ie6=(this.ver.indexOf( "MSIE 6 ")> -1 && this.dom && !this.opera5)?1:0;
this.ie4=(document.all && !this.dom && !this.opera5)?1:0;
this.ie=this.ie4||this.ie5||this.ie6
this.mac=this.agent.indexOf( "Mac ")> -1
this.ns6=(this.dom && parseInt(this.ver) > = 5) ?1:0;
this.ns4=(document.layers && !this.dom)?1:0;
this.bw=(this.ie6 || this.ie5 || this.ie4 || this.ns4 || this.ns6 || this.opera5)
return this
}
var bw=new lib_bwcheck()
numImages=20 //humbass 速度
loaderWidth=300 //humbass 进度条长度
currentImg=0
function lib_doc_size(){
this.x=0;this.x2=bw.ie && document.body.offsetWidth-20||innerWidth||0;
this.y=0;this.y2=bw.ie && document.body.offsetHeight-5||innerHeight||0;
if(!this.x2||!this.y2) return message( 'Document has no width or height ')
this.x50=this.x2/2;this.y50=this.y2/2;
return this;
}
function lib_obj(obj,nest){
nest=(!nest) ? " ": 'document. '+nest+ '. '
this.evnt=bw.dom? document.getElementById(obj):bw.ie4?document.all[obj]:bw.ns4?eval(nest+ "document.layers. " +obj):0;
this.css=bw.dom||bw.ie4?this.evnt.style:this.evnt;
this.ref=this.css
this.w=this.evnt.offsetWidth||this.css.clip.width||
this.ref.width||this.css.pixelWidth||0;
return this
}
lib_obj.prototype.moveIt = function(x,y){
this.x=x;this.y=y; this.css.left=x;this.css.top=y
}
lib_obj.prototype.clipTo = function(t,r,b,l,setwidth){
this.ct=t; this.cr=r; this.cb=b; this.cl=l
if(bw.ns4){
this.css.clip.top=t;this.css.clip.right=r
this.css.clip.bottom=b;this.css.clip.left=l
}else{
if(t <0)t=0;if(r <0)r=0;if(b <0)b=0;if(b <0)b=0
this.css.clip= "rect( "+t+ ", "+r+ ", "+b+ ", "+l+ ") ";
if(setwidth){this.css.pixelWidth=this.css.width=r;
this.css.pixelHeight=this.css.height=b}
}
}
var oLoad2
function startLoading(){
page=new lib_doc_size()
oLoadCont=new lib_obj( 'divLoadCont ')
oLoad=new lib_obj( 'divLoad1 ', 'divLoadCont ')
oLoad2=new lib_obj( 'divLoad2 ', 'divLoadCont.document.divLoad1 ')
oLoadText=new lib_obj( 'divLoadText ', 'divLoadCont.document.divLoad1 ')
oLoad.moveIt(page.x50-loaderWidth/2,page.y50-20)
oLoadText.moveIt(loaderWidth/2 - oLoadText.w/2,10)
oLoad.clipTo(0,loaderWidth,40,0,1)
oLoad2.per = loaderWidth/numImages
}
function loadIt(ok){
currentImg++
if(oLoad2) oLoad2.clipTo(0,oLoad2.per*currentImg,40,0,1)
if(!ok){
oLoadCont.css.visibility= 'hidden '
oLoadCont=null; oLoad1=null; oLoad2=null;
}
}
function loadIt_display(ok){
currentImg++
if(oLoad2) oLoad2.clipTo(0,oLoad2.per*currentImg,40,0,1)
if(currentImg <=numImages) setTimeout( "loadIt_display(1) ",200)
else{
oLoadCont.css.visibility= 'hidden '
document.write ( " <style type= 'text/css '> ")
document.write ( "#center{position:absolute;left:50%;top:30%;z-index:1;background-color:#ffffff;color:ff0000;margin-left:-150px;margin-top:-32px} ")
document.write ( " </style> ")
document.write ( " <div id= 'center ' align=center> <img src= 'img/ok.gif ' border= '0 '> <br> 加速文件已经生成 ! </div> ")
}
}
</script>
<div id= "divLoadCont " >
<div id= "divLoad1 ">
<div id= "divLoad2 "> </div> <br>
<div id= "divLoadText "> 正在生成静态页面... </div>
</div>
</div>
<script>
startLoading()
//加载后开始执行函数
loadIt_display(1)
</script>
<%
Function createhtml (url,filename)
dim strUrl,Item_Classid,id,FilePath,Do_Url,Html_Temp
Html_Temp= " <UL> "
FilePath = Server.MapPath( "./ ")&FileName
strUrl = "http:// "
strUrl = strUrl&Request.Servervariables( "SERVER_NAME ")& "/ "&url
dim objXmlHttp
set objXmlHttp = Server.CreateObject( "Microsoft.XMLHTTP ")
objXmlHttp.open "GET ",strUrl,false
objXmlHttp.send()
Dim binFileData
binFileData = objXmlHttp.responseBody
Dim objAdoStream
set objAdoStream = Server.CreateObject( "ADODB.Stream ")
objAdoStream.Type = 1
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFile FilePath,2
objAdoStream.Close()
Html_Temp = Html_Temp& " </UL> "
End function
rem 引用函数生成页面
Call createhtml ( "index.asp ", "index.htm ")
%>
[解决办法]
'// 生成Html
'// 创建文件系统对象
Set fso=Server.CreateObject( "Scripting.FileSystemObject ")
'// 打开网页模板文件，读取模板内容
Set htmlwrite=fso.OpenTextFile(Server.MapPath(template))
strOut=htmlwrite.ReadAll
htmlwrite.close
'// 用真实内容替换模板中的标记
.
.
.
'// 创建要生成的静态页
Set htmlwrite=fso.CreateTextFile(Server.MapPath(文件名),true)
'// 写入网页内容
htmlwrite.WriteLine strOut
htmlwrite.close
'// 释放文件系统对象
set htmlwrite=Nothing
set fso=Nothing
