如何用ASP显示数据查询的结果?

Alex_li 2002-08-13 11:04:44

e.g.

数据库

表（存放产品信息）
编号，名称，价格，备注

输入编号，查询取得数据

如果用ASP显示　查询的结果

Help!

...全文

399 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

yhncom_36de 2002-08-13

打赏
举报

up!

lly1111 2002-08-13

打赏
举报

cshadow 2002-08-13

打赏
举报

a.asp
<form action="b.asp" method="post" name="form1" onsubmit="return checkuser()">
请输入编号：<input type="text" name="编号" maxlength="50">
<input type="submit" name="submit" value="提交">
</form>

b.asp
省略链接数据库部分
<%set Rs = Server.CreateObject("ADODB.recordset")
sql="select * from 表 where 编号="&request("编号")
rs.open sql,conn,3,3
do while not rs.eof
rs("编号")
..........
rs.movenext
loop%>

rtewryery 2002-08-13

打赏
举报

CSDN - 专家门诊 - ASP问题
回复 | 推荐 | 收藏 | 专题 | 公告 | 管理 | 关闭窗口

主　　题：如何用ASP显示数据查询的结果?
作　　者： Alex_li (紫龙)
等　　级：
信誉值： 100
所属论坛： ASP
问题点数： 20
回复次数： 6
发表时间： 2002-08-13 11:03:29

e.g.

数据库

表（存放产品信息）
编号，名称，价格，备注

输入编号，查询取得数据

如果用ASP显示　查询的结果

Help!

回复人： lly1111() ( ) 信誉：100 2002-08-13 11:41:00 得分:0

<table width="550" border="0" cellspacing="1" cellpadding="1" align="center" bgcolor="#2663A6">
<tr bgcolor="#7294CB">
<td colspan="2" height="27">
<div align="center"><font size="3">查询结果：</font></div>
</td>
</tr>
<%
rs=server.createobject("adodb.recordset")
sqls="select * form user where bianhao='"&request.form("bianhao")&"'"
rs.open sqls,conn,3,1
if rs.eof then
response.write "无记录"
else
do while not rs.eof
%>
<tr bgcolor="#EFEFEF">
<td width="70">编号：</td>
<td width="480="><%=rs("bianhao")%</td>
</tr>
<% rs.movenext
loop
end if
set conn.close
set conn=nothing
%>
</table>

Top

回复人： delphi_50(孤独的程序员) ( ) 信誉：100 2002-08-13 12:38:00 得分:0

up!

Top

回复人： yz_ivan(傻瓜书) ( ) 信誉：100 2002-08-13 13:01:00 得分:0

试试下面的代码，注意把相关的数据库名、表名、字段名换掉

输入查询条件的页面：
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<div align="center">
<form name="form1" method="post" action="">
<p>请输入编号：
<input type="text" name="ID">
</p>
<p>
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置">
</p>
</form>
</div>
</body>
</html>

显示查询条件的页面：
<HTML>
<HEAD>
<TITLE>数据显示</TITLE>
</HEAD>

<BODY bgcolor="#99ccff">
<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("数据库名")
Set rs = Server.CreateObject("ADODB.Recordset")
SQLstr = "Select * From 表名 Where Like '"&Request("ID")&"' "
Set rs = Conn.Execute(SQLstr)
%>

<table border=0 width=80%>
<tr>
<td>
<div align="center">编号</div>
</td>
<td>
<div align="center">名称</div>
</td>
<td>
<div align="center">价格</div>
</td>
<td>
<div align="center">备注</div>
</td>
</tr>
<% While rs.EOF = False %>
<tr>
<td>
<div align="center"><%=rs.Fields("编号")%></div>
</td>
<td>
<div align="center"><%=rs.Fields("名称")%></div>
</td>
<td>
<div align="center"><%=rs.Fields("价格")%></div>
</td>
<td>
<div align="center"><%=rs.Fields("备注")%></div>
</td>
<%
rs.MoveNext
Wend
%>
</tr>
</table>
</BODY>
</HTML>

wuhanman2001 2002-08-13

打赏
举报

实现模糊查找用以下语句：
sqls="select * form user where bianhao like '%"&request.form("bianhao")&"%'",也就是在变量左右加一通配符‘%’，前面用like即可

im_yh 2002-08-13

打赏
举报

关于：rs.open sqls,conn,3,1
3－－游标
1－－锁定类型

<%
'定义数据库连接的一些常量
Const adOpenForwardOnly = 0 '游标只向前浏览记录，不支持分页、Recordset、BookMark
Const adOpenKeyset = 1 '键集游标，其他用户对记录说做的修改将反映到记录集中，但其他用户增加或删除记录不会反映到记录集中。支持分页、Recordset、BookMark
Const adOpenDynamic = 2 '动态游标功能最强，但耗资源也最多。用户对记录说做的修改，增加或删除记录都将反映到记录集中。支持全功能浏览(ACCESS不支持)。
Const adOpenStatic = 3 '静态游标，只是数据的一个快照，用户对记录说做的修改，增加或删除记录都不会反映到记录集中。支持向前或向后移动

Const adLockReadOnly = 1 '锁定类型，默认的，只读，不能作任何修改
Const adLockPessimistic = 2 '当编辑时立即锁定记录，最安全的方式
Const adLockOptimistic = 3 '只有在调用Update方法时才锁定记录集，而在此前的其他操作仍可对当前记录进行更改、插入和删除等
Const adLockBatchOptimistic = 4 '当编辑时记录不会被锁定，而更改、插入和删除是在批处理方式下完成的

Const adCmdText = &H0001
Const adCmdTable = &H0002
%>

coolwj8wj 2002-08-13

打赏
举报

请问

sqls="select * form user where bianhao='"&request.form("bianhao")&"'"

这里bianhao='"&request.form("bianhao")&"'"
是否可以实现模糊查询，
不有“&行不行啊？

rs.open sqls,conn,3,1

3,1，是什么，用2,1行不行啊？

yz_ivan 2002-08-13

打赏
举报

试试下面的代码，注意把相关的数据库名、表名、字段名换掉

输入查询条件的页面：
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<div align="center">
<form name="form1" method="post" action="">
<p>请输入编号：
<input type="text" name="ID">
</p>
<p>
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置">
</p>
</form>
</div>
</body>
</html>

显示查询条件的页面：
<HTML>
<HEAD>
<TITLE>数据显示</TITLE>
</HEAD>

<BODY bgcolor="#99ccff">
<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("数据库名")
Set rs = Server.CreateObject("ADODB.Recordset")
SQLstr = "Select * From 表名 Where Like '"&Request("ID")&"' "
Set rs = Conn.Execute(SQLstr)
%>

<table border=0 width=80%>
<tr>
<td>
<div align="center">编号</div>
</td>
<td>
<div align="center">名称</div>
</td>
<td>
<div align="center">价格</div>
</td>
<td>
<div align="center">备注</div>
</td>
</tr>
<% While rs.EOF = False %>
<tr>
<td>
<div align="center"><%=rs.Fields("编号")%></div>
</td>
<td>
<div align="center"><%=rs.Fields("名称")%></div>
</td>
<td>
<div align="center"><%=rs.Fields("价格")%></div>
</td>
<td>
<div align="center"><%=rs.Fields("备注")%></div>
</td>
<%
rs.MoveNext
Wend
%>
</tr>
</table>
</BODY>
</HTML>