这段asp文件转html代码在执行的时候经常会卡死?麻烦各位帮我看看



<!--#include file="checklogin.asp" -->
<!--#include file="conn.asp" -->

<!--显示生成进度条-->
<script>
function fs(s,cs)
{
document.getElementById("contents").style.width=s+'%'
document.getElementById("titles").value=s+"%"
document.getElementById("counts").value=cs
}
</script>
<body>生成进度:<span ><input type="text" name="titles" id="titles" value="" style="width:50px; border:0px;font-weight:bold; color:#006600"  />&nbsp;共:<input type="text" name="counts" id="counts" value="" style="width:30px; border:0px; text-align:center; font-weight:bold; color:#006633" />个文件</span>
<div id="contents" style="height:20px; border:1px solid #FF0000; background-color:#009933"></div>
</body>
<%
'================================
'====读取数据库记录
'====清水阁www.qingshuige.cn
'================================ 
dim mpage,i,rs,sql 
set rs=server.createobject("adodb.recordset")
sql="select * FROM news where id >=1301 and id <=1400 "
rs.open sql,conn,1,3
mpage=rs.recordcount
i=1
do while not rs.eof 
'调用生成静态页面函数
call makeindex("/news_view_"&rs("id")&".html","/news_view.asp?id="&rs("id"))

rs.movenext
i=i+1
Response.Flush
Response.Clear
x=int(i*100/mpage)
response.Write("<script>fs("&x&","&mpage&")</script>")
loop
'结束
Response.Write("------共生成了"&rs.recordcount&"个文件------")


function makeindex(FileNameA,FileNameB)
FilePath = Server.MapPath("/")&"\"&FileNameA
strUrl = "http://"&Request.ServerVariables("SERVER_NAME")&"/"&FileNameB
'创建objXmlHttp
dim objXmlHttp
set objXmlHttp = Server.CreateObject("Micro"&"soft"&".XML"&"HT"&"TP")'加"&"加"&"防止误杀
objXmlHttp.open "GET",strUrl,false
objXmlHttp.send()
Dim binFileData
binFileData = objXmlHttp.responseBody
'创建objAdoStream
Dim objAdoStream
set objAdoStream = Server.CreateObject("AD"&"ODB"&".Str"&"eam")'加"&"防止误杀
objAdoStream.Type = 1
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFile FilePath,2 
objAdoStream.Close()
end function

%>



阅读更多
上一篇如何从sim卡中读取手机号码?
下一篇多个ImageView组成界面实现上下滑动翻页
想对作者说点什么? 我来说一句

Phenlit 麻烦帮我看看这段程序

2007年11月12日 104KB 下载

asp直接生成html源码

2012年01月05日 4KB 下载

ASPhtml代码

2009年12月04日 1KB 下载

没有更多推荐了,返回首页

关闭
关闭