[求助]记录集的问题 大家看看
<!-- #include file="conn.asp" --><body bgcolor="">
<SCRIPT LANGUAGE="vbScript">
<!--
Sub search()
If f1.txt.value<>"" Then
f1.action="search.asp"
f1.submit
Else
msgbox"请输入关键字"
End if
End sub
//-->
</SCRIPT>
<style>
table tr{text-align:center}
</style>
<FORM METHOD=POST ACTION="" name="f1">
<TABLE border="1" bordercolor="#9933FF" align="center">
<TR>
<TD colspan="2" height="50"><FONT SIZE="5" COLOR="red">搜索所有信息</FONT></TD>
</TR>
<TR>
<TD height="40">
选择搜索目标:<SELECT NAME="aa">
<OPTION VALUE="1">搜索图书
<OPTION VALUE="2">搜索借阅记录
</SELECT>
</TD>
<TD height="40">
选择搜索内容:<SELECT NAME="bb">
<OPTION VALUE="1">按图书名搜索
<OPTION VALUE="2">按编号搜索
</SELECT>
</TD>
</TR>
<TR>
<TD colspan="2" height="40">输入关键字:<INPUT TYPE="text" NAME="txt"></FONT></TD>
</TR>
<TR>
<TD height="30"><A HREF="#" onclick="search()">确 定</a></TD>
<TD><A HREF="#">取 消</a></TD>
</TR>
</TABLE>
<%
Dim str
If request("txt")<> "" then
Select Case request("aa")
Case "1"
If request("bb")=1 Then
Set rec=conn.execute("select * from book where book_name like '%"&request("txt")&"%'")
Else
Set rec=conn.execute("select * from book where book_ID like '%"&request("txt")&"%'")
End if
Case "2"
If request("bb")=1 Then
response.write "<CENTER><FONT COLOR=""red"">无法搜索图书名,请按编号搜索!</FONT></CENTER>"
Else
Set rec=conn.execute("select * from readers where book_ID like '%"&request("txt")&"%'")
End if
End Select
End if
%>
</FORM>
</body>
我要把记录集REC输出 不知道有什么方法没??
而且Case "1" 和 Case "2" 是 2张不同的表
表BOOK
序号 列名 数据类型 长度 是否允许为空 说明
1 Book_ID Int 4 否 图书ID
2 Book_Name nvarchar 50 否 图书名
3 Book_Author nvarchar 50 是 作者
4 Book_Press nvarchar 100 是 出版社
5 Book_Category nvarchar 50 是 类别
6 Book_State int 4 是 状态
7 Book_Price smallmoney 4 是 价格
表readers
序号 列名 数据类型 长度 是否允许为空 说明
1 ID int 4 否 ID号 自动编号
2 Book_ID Int 4 是 图书ID
3 User_ID int 4 是 用户ID
4 Book_Time datatime 8 是 借阅时间
5 Book_ToTime datatime 8 是 借阅截止时间
怎么在ASP文件里面把RCE输出???
[此贴子已经被作者于2007-7-27 10:26:39编辑过]