| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 935 人关注过本帖
标题:请指教,急
只看楼主 加入收藏
ccmr
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2007-11-30
收藏
 问题点数:0 回复次数:10 
请指教,急
<body>
<script language="javascript">
function query_onkeydown(){
if(window.event.keycode==13){
document.form1.btnquery.click();
}
}
</script>
<%
nquery=trim(request.Form("query"))
mm_conn= "provider=sqloledb;server=172.16.30.2;uid=aaa;pwd=123456;database=test"
set conn=server.CreateObject("adodb.connection")
conn.open mm_conn
set rs=server.CreateObject("adodb.recordset")

rs.open "select * from person order by userid ",conn,1,1
strquery="select *"
strquery=strquery & "from person"

rs.open strquery,conn,1,1
%>
<form action="" method="post" name="form1">
<p>请选择:
  <select id="query" name="query" style="height:22px;width:180px">
    <option selected value="all">全部内容</option>
    <% do while not rs.eof %>
    <option  <%if rs.fields("userid")=nquery then%> selected <%end if%> value="<%=trim(rs.fields("userid"))%>"><%=rs.fields("userid")%></option>
    <%rs.movenext
loop
'rs.close
%>
  </select>
  <input type="submit" id="btnquery" name="btnquery" value="开始查询">
</p>
<table border="1" cellpadding="0" cellspacing="0" bordercolor="gray" bgcolor="#99CCFF" width="800">
<tr align="center" height="20">
<td width="15%" height="29" align="middle">userid</td>
<td width="25%" align="middle">firstname</td>
<td width="25%" align="middle">lastname</td>
<td width="15%" align="center"> age</td>
<td width="20%" align="middle">adress</td>
</tr>
<%
do while not rs.eof
if isnull(nquery) or len(trim(nquery))<=0 or trim(nquery)="all" then
%>
<tr align="center" height="20">
<td width="15%" height="29" align="middle"><%rs(0)%></td>
<td width="25%" align="middle"><%=rs(2)%></td>
<td width="25%" align="middle"><%=rs(1)%></td>
<td width="15%" align="center"><%=rs(4)%></td>
<td width="20%" align="middle"><%=rs(3)%></td>
</tr>
<% else
strquery=strquery & "where userid='"& nquery &"'"
end if
strquery=strquery & " order by userid "
session("show")=strquery
'response.Write strquery
'response.end
rs.open strquery,conn,1,1
rs.movenext
i=i+1
loop
%>
</table>
</form>
</body>
请指教为什么不能显示所以记录和按要求查询??
搜索更多相关主题的帖子: 指教 
2007-11-30 09:33
永夜的极光
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:2721
专家分:1
注 册:2007-10-9
收藏
得分:0 
do while not rs.eof
这一句前面加一句
rs.movefirst

试试看

从BFS(Breadth First Study)到DFS(Depth First Study)
2007-11-30 12:43
ccmr
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2007-11-30
收藏
得分:0 
我觉得都快乱套了
我改来改去  原来还能显示 现在全是错误了  怎么办???高手们
2007-11-30 13:40
ccmr
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2007-11-30
收藏
得分:0 
斑竹你能不能快点回啊??我在等
2007-11-30 13:42
xiang588
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2007-11-29
收藏
得分:0 
rs.open "select * from person order by userid ",conn,1,1
strquery="select *"
strquery=strquery & "from person"

rs.open strquery,conn,1,1

你的一个结果集rs怎么open这样多次
可以吗?
感觉好乱啊
你可以在创建一个结果集对象rs1或者其他

Coder&Teacher&Dreamer
2007-11-30 14:29
永夜的极光
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:2721
专家分:1
注 册:2007-10-9
收藏
得分:0 
LS说的有道理,同一个记录集没有close而多次open肯定是不行的

另外,我没理解你的问题所在,
如果你希望别人帮你解决问题,最好把出错的情况仔细说说,
而不是贴一段代码,然后说一句"怎么不能XXXX?"就完了

从BFS(Breadth First Study)到DFS(Depth First Study)
2007-11-30 14:39
ccmr
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2007-11-30
收藏
得分:0 
呵呵,好的,先谢谢大家。
上面的代码确实挺乱的,我现在重新写了以后发现了问题的所在,但是我不知道应该怎么解决。
我的目的是:显示数据库中的记录,“全部内容”默认选择,当选择这个的时候所以记录都显示在页面上;按要求点击查询,显示相应的记录
请看下面的代码:
<body>
<%
vquery=trim(request.Form("userid"))
mm_conn= "provider=sqloledb;server=172.16.30.2;uid=aaa;pwd=123456;database=test"
set conn=server.CreateObject("adodb.connection")
conn.open mm_conn
set rs=server.CreateObject("adodb.recordset")
sql=" select userid,firstname,lastname,age,adress from person order by userid"
rs.open sql,conn,1,1
'response.Write sql
'response.end
%>
<form action="" method="post" style="height:20px;width:600px ">
<tr>
<td>请选择:<select id="query" name="query" style="height:22px;width:180px">
<option selected value="all">全部记录</option>
<%
do while not rs.eof
%>

<option <%if rs.fields("userid")=vquery then%> selected <%end if%> value="<%trim(rs.fields("userid"))%>"><%=trim(rs.fields("userid"))%></option>
<% rs.movenext
loop%>
</select></td></tr><br /><br />
<table align="center" width="600" bgcolor="#66CCFF" border="1" cellpadding="1" cellspacing="1">
<tr align="center">
<td width="15%" align="center">userid</td>
<td width="25%" align="center">firstname</td>
<td width="25%" align="center">lastname</td>
<td width="15%" align="center">age</td>
<td width="20%" align="center">adress</td></tr>
<% do while not rs.eof %>
<tr align="center" height="20">
<td width="15%" height="29" align="middle"><%=rs(0)%></td>
<td width="25%" align="middle"><%=rs(2)%></td>
<td width="25%" align="middle"><%=rs(1)%></td>
<td width="15%" align="center"><%=rs(3)%></td>
<td width="20%" align="middle"><%=rs(4)%></td>
</tr>
<%
rs.movenext
loop
%>

</table>
</form>
</body>
通过这段代码,如果我不加<select></select>之间的内容,所有的记录都能显示,但是如果加上那段代码,显示页面只有查询下拉列表,那些记录都没有了,我不知道怎么解决这个问题,我想把截图发给你们可是我不知道这上面怎么发

1.GIF (2.9 KB)
图片附件: 游客没有浏览图片的权限,请 登录注册
2007-11-30 16:11
ccmr
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2007-11-30
收藏
得分:0 
图片显示的就是我上面那段代码显示的内容
不好意思,因为我这是整体效果达不到要求,所以我只能把整段代码都放上去,让各位指点一下。
2007-11-30 16:13
madpbpl
Rank: 4
等 级:贵宾
威 望:11
帖 子:2876
专家分:244
注 册:2007-4-5
收藏
得分:0 
<option <%if rs.fields("userid")=vquery then%> selected <%end if%> value="<%trim(rs.fields("userid"))%>"><%=trim(rs.fields("userid"))%></option>
应该是这句的问题
<option <%if rs.fields("userid")=vquery then%> selected <%end if%> value="<%=trim(rs.fields("userid"))%>"><%=trim(rs.fields("userid"))%></option>
2007-11-30 18:00
ccmr
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2007-11-30
收藏
得分:0 
还是不能达到效果
还是不能达到效果啊,不能查询
2007-12-05 15:56
快速回复:请指教,急
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018412 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved