这段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

%>



相关文章推荐

Phenlit 麻烦帮我看看这段程序

  • 2007年11月12日 23:16
  • 104KB
  • 下载

谁能帮我看看这段jsp代码中的问题

http://www.w3.org/TR/html4/loose.dtd">        用户登陆验证          //获取登录的用户名   String UserName...

仿帮我买手机页面HTML代码

  • 2015年08月27日 11:10
  • 3.72MB
  • 下载

ftp+nginx搭建图片服务器,上传FTP文件可以传到服务器上,但是文件大小是0字节的 而且点击按钮后程序会卡死

最近在用到ftp上传时,出现里一个问题,上传图片一直失败,经过断点调试,发现上传时程序有时会停止运行。而且文件可以传到服务器上  就是文件大小是0字节的  而且点击按钮后程序会卡死。经过不断的调试,终...

ios 在下载html代码的时候,如何显示下载的进度

这里以下载图片举例。 1,首先创建一个cconnection downloadImage是一个线程函数,在子线程中下载图片。 //url 图片的url地址 - (void) downl...

Notification通知栏在app更新时自定义布局与原生态的对比分析(自定义的布局会卡死!)

在app更新时:我的app包大小是21.0M; 我想在更新的时候在后台更新,使用notification通知栏;因为主流的app都是这样做的,既能很明显的看到当前下载的进度,同时也不影响app的使用;...

为什么在主线程的Looper.looper死循环不会卡死

public static void main(String[] args) { .... //创建Looper和MessageQueue对象,用于处理主线程的消息 Looper.prepareM...
  • Alpha58
  • Alpha58
  • 2017年05月02日 17:57
  • 207

Asp.Net 4.0 新特性,输出更纯净的Html代码 ClientIDMode,ViewStateMode等

1. 在Asp.Net 4.0 中我们可以控制输出html中的对象id的形式了,之前我们常常看到类似这样的id ctl00_MainContent_txtAutoID 这在客户端控制时很不方便,...

网页中插入FLASH(swf文件)的html代码

一、简单插入flash图像 width="300" height="220"> 二、调整插入flash图像 http://download.macromedia.com/pub/shoc...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:这段asp文件转html代码在执行的时候经常会卡死?麻烦各位帮我看看
举报原因:
原因补充:

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