我不太懂asp,所以请教大虾

1）提交页：1个文本输入框，1个单选列表（选择所需的表），1个提交钮
2）结果页：在所选表中查询，生成记录集
有3个表，其实每张表的字段是一样的（同一张表复制做的）只是名字不同而已

我现在只会由一张表生成的查询，请问如何实现选择所需的表的功能？？？？？
要在结果页中分别作3张表的记录集吗？

还是不懂啊？！！！
没看到里面有讲关于------这个问题的

还是不懂啊？！！！ ]
select * from 是基于cn连接和rs记录集已经设好的情况
请问cn连接和rs记录集是如何进行设定、选择呢？

还有，cn连接和rs记录集已经设好也没有关系，你可以在代码编辑模式下手动修改啊。主要在记录集里打开高级模式，然后加变量，改sql语句即可。

不客气。大家探讨嘛：）
其实建立cn是不用选择的。你只要正确连接数据库就可以了。关键是在查询时选择表，即记录集。我上面给你提供的方法是可行的。不过你说不会写代码，有点不好办。不过我想如果表格能三合为一就很好办了。因为你三张表一模一样。只是里面数据不一样，你可以这么办。在表里加个字段，如“tbid”。是表一的数据，在该记录的"tbid"字段输入1，表二的数据，输入2，表三的数据输入3。这样就把数据区别开了。在查询页面，文本框随便起个名字，如“textfield”，下拉选单也同样起个名字，如“select”。里面有三个选项。如：单位一，值为1，单位二，值为2，单位三，值为3。在结果页面，设定记录集，你打开数据集面板，选高级模式，在下方单击“+”号，增加2个变量，如：变量名为 a ，运行时值为request。form("textfield")
变量名为 b，运行时值为request。form("select")然后在上方sql语句里这么写
select * from 表
where 你查询的字段名='a' and tbid='b'
就ok了。不知道对你有没有帮助。
如果实在不行，我作一个给你看看，告诉我你的email

我试着在ud里面改了一下，加了case选择，好像还是不对，帮忙看一下
<%@LANGUAGE="VBSCRIPT"%>


<%

Dim ser__MMColParam
ser__MMColParam = "1"
If (Request.Form("topic") <> "") Then
ser__MMColParam = Request.Form("topic")
End If
%>
<%
data = Request.Form("select")
select case data
case cpt
MM_cndata_STRING = MM_cncpt_STRING
bdata = cptdn
case pho
MM_cndata_STRING = MM_cnpho_STRING
bdata = phosj
end select

Dim ser
Dim ser_numRows

Set ser = Server.CreateObject("ADODB.Recordset")
ser.ActiveConnection = MM_cndata_STRING
ser.Source = "SELECT * FROM bdata WHERE topic LIKE '%" + Replace(ser__MMColParam, "'", "''") + "%' ORDER BY di DESC"
ser.CursorType = 0
ser.CursorLocation = 2
ser.LockType = 1
ser.Open()

ser_numRows = 0
%>









<%=(ser.Fields.Item("topic").value)
%>


<%
ser.Close()
Set ser = Nothing
%>

天啊！！！！！
反括号竟然变脸了

嘿嘿，不好意思，发表过星号偏掉了；）
你把变量a改为from和where之间的所有内容就对了。