set rs1=server.createobject("adodb.recordset")

就是查询的结果在网页上的<table></table>中显示

[此贴子已经被作者于2007-10-13 21:32:18编辑过]

办法一:如果两个表都是有关系的表，就可以用联合查询。
办法二:如果楼主只是想把表2的查询结果接在表一后面，可以用7楼的办法。

其实我只是从一个数据表里取数据,点查询1后结果显示网页的table里,再点查询2,结果也用这个table,但不显示查询1的结果,两个查询是独立的,只显示各自的结果,不接在一起,就像.NET的GridView或者是DataGrid一样.

可以传SQL语句到一个rs对象中。

楼主可以看看这个我以前写的ASP搜索，楼主说的那个跟这个我想原理上是差不多的。

一些细节上面不太同,还是想问问,我的查询页面代码
[CODE]<script language="javascript">
function Page_Submit(idx)
{
document.form1.SubBtn.value=idx;
document.form1.submit();
}
</script>
<form id="form1" name="form1" method="post" action="list.asp">
<table width="882" border="1" cellpadding="0" cellspacing="0" bordercolor="#99FFFF">
<tr bordercolor="#FFFFFF" bgcolor="#FFFFCC">
<th colspan="6" scope="col"><div align="left">
<p class="STYLE1">请选择您想查询的内容:</p>
</div></th>
</tr>
<tr bgcolor="#CCFFCC">
<td width="72">类　型:</td>
<td width="200"><select name="select0" size="1">
<option value="台式机" selected="selected">台式机</option>
<option value="笔记本">笔记本</option>
<option value="服务器">服务器</option>
</select></td>
<td width="60"><input type="submit" name="Submit" value="查询" onClick="Page_Submit(1);"/></td>
<td width="249">主　频：</td>
<td width="115"><select name="select4" size="1">
<option selected="selected">1GHZ-1.8GHZ</option>
<option>1.8GHZ-3GHZ</option>
<option>3GHZ以上</option>
</select></td>
<td width="172"><input type="submit" name="Submit4" value="查询" onClick="Page_Submit(2);"/></td>
</table>[/CODE]
这是处理页面,不知道case2可以那样写吗?
[CODE]<%
select case Request.Form("SubBtn")
case "1"
computertype=request.form("select0")
dim con,DBPath
set con=server.CreateObject("ADODB.Connection")
DBPath=server.MapPath("data.mdb")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&DBPath&";Persist Security Info=False"
set rs=server.CreateObject("ADODB.Recordset")
sql="select * from [Dell] where 类型 like '%"&computertype&"%'"
con.execute sql
rs.open sql,con,1,3
case "2"
zp=request.form("select4")
set con=server.CreateObject("ADODB.Connection")
DBPath=server.MapPath("data.mdb")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&DBPath&";Persist Security Info=False"
set rs1=server.CreateObject("ADODB.Recordset")
sql="select * from [Dell] where 主频 like '%"&zp&"%'"
con.execute sql
rs1.open sql,con,1,3
case else
Response.Write "什么也没提交"
End Select
%>
以下是查询结果:
<table cellspacing="0" id="mytable">
<tr>
<th width="74"><div align="center">产品编号</div></th>
<th width="209"><div align="center">产品名称</div></th>
<th width="73"><div align="center">主频</div></th>
<th width="99"><div align="center">单双核</div></th>
<th width="77"><div align="center">内存</div></th>
<th width="93"><div align="center">硬盘</div></th>
<th width="171"><div align="center">光驱</div></th>
<th width="124"><div align="center">显卡</div></th>
<th width="161"><div align="center">显示器</div></th>
<th width="202"><div align="center">操作系统</div></th>
<th width="108"><div align="center">类型</div></th>
<th width="83"><div align="center">售价</div></th>
</tr>
<%
do while not rs.eof
%>
<tr>
<td>
<%=rs("产品编号")%>
</td>
<td>
<%=rs("产品名称")%>
</td>
<td>
<%=rs("主频")%>
</td>
<td>
<%=rs("单双核")%>
</td>
<td>
<%=rs("内存")%>
</td>
<td>
<%=rs("硬盘")%>
</td>
<td>
<%=rs("光驱")%>
</td>
<td>
<%=rs("显卡")%>
</td>
<td>
<%=rs("显示器")%>
</td>
<td>
<%=rs("预装操作系统")%>
</td>
<td>
<%=rs("类型")%>
</td>
<td>
<%=rs("售价")%>
</td>
</tr>
<%
rs.movenext
loop
do while not rs1.eof
%>
'这里还想显示case2的内容,但不知道怎么写下去了
</table>
<% if rs.eof and rs.bof then %>
对不起,没有找到相关内容
<%
rs.close
set rs=nothing
con.close
set con=nothing
%>
<% end if %>[/CODE]

可以帮忙纠正下吗?

[CODE]<%
dim con,DBPath
set con=server.CreateObject("ADODB.Connection")
DBPath=server.MapPath("data.mdb")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&DBPath&";Persist Security Info=False"
set rs=server.CreateObject("ADODB.Recordset")
select case Request.Form("SubBtn")
case "1"
computertype=request.form("select0")
sql="select * from [Dell] where 类型 like '%"&computertype&"%'"
con.execute sql
rs.open sql,con,1,3
case "2"
zp=request.form("select4")
sql="select * from [Dell] where 主频 like '%"&zp&"%'"
con.execute sql
rs.open sql,con,1,3
case else
Response.Write "什么也没提交"
End Select
%>
以下是查询结果:
<table cellspacing="0" id="mytable">
<tr>
<th width="74"><div align="center">产品编号</div></th>
<th width="209"><div align="center">产品名称</div></th>
<th width="73"><div align="center">主频</div></th>
<th width="99"><div align="center">单双核</div></th>
<th width="77"><div align="center">内存</div></th>
<th width="93"><div align="center">硬盘</div></th>
<th width="171"><div align="center">光驱</div></th>
<th width="124"><div align="center">显卡</div></th>
<th width="161"><div align="center">显示器</div></th>
<th width="202"><div align="center">操作系统</div></th>
<th width="108"><div align="center">类型</div></th>
<th width="83"><div align="center">售价</div></th>
</tr>
<%
do while not rs.eof
%>
<tr>
<td>
<%=rs("产品编号")%>
</td>
<td>
<%=rs("产品名称")%>
</td>
<td>
<%=rs("主频")%>
</td>
<td>
<%=rs("单双核")%>
</td>
<td>
<%=rs("内存")%>
</td>
<td>
<%=rs("硬盘")%>
</td>
<td>
<%=rs("光驱")%>
</td>
<td>
<%=rs("显卡")%>
</td>
<td>
<%=rs("显示器")%>
</td>
<td>
<%=rs("预装操作系统")%>
</td>
<td>
<%=rs("类型")%>
</td>
<td>
<%=rs("售价")%>
</td>
</tr>
<%
rs.movenext
loop
%>
'这里还想显示case2的内容,但不知道怎么写下去了
</table>
<% if rs.eof and rs.bof then %>
对不起,没有找到相关内容
<%
rs.close
set rs=nothing
con.close
set con=nothing
%>
<% end if %>[/CODE]
跟本不需要另一个rs1直接使用一个rs就可以了。

谢谢版主,已经做好一部分了,可是为什么在查询的时候有些可以正确查询,有些不能呢?好像是有汉字的查询会出错

这个可能是汉字编码问题。

有什么解决方法吗?