ASP 一个查询程序后台运行到1分30秒之后出现问题

Web 开发 > ASP
收藏 回复
[问题点数：40分]
更多帖子
私信 空间 博客
woxuevc2005
本版专家分：0
结帖率 18.18%
代码如下，这是怎么回事，SQL2005数据库不能持续运行1分30秒吗，这个程序用到3层循环，估计要从SQL数据库中输出10万条记录，但运行到1分30秒的时候就出现
Microsoft OLE DB Provider for SQL Server 错误 '80004005' 
[DBNETLIB][ConnectionOpen (Connect()).]SQL Server 不存在或拒绝访问。 



<%

if request.Cookies("shiwei_username")="" then

%>

<script language="javascript">

top.location.href="../index.asp"

</script>

<%  

  response.end

end if

%>

<!-- #include file="../conn2.asp" -->

<html>

<head>

<title>生产订单综合查询</title>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<link href="../style/style.css" rel="stylesheet" type="text/css">

<script type="text/javascript" src="../My97DatePicker/WdatePicker.js"></script>

<style>

body {

                                             	                                             background-color:#FFFFFF;

}

 *{margin:0;padding:0;}

</style>

<script language=javascript>

function preview() { 

bdhtml=window.document.body.innerHTML;

sprnstr="<!--startprint-->"; 

eprnstr="<!--endprint-->"; 

prnhtml=bdhtml.substr(bdhtml.indexOf(sprnstr)+17); 

prnhtml=prnhtml.substring(0,prnhtml.indexOf(eprnstr));

window.document.body.innerHTML=prnhtml; 

window.print();

window.document.body.innerHTML=bdhtml; 

         }

     function check() {

         var b=false;

          if(scddzhcx.rname.value != "")

          {

               b=true;

          }

          else

          {

            if (scddzhcx.fname.value != "" && scddzhcx.f2name.value != "")

             {

                 b=true;

             }

              if(scddzhcx.lname.value != "" && scddzhcx.l2name.value != "")

            {

                 b=true;

            }

          }

          if(b==false)

          alert("请输入查询条件！");          

          if(b==true)

          {

          document.getElementById('m').style.display='none';

          document.getElementById('pm').style.display='';

          }

          return b;         

       }

</script>

</HEAD>

<BODY>

<%

dim arr(200000,17)

dim rst,rst2,rst3

dim jdr,scddh1,scddh2,jdrq1,jdrq2

dim mids

jdr=trim(request("rname"))

scddh1=trim(request("fname"))

scddh2=trim(request("f2name"))

jdrq1=trim(request("lname"))

jdrq2=trim(request("l2name"))

if len(jdr)=0 and len(scddh1)=0 and len(scddh2)=0 and len(jdrq1)=0 and len(jdrq2)=0 then

response.Write "请填写查询条件！"

response.End

end if



if len(jdr)>0 then

sql = "select a.createdate,b.cpersonname,a.moid,a.mocode from mom_order a left join AA_User b on a.CreateUser=b.cpersoncode where b.cpersonname='" & jdr & "'"



if len(scddh1)>0 and len(scddh2)>0 then

sql =sql & " and a.moid>='" & scddh1 & "' and a.moid<='" & scddh2 & "'"

end if



if len(jdrq1)>0 and len(jdrq2)>0 then

sql = sql & " and a.createdate>='" & jdrq1 & "' and a.createdate<='" & jdrq2 & "'"

end if

else

if len(scddh1)>0 and len(scddh2)>0 then

sql = "select a.createdate,b.cpersonname,a.moid,a.mocode from mom_order a left join AA_User b on a.CreateUser=b.cpersoncode where mocode>='" & scddh1 & "' and mocode<='" & scddh2 & "'"

else

sql = "select a.createdate,b.cpersonname,a.moid,a.mocode from mom_order a left join AA_User b on a.CreateUser=b.cpersoncode where a.createdate>='" & jdrq1 & "' and a.createdate<='" & jdrq2 & "'"

end if

end if

sql=sql & " order by a.mocode"

Set rst = connf.Execute(sql)

%>

<div id="pm" style="display:none;text-align:center;"><br><br>请耐心等待，程序正在努力为您工作中。。。</div>

<div id='m'>

<form action="" method="get" name="scddzhcx" style="font-size:14px;background:#D8D8EB;">

  生产订单: <input type="text" name="fname" value="<%=request("fname")%>" />

  到: <input type="text" name="f2name" value="<%=request("f2name")%>" />

  建档日期: <input type="text" name="lname" onClick="WdatePicker()" value="<%=request("lname")%>" />

  到: <input type="text" name="l2name" onClick="WdatePicker()" value="<%=request("l2name")%>" />

  <p>

  建档人: <input type="text" name="rname" value="<%=request("rname")%>" />

  <input type="submit" value="查询" onclick="return check()" />

  </p>

</form>

<%

If rst.BOF = 0 Then



j = 0



Do Until rst.EOF



id = rst.Fields(2)



If Len(id) > 0 Then



sql = "select a.modid as 序号,a.SortSeq as 行号,a.invcode as 物料编码,b.cinvname as 物料名称,"

sql = sql & "c.cComUnitName as 计量单位,a.qty as 生产数量, a.QualifiedInQty as 完成数量,case when a.Status=1 then '开立' when a.Status=2 then '锁定' when a.Status=3 then '审核' when a.Status=4 then '关闭' end as 状态 "

sql = sql & "from mom_orderdetail a left join inventory b on a.invcode=b.cinvcode left join  "

sql = sql & "ComputationUnit c on b.cComUnitCode=c.cComunitCode where moid='" & id & "' and a.Status<>4"

Set rst2 = connf.Execute(sql)Do Until rst2.EOF



mids = rst2.Fields(0)



sql = "select  a.SortSeq as 行号, a.InvCode as 子件物料编码, b.cinvname as 子件物料名称,b.cInvStd as 子件规格,c.cComUnitName as 计量单位,case when b.iSupplyType=0 then '领用' when b.iSupplyType=1 then '入库倒冲' when b.iSupplyType=2 then''  when b.iSupplyType=3 then ''  when b.iSupplyType=4 then '直接供应' end  as 子件属性, a.qty as 应领数量,a.IssQty as 已领量  "

sql = sql & "from mom_moallocate a left join inventory b on a.invcode=b.cinvcode left join ComputationUnit c on b.cComUnitCode=c.cComunitCode  where modid=' " & mids & "'"



Set rst3 = connf.Execute(sql)



Do Until rst3.EOF



j = j + 1



arr(j,0)=rst.fields(3)

arr(j,1)=rst2.fields(1)

arr(j,2)=rst2.fields(2)

arr(j,3)=rst2.fields(3)

arr(j,4)=rst2.fields(4)

arr(j,5)=rst2.fields(5)

arr(j,6)=rst2.fields(6)

arr(j,7)=rst3.fields(0)

arr(j,8)=rst3.fields(1)

arr(j,9)=rst3.fields(2)

arr(j,10)=rst3.fields(3)

arr(j,11)=rst3.fields(4)

arr(j,12)=rst3.fields(5)

arr(j,13)=rst3.fields(6)

arr(j,14)=rst3.fields(7)

arr(j,15)=rst.fields(0)

arr(j,16)=rst.fields(1)

arr(j,17)=rst2.fields(7)



rst3.MoveNext

Loop

rst2.MoveNext

Loop

End If

rst.MoveNext

loop

End If

if j>0 then

%>

<table  id="bi" width="100%" border="1" cellpadding="0" cellspacing="0" align="center" style="font-size:12px;">

<tr>

<td>序号</td>

<td>生产订单号</td>

<td>行号</td>

<td>物料编码</td>

<td>物料名称</td>

<td>计量单位</td>

<td>生产数量</td>

<td>完成数量</td>

<td>子件行号</td>

<td>子件物料编码</td>

<td>子件物料名称</td>

<td>子件规格</td>

<td>计量单位</td>

<td>子件属性</td>

<td>应领数量</td>

<td>已领量</td>

<td>建档日期</td>

<td>建档人</td>

<td>状态</td>

</tr>

<%for i=1 to j%>

<tr>

<td><%=i %></td>

<td><%=arr(i,0)%></td>

<td><%=arr(i,1)%></td>

<td><%=arr(i,2)%></td>

<td><%=arr(i,3)%></td>

<td><%=arr(i,4)%></td>

<td><%=arr(i,5)%></td>

<td><%=arr(i,6)%></td>

<td><%=arr(i,7)%></td>

<td><%=arr(i,8)%></td>

<td><%=arr(i,9)%></td>

<td><%=arr(i,10)%></td>

<td><%=arr(i,11)%></td>

<td><%=arr(i,12)%></td>

<td><%=arr(i,13)%></td>

<td><%=arr(i,14)%></td>

<td><%=arr(i,15)%></td>

<td><%=arr(i,16)%></td>

<td><%=arr(i,17)%></td>

</tr>

<%next%>

</table>

<%

end if

%>

</div>

</body>

</html>
只看楼主 引用 举报 楼主
更多帖子
私信 空间 博客
hookee
本版专家分：189018
Blank
进士 2009年 总版技术专家分年内排行榜第七
Blank
金牌 2009年9月 总版技术专家分月排行榜第一
Blank
银牌 2009年8月 总版技术专家分月排行榜第二
Blank
红花 2011年11月 Web 开发大版内专家分月排行榜第一
2009年10月 Web 开发大版内专家分月排行榜第一
2009年9月 Web 开发大版内专家分月排行榜第一
2009年8月 Web 开发大版内专家分月排行榜第一
2009年7月 Web 开发大版内专家分月排行榜第一
2009年6月 Web 开发大版内专家分月排行榜第一
2007年7月 Web 开发大版内专家分月排行榜第一
2007年6月 Web 开发大版内专家分月排行榜第一
设置 Server.ScriptTimeout = 1800
一次输出 10万条记录，不是好的方案，至少可以分页输出。
三重循环也不够好，用存储过程看看。
只看TA 引用 举报 #1得分 0
更多帖子
私信 空间 博客
php_wsd
本版专家分：5246
数据库索引做了吗？
只看TA 引用 举报 #2得分 0
更多帖子
私信 空间 博客
hxm_admin
本版专家分：0
全部写在前台这样真的好吗?  建议还是放后台吧
只看TA 引用 举报 #3得分 0
更多帖子
私信 空间 博客
Rotel
本版专家分：3133
Blank
签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
Blank
脉脉勋章 绑定脉脉第三方账户获得
分页显示不但对性能考虑
只看TA 引用 举报 #4得分 0
更多帖子
私信 空间 博客
wudao0501
本版专家分：40
一定要这么写的话那就在recordset对象用完后就关闭
只看TA 引用 举报 #5得分 0
收藏 回复
woxuevc2005

等级：

关注 私信 TA的帖子
开源微信小程序net后台源码可运行C#.zip

微信小程序源码，带后台，后台源码net 语言C#编写的，通俗易懂，是学习的好助手。开源微信小程序，少见，多珍藏！

淘宝客小程序源码前端+后台完整版可运行

1、这是一个微信小程序对接淘宝的淘宝客api自助搜索优惠券领取程序，简单易学，有兴趣的欢迎下载 2、后台采用asp.netMvc框架开发、实现了调用阿里妈妈的淘宝客api接口 3、后台框架可支持拓展二次开发一套网站，...

2018开源微信小程序+net后台源码可运行二次开发最新版

（仿牛贝淘客微信小程序+后台源码 仿牛贝淘客微信小程序+后台源码）淘宝客的福利来啦~先开源淘宝客小程序源码，提供给生活在淘客圈的朋友开源使用，代码完全开源无加密，开源二次任意开发。

ASP.NET MVC C# 优惠券领取微信小程序源码源代码2019完整版

1、这是一个微信小程序对接淘宝的淘宝客api自助搜索优惠券领取程序，简单易学，有兴趣的欢迎下载 2、后台采用asp.netMvc框架开发、实现了调用阿里妈妈的淘宝客api接口 3、后台框架可支持拓展二次开发一套网站，...

.NET在线购物商城微信小程序前端和后台源码

1、 后台会员系统：会员列表、会员基本信息，积分明细、余额明细、购物记录、收货地址（在系统设置的频道管理可以开启此功能） 2、 后台系统设置：导航栏目、分类管理、 OAuth设置 、支付设置、扩展字段 、频道...

在线购物商城微信小程序前端和后台源码.zip

Code\cmsWeb文件夹里面是api接口后台 Code\xcx文件夹是微信小... (1)、第一种，数据库脚本文件，使用sqlerver工具运行 (2)、第二种，附加数据库文件，要求sql server2012版本 5、xcxWeb文件夹中是微信小程序源码

asp.net前台显示后台处理进度条

asp.net前台显示后台处理进度条,代码简单清晰,文章参考http://nongfuit.com/html/70/201201/8383.html有效果图

NET在线购物商城微信小程序前端和后台.rar

在线购物商城微信小程序前端和后台数据管理系统源码，使用.net开发，测试无Bug，感兴趣的欢迎下载 二、微信小程序功能 1、 会员自动授权登录注册 2、 产品分类、产品检索、产品筛选、产品详情、 3、 广告...

淘宝客优惠券领取微信小程序前台和后台源码.zip

1、这是一个微信小程序对接淘宝的淘宝客api自助搜索优惠券领取程序，简单易学，有兴趣的欢迎下载 2、后台采用asp.netMvc框架开发、实现了调用阿里妈妈的淘宝客api接口 3、后台框架可支持拓展二次开发一套网站，...

淘宝客优惠劵微信小程序前端+后台开源源码

1、这是一个微信小程序对接淘宝的淘宝客api自助搜索优惠券领取程序，简单易学，有兴趣的欢迎下载 2、后台采用asp.netMvc框架开发、实现了调用阿里妈妈的淘宝客api接口 3、后台框架可支持拓展二次开发一套网站，...

淘宝客优惠券领取微信小程序前台和后台源码

1、这是一个微信小程序对接淘宝的淘宝客api自助搜索优惠券领取程序，简单易学，有兴趣的欢迎下载 2、后台采用asp.netMvc框架开发、实现了调用阿里妈妈的淘宝客api接口 3、后台框架可支持拓展二次开发一套网站，...

淘宝客微信小程序源码（前端+后台）

淘宝客微信小程序源码，后台修改成自己的淘宝客ID即可运行

自由宿主Asp.net网站通用后台管理系统 v3.2.zip

4.Main页面菜单显示改为json对象传输到前台，然后由menu.js脚本实现菜单展示功能，方便二次开发对界面修改，菜单可以控制允许一次展开多个或者只允许展开一个； 5.修正图片上传后缀名区分大小写的问题； 6.系统...

支付宝接口程序asp源码

notify_url: 服务器后台通知,这个页面是程序后台运行的(买家和卖家都看不到),买家付完款后,支付宝会调用notify_url这个页面所在的页面并把相应的参数传递到这个页面,这个页面根据支付宝传递过来的参数修改网站订单...

问题反馈源码带后台

ASP代码 问题反馈 ASP网页 网页源代码,问题反馈源码，带后台，可完美运行！

ASP.NET MVC后台系统项目

多级菜单，点击菜单生成tab,tab上可显示表格，可实现对表格数据的查询，没有连接数据库，自己造的数据，适合初学者，打开，运行程序就可以看到效果，vs2015，没有其它任何配置。

asp后台管理系统 无限制版

系统扩展性好,支付无限下级的栏目设置, 每一个栏目都可以设置不同的数据模型, 每个栏目都可以设置完全不同的显示样式. 系统权限控制灵活方便,每个栏目都可以独立设置权限,每个文章,每条数据,都可以独立设置权限. ...

房地产公司建站完整源码网站模板ASP带后台

模板介绍： 房地产公司网站模板，风格简洁，界面美观清晰，适合房地产公司，装修设计公司，物业公司类网站建设 宽度：1000px 对齐：居中 ...运行环境：asp.net2.0(或以上） 后台地址pageadmin网站管理系统

c# asp.net 在后台使用谷歌V8引擎执行js

c# 、asp.net 在后台使用谷歌V8引擎执行js，将示例工程中的GoogleV8Engine.cs文件复制到你的项目中。将GoogleV8Engine_x64.dll 和 GoogleV8Engine_x86.dll 两个非托管DLL文件拷贝到工程部署的DLL目录下(ASP.Net拷贝...

用asp实现的县市关键字生成静态页面程序v1.0

县市加关键字生成静态页面程序特点： 1、运行环境：ASP，后台生成htm静态文件 2、把关键词生成到全国各市、县。比喻：北京400电话，上海400电话... 3、关键词可生成到全国，也可只生成到其中一个省份。 说明： 1、...

相关热词 c# 解析cad c#数字格式化万 c#int转byte c#格式化日期 c# wpf 表格 c# 实现ad域验证登录 c#心跳包机制 c#使用fmod.dll c#dll vb 调用 c# outlook