大家来看看，问题有点奇怪喔！

yxh8259 2003-02-13 09:58:50
<body>

<%wyhh=request.form("yhh")%>

<%
Set conn=Server.CreateObject ("ADODB.Connection")
connStr="DSN=zyydgl;Database=zyydgl;UID=;PWD=;"
conn.Open connStr
Set rs=Server.CreateObject ("ADODB.RecordSet")
rs.CursorType = adOpenStatic
tempSQL="select yhh,yhm,yddz,yyhh from df_yhjbxx where yhh='"&wyhh&"'"
rs.Open tempSQL,conn
%>

<p align="center">记录</p>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="25%"><font color="#FF0000">帐号：<%=rs("yhh")%></font></td>
<td width="46%">户名：<%=rs("yhm")%></td>
<td width="29%">卡号：<%=rs("yyhh")%></td>
</tr>
<tr>
<td width="100%" colspan="3">地址：<%=rs("yddz")%></td>
</tr>
<tr>

<td width="100%" colspan="3">表号：</td>
</tr>
</table>
<hr color="#0000FF">

<%
wnian=request.form("nian")
wyue=request.form("yue")
%>

<%
Set conn2=Server.CreateObject ("ADODB.Connection")
connStr2="DSN=zyydgl;Database=zyydgl;UID=;PWD=;"
conn2.Open connStr
Set rs2=Server.CreateObject ("ADODB.RecordSet")
rs2.CursorType = adOpenStatic
tempSQL2="select yhh,cbrq,zdl,zdf from df_zdf_ls where yhh='"&wyhh&"' order by cbrq desc"
rs2.Open tempSQL2,conn2
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
<tr>
<td width="8%" align="center">月份</td>
<td width="8%" align="center">计费</td>
<td width="8%" align="center">应交</td>
<td width="8%" align="center">实交</td>
<td width="8%" align="center">未交</td>
<td width="8%" align="center">收费日期</td>
</tr>
<%
WHILE NOT rs2.EOF
%>
<tr>
<td width="8%" align="center"><%=rs2("cbrq")%>　</td>
<td width="8%" align="center"><%=rs2("zdl")%> 　</td>
<td width="8%" align="center"><%=rs2("zdf")%> 元　</td>
<td width="8%" align="center">　</td>
<td width="8%" align="center">　</td>
<td width="8%" align="center">　</td>
</tr>
<%
rs2.MoveNext
WEND
%>
</table>

</body>

运行时记录不能全部显示，有的可显示一条，有的可显示几条，有的一条也显示不了
(用PB运行SQL语句没问题，我怀疑是PWS的问题，由于客观原因我的机器不能装WIN2000。没用IIS试过)，出现错误提示如下：
Microsoft OLE DB Provider for ODBC Drivers 错误 '80020009'

多步 OLE DB 操作产生错误。请检查每个 OLE DB 状态值。没有工作被完成。

?

...全文
32 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
yxh8259 2003-02-19
  • 打赏
  • 举报
 回复
还是不行!!!!!!!!
ChaoHan 2003-02-18
  • 打赏
  • 举报
 回复
rs.Open tempSQL,conn改为rs.Open tempSQL,conn,1,3
rs2.Open tempSQL,conn改为rs2.Open tempSQL,conn,1,3

试一试吧！希望有用！
yxh8259 2003-02-18
  • 打赏
  • 举报
 回复
按你们说的改了.问题仍然存在!!!!!!!!!!!!!!!!!!!!!!!!!!!
saidong 2003-02-13
  • 打赏
  • 举报
 回复
呵呵，数据库数据连接与记录的用完即释放，可是个不容忽视的问题。即算程序不出问题，就微软那破内存管理方式，一会IIS就老牛拉车了！
逍遥小贼 2003-02-13
  • 打赏
  • 举报
 回复
<body>

<%wyhh=request.form("yhh")%>

<%
Set conn=Server.CreateObject ("ADODB.Connection")
connStr="DSN=zyydgl;Database=zyydgl;UID=;PWD=;"
conn.Open connStr
Set rs=Server.CreateObject ("ADODB.RecordSet")
rs.CursorType = adOpenStatic
tempSQL="select yhh,yhm,yddz,yyhh from df_yhjbxx where yhh='"&wyhh&"'"
rs.Open tempSQL,conn
%>

<p align="center">记录</p>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="25%"><font color="#FF0000">帐号：<%=rs("yhh")%></font></td>
<td width="46%">户名：<%=rs("yhm")%></td>
<td width="29%">卡号：<%=rs("yyhh")%></td>
</tr>
<tr>
<td width="100%" colspan="3">地址：<%=rs("yddz")%></td>
</tr>
<tr>

<td width="100%" colspan="3">表号：</td>
</tr>
</table>
<hr color="#0000FF">

<%
rs.close
wnian=request.form("nian")
wyue=request.form("yue")
%>

<%

Set rs2=Server.CreateObject ("ADODB.RecordSet")
rs2.CursorType = adOpenStatic
tempSQL2="select yhh,cbrq,zdl,zdf from df_zdf_ls where yhh='"&wyhh&"' order by cbrq desc"
rs2.Open tempSQL2,conn2
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
<tr>
<td width="8%" align="center">月份</td>
<td width="8%" align="center">计费</td>
<td width="8%" align="center">应交</td>
<td width="8%" align="center">实交</td>
<td width="8%" align="center">未交</td>
<td width="8%" align="center">收费日期</td>
</tr>
<%
WHILE NOT rs2.EOF
%>
<tr>
<td width="8%" align="center"><%=rs2("cbrq")%>　</td>
<td width="8%" align="center"><%=rs2("zdl")%> 　</td>
<td width="8%" align="center"><%=rs2("zdf")%> 元　</td>
<td width="8%" align="center">　</td>
<td width="8%" align="center">　</td>
<td width="8%" align="center">　</td>
</tr>
<%
rs2.MoveNext
WEND

rs2.close
set conn=nothing
%>
</table>

</body>
aqy_19781228 2003-02-13
  • 打赏
  • 举报
 回复
因为你调用了两次数据库，当你用完一个rs后，马上把它关掉试试
安装软件时出了个怪问题，我截了个图。大家帮忙看看
我安装 office 2003 迷你第7版(最终完美版)，autoCaD2006时都出现了这个问题。...我截图了，大家帮看看啊！哪位知道啊，拜托帮帮忙啊。。。 我都郁闷好几天了 对了，这些问题是在我这几天重装了系统之后出现的。WinXP
我的世界基java版刷怪机制_我的世界为什么自己的刷怪塔效率低下原因分析
今天游戏园小编带来了一篇关于如何提高我的世界刷怪塔效率的文章，来看看吧！原文作者：xuruich刷怪塔如何才能效率高？在mc中，要说最有用，最令人兴奋的装置，非刷怪塔莫属既能提供大量难以大量获得的怪物掉落的...
我的世界基java版刷怪机制_我的世界1.8版本刷怪机制_我的世界代码1.8版本刷怪机制_快吧单机游戏...
今天给大家带来玩家“etflly”总结分享的1.8刷怪机制(源码解析)，感兴趣的一起来看看吧！我的世界1.8版本刷怪机制。昨天把MC中刷怪的源码过了一遍，主要部分是net.minecraft.world.SpawnerAnimals中的...
我的世界java版高效率刷怪塔_我的世界超高效率刷怪塔制作教程 砍怪砍到手抽筋...
刷怪塔能让我们的游戏变的非常的简单，因为无限的经验和物品让我们的...哪是不是这样呢，大家一起来看一下我的试验。大家看图：中大方框是160X160格，大概160X160米(以下我都以格为单位，不以米作单位)中间是40X40...
我的世界Java版高效刷怪塔_摔死才是王道 我的世界高效刷怪塔教程（含存档）...
那下面给大家分享的则是我的世界很多小伙伴都想要的刷怪塔教学，那到底怎么做刷怪塔呢？那下面就一起来看看吧！希望大家喜欢。游戏园我的世界二群：256070479玩服务器的小伙伴们可以加入：464651602群一起联机玩游戏...
ASP

28,391

社区成员

357,060

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章