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

原创 2017年01月03日 06:48:13


<!--#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

%>



在编写图形界面软件的时候,经常会遇到处理两个矩形的关系。

在编写图形界面软件的时候,经常会遇到处理两个矩形的关系。     如图【1.jpg】所示,矩形的交集指的是:两个矩形重叠区的矩形,当然也可能不存在(参看【2.jpg】)。两个矩形的并集指的是:能...
  • xiangyuxiangyu123
  • xiangyuxiangyu123
  • 2014年03月17日 02:00
  • 645

显示两个图形

#include #include void main() {cout  cout  cout  cout  cout cout cout cout  cout  co...
  • zk0423
  • zk0423
  • 2011年11月09日 15:07
  • 59

矩形的关系

package cn.dlpu.lby; import java.awt.Rectangle; import java.util.Scanner; public class Juxingguanx...
  • LIBOYU0
  • LIBOYU0
  • 2013年06月23日 22:40
  • 876

2016蓝桥杯假期任务之《矩形运算》

     在编写图形界面软件的时候,经常会遇到处理两个矩形的关系。     如图【1.jpg】所示,矩形的交集指的是:两个矩形重叠区的矩形,当然也可能不存在(参看【2.jpg】)。两个矩形的并...
  • Liuchang54
  • Liuchang54
  • 2016年02月01日 15:42
  • 541

[综合] 一个简单图形界面框架XYGui的设计与实现 (二)

封装!上一节最后用了30多行ruby代码做了一个窗口出来,看起来很是麻烦,如何像XYGui里面一样,一行就能创建那样的窗口呢?实际上这里面是有很深的套路的,本节开始,讲述XYGui对创建窗口的封装先解...
  • u013632138
  • u013632138
  • 2016年11月28日 21:46
  • 364

编写图形软件的一点心得

前段时间做了一个所见即所得的图形软件(可惜代码在公司不能带出来,就不能共享了),期间写了一个小小的总结,贴在这也算个记录吧。--------------------------------------...
  • kingjiang
  • kingjiang
  • 2007年08月04日 01:39
  • 1117

SendKeys.SendWait()BUG解决方法

这么久终于找到解决方法,亲测可用。 解决方法就是不要输入干扰!!!!尽量一次使用!!!!!! SendKeys.SendWait(data);//模拟输入收到的资料 SendKeys...
  • basycia
  • basycia
  • 2016年05月18日 12:55
  • 1974

(HDU - 1274 )展开字符串

(HDU - 1274 )展开字符串Time Limit: 2000/1000 MS (Java/Others) Memory Limit: 65536/32768 K (Java/Others...
  • wozaipermanent
  • wozaipermanent
  • 2017年08月13日 11:35
  • 90

hdoj 展开字符串 1274 (字符串递归) 好题

展开字符串 Time Limit: 2000/1000 MS (Java/Others)    Memory Limit: 65536/32768 K (Java/Others) Total Su...
  • yanghui07216
  • yanghui07216
  • 2015年12月29日 21:02
  • 305

DIV+CSS布局的占位计算

宽度计算公式:左外边距 + 左边框 + 左内边距 + 元素宽度 + 右内边距 + 右边框 + 右外边距 高度计算公式类似。 注意:Chrome和Firefox浏览器的开发者工具界面中计算DIV元素...
  • kingfox
  • kingfox
  • 2017年01月27日 13:29
  • 790
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:这段asp文件转html代码在执行的时候经常会卡死?麻烦各位帮我看看
举报原因:
原因补充:

(最多只允许输入30个字)