| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 533 人关注过本帖
标题:[求助]记录集的问题 大家看看
取消只看楼主 加入收藏
zy78918
Rank: 1
等 级:新手上路
帖 子:209
专家分:0
注 册:2007-7-18
收藏
 问题点数:0 回复次数:1 
[求助]记录集的问题 大家看看
<!-- #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">&nbsp;&nbsp;&nbsp;&nbsp;
选择搜索目标:<SELECT NAME="aa">
<OPTION VALUE="1">搜索图书
<OPTION VALUE="2">搜索借阅记录
</SELECT>
&nbsp;&nbsp;&nbsp;&nbsp;
</TD>
<TD height="40">&nbsp;&nbsp;&nbsp;&nbsp;
选择搜索内容:<SELECT NAME="bb">
<OPTION VALUE="1">按图书名搜索
<OPTION VALUE="2">按编号搜索
</SELECT>
&nbsp;&nbsp;&nbsp;&nbsp;
</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编辑过]

搜索更多相关主题的帖子: ACTION SCRIPT search body 
2007-07-27 09:00
zy78918
Rank: 1
等 级:新手上路
帖 子:209
专家分:0
注 册:2007-7-18
收藏
得分:0 
哎 自己的问题自己解决 大家看下这个解决方法


<!-- #include file="conn.asp" -->
<body bgcolor="">
<SCRIPT LANGUAGE="vbScript">
<!--
Sub search()
If f1.txt.value<>"" Then
if not (isnumeric(f1.txt.value)) then
msgbox"必须为数字!"
Else
f1.action="search.asp"
f1.submit
End if
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 height="40">&nbsp;&nbsp;&nbsp;&nbsp;
选择搜索目标:<SELECT NAME="aa">
<OPTION VALUE="1">搜索图书
<OPTION VALUE="2">搜索借阅记录
</SELECT>
&nbsp;&nbsp;&nbsp;&nbsp;
</TD>
<TD height="40">&nbsp;&nbsp;&nbsp;&nbsp;
选择搜索内容:<SELECT NAME="bb">
<OPTION VALUE="1">按图书名搜索
<OPTION VALUE="2">按编号搜索
</SELECT>
&nbsp;&nbsp;&nbsp;&nbsp;
</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,State
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")=2 Then
Set rec=conn.execute("select * from readers where book_ID like '%"&request("txt")&"%'")
End if
End Select

If request("aa")=2 And request("bb")=1 Then
response.write "<CENTER><FONT COLOR=""red"">无法搜索图书名,请按编号搜索!</FONT></CENTER>"
else
If Not rec.eof then
If request("aa")=1 then
Do While Not rec.eof
If rec(5)=0 Then
State="<FONT COLOR=""#FF0066"">库存</FONT>"
Else
State="<FONT COLOR=""#FFCC66"">借出</FONT>"
End if
%>
<p>
<TABLE border="1" bordercolor="#FF00CC">
<TR>
<TD width="80" height="35">图书编号</TD>
<TD width="190">图书名</TD>
<TD width="100">作者</TD>
<TD width="130">出版社</TD>
<TD width="110">类别</TD>
<TD width="90">状态</TD>
<TD width="80">价格</TD>
</TR>
<TR>
<TD height="35"><%=rec(0)%></TD>
<TD><%=rec(1)%></TD>
<TD><%=rec(2)%></TD>
<TD><%=rec(3)%></TD>
<TD><%=rec(4)%></TD>
<TD><%=State%></TD>
<TD><%=rec(6)%>元</TD>
</TR>
</table>
<%
rec.movenext
Loop
ElseIf request("aa")=2 And request("bb")<>1 then
%>
<p>
<TABLE border="1" bordercolor="#FF00CC">
<TR>
<TD width="120" height="35">图书编号</TD>
<TD width="200">图书名</TD>
<TD width="140">借阅用户</TD>
<TD width="180">借阅时间</TD>
<TD width="180">截止时间</TD>
<TD width="80">状态</TD>
</TR>
<%
Do While Not rec.eof

'查询图书名
Set rec2=conn.execute("select book_name from book where book_id='"&rec(1)&"'")
%>
<TR>
<TD height="35"><%=rec(1)%></TD>
<TD><%=rec2(0)%></TD>
<TD><%=rec(2)%></TD>
<TD><%=rec(3)%></TD>
<TD><%=rec(4)%></TD>
<%
Dim str3
str3="select Book_return from readers where ID='" & rec(0) & "'"
Set recmy=conn.execute(str3)
If recmy(0)=0 then
%>
<td><A href="#" onclick="return(<%=rec(0)%>)">归还</a></td>
<%
Else
%>
<td><FONT COLOR="red">已归还</FONT></a></td>
<%
End if
%>
</TR>
<%
rec.movenext
Loop
End If
Else
response.write "<CENTER><FONT COLOR=""red"">没有搜索到相关信息!</FONT></CENTER>"
End If
End if
End if
%>
</FORM>
</body>

2007-07-27 10:25
快速回复:[求助]记录集的问题 大家看看
数据加载中...
 
   



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

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