如何将查询出来的数据总数量显示在网页中

fkueyga6 2008-09-06 12:05:03
如何将查询出来的数据总数量显示在网页中
数据库名为：001.asp
表名为：xygl
例如,搜索后显示如下内容：(请问如何让？处显示为2)


结果: 共？条记录
id: 182 - SM20080831104356 - 周妍 - 女
--------------------------------------------------------------------------------
id: 184 - SM20080831113236 - 岳文杰 - 男
...全文
218 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
jiangpingchang 2008-09-06
  • 打赏
  • 举报
 回复
在执行一遍sql语句啊，
select count(id) as No from ** where ****
查询条件和你查询数据的条件相同，直接输出就可以了rs("No")就可以了
sniper1534 2008-09-06
  • 打赏
  • 举报
 回复
[Quote=引用 6 楼 huanwuying_my 的回复:]
Response.Write(Rs.RecordCount)
[/Quote]正解！
sy_binbin 2008-09-06
  • 打赏
  • 举报
 回复
<%
keyWord = request("x4")
keyType = request("select")
if keyType = "xm" then
sql = "select * from xygl where t2 like '%"&keyWord&"%'"
elseif keyType = "xh" then
sql = "select * from xygl where t1 like '%"&keyWord&"%'"
elseif keyType = "xb" then
sql = "select * from xygl where t4 like '%"&keyWord&"%'"
elseif keyType = "zt" then
sql = "select * from xygl where t6 like '%"&keyWord&"%'"
elseif keyType = "rq" then
sql = "select * from xygl where t8 like '%"&keyWord&"%'"
elseif keyType = "km" then
sql = "select * from xygl where t29 like '%"&keyWord&"%'"
elseif keyType = "jd" then
sql = "select * from xygl where t34 like '%"&keyWord&"%'"
elseif keyType = "sj" then
sql = "select * from xygl where t33 like '%"&keyWord&"%'"
elseif keyType = "dd" then
sql = "select * from xygl where t30 like '%"&keyWord&"%'"
end if
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
Response.Write " <BR> <B>      结果: 共条"&rs.recordCount&"记录 </B> <UL>"
On Error Resume Next
rs.MoveFirst
Do While Not rs.eof
Response.Write "      <FONT SIZE=2>id: " & rs.Fields("id") & " </FONT> - "
Response.Write "" & " <A HREF='xygl5.asp?Indexid=" & rs.Fields("id").Value & "'>" & rs.Fields("t1") & " </A> - "
Response.Write rs.Fields("t2") & " - "
Response.Write rs.Fields("t4") & " - "
Response.Write rs.Fields("t6") & " - "
Response.Write rs.Fields("t8") & " - "
Response.Write rs.Fields("t29") & " - "
Response.Write rs.Fields("t34") & " - "
Response.Write rs.Fields("t33") & " - "
Response.Write rs.Fields("t30") & " - "
Response.Write rs.Fields("t43") & ""
Response.Write " <HR SIZE=1 WIDTH=890 ALIGN=LEFT>"
rs.MoveNext
Loop
Response.Write " </UL>"
else
response.write "没找到数据！"
end if
rs.close
%>
</BODY>
</HTML>
<%
htmlend
%>
zl_c 2008-09-06
  • 打赏
  • 举报
 回复 
Response.Write " <BR> <B>      结果: 共条 " & rs.recordCount & "记录 </B> <UL>"
fkueyga6 2008-09-06
  • 打赏
  • 举报
 回复
结果: 共条 <%=rs.recordCount%>记录

提示错误:
Microsoft VBScript 编译器错误 错误 '800a0409'

未结束的字符串常量

/bbs/sousuo1.asp，行 80

Response.Write "<BR><B>      结果: 共<%=rs.recordCount

sy_binbin 2008-09-06
  • 打赏
  • 举报
 回复
<%
keyWord = request("x4")
keyType = request("select")
if keyType = "xm" then
sql = "select * from xygl where t2 like '%"&keyWord&"%'"
elseif keyType = "xh" then
sql = "select * from xygl where t1 like '%"&keyWord&"%'"
elseif keyType = "xb" then
sql = "select * from xygl where t4 like '%"&keyWord&"%'"
elseif keyType = "zt" then
sql = "select * from xygl where t6 like '%"&keyWord&"%'"
elseif keyType = "rq" then
sql = "select * from xygl where t8 like '%"&keyWord&"%'"
elseif keyType = "km" then
sql = "select * from xygl where t29 like '%"&keyWord&"%'"
elseif keyType = "jd" then
sql = "select * from xygl where t34 like '%"&keyWord&"%'"
elseif keyType = "sj" then
sql = "select * from xygl where t33 like '%"&keyWord&"%'"
elseif keyType = "dd" then
sql = "select * from xygl where t30 like '%"&keyWord&"%'"
end if
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
Response.Write " <BR> <B>      结果: 共条<%=rs.recordCount%>记录 </B> <UL>"
On Error Resume Next
rs.MoveFirst
Do While Not rs.eof
Response.Write "      <FONT SIZE=2>id: " & rs.Fields("id") & " </FONT> - "
Response.Write "" & " <A HREF='xygl5.asp?Indexid=" & rs.Fields("id").Value & "'>" & rs.Fields("t1") & " </A> - "
Response.Write rs.Fields("t2") & " - "
Response.Write rs.Fields("t4") & " - "
Response.Write rs.Fields("t6") & " - "
Response.Write rs.Fields("t8") & " - "
Response.Write rs.Fields("t29") & " - "
Response.Write rs.Fields("t34") & " - "
Response.Write rs.Fields("t33") & " - "
Response.Write rs.Fields("t30") & " - "
Response.Write rs.Fields("t43") & ""
Response.Write " <HR SIZE=1 WIDTH=890 ALIGN=LEFT>"
rs.MoveNext
Loop
Response.Write " </UL>"
else
response.write "没找到数据！"
end if
rs.close
%>
</BODY>
</HTML>
<%
htmlend
%>
fkueyga6 2008-09-06
  • 打赏
  • 举报
 回复
没看懂,
下面是我搜索的代码
能否把代码写出来,谢谢
<%
keyWord = request("x4")
keyType = request("select")
if keyType = "xm" then
sql = "select * from xygl where t2 like '%"&keyWord&"%'"
elseif keyType = "xh" then
sql = "select * from xygl where t1 like '%"&keyWord&"%'"
elseif keyType = "xb" then
sql = "select * from xygl where t4 like '%"&keyWord&"%'"
elseif keyType = "zt" then
sql = "select * from xygl where t6 like '%"&keyWord&"%'"
elseif keyType = "rq" then
sql = "select * from xygl where t8 like '%"&keyWord&"%'"
elseif keyType = "km" then
sql = "select * from xygl where t29 like '%"&keyWord&"%'"
elseif keyType = "jd" then
sql = "select * from xygl where t34 like '%"&keyWord&"%'"
elseif keyType = "sj" then
sql = "select * from xygl where t33 like '%"&keyWord&"%'"
elseif keyType = "dd" then
sql = "select * from xygl where t30 like '%"&keyWord&"%'"
end if
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
Response.Write "<BR><B>      结果: 共条??记录</B> <UL>"
On Error Resume Next
rs.MoveFirst
Do While Not rs.eof
Response.Write "     <FONT SIZE=2>id: " & rs.Fields("id") & "</FONT> - "
Response.Write "" & "<A HREF='xygl5.asp?Indexid=" & rs.Fields("id").Value & "'>" & rs.Fields("t1") & "</A> - "
Response.Write rs.Fields("t2") & " - "
Response.Write rs.Fields("t4") & " - "
Response.Write rs.Fields("t6") & " - "
Response.Write rs.Fields("t8") & " - "
Response.Write rs.Fields("t29") & " - "
Response.Write rs.Fields("t34") & " - "
Response.Write rs.Fields("t33") & " - "
Response.Write rs.Fields("t30") & " - "
Response.Write rs.Fields("t43") & ""
Response.Write "<HR SIZE=1 WIDTH=890 ALIGN=LEFT>"
rs.MoveNext
Loop
Response.Write "</UL>"
else
response.write "没找到数据！"
end if
rs.close
%>
</BODY>
</HTML>
<%
htmlend
%>
huanwuying_my 2008-09-06
  • 打赏
  • 举报
 回复
Response.Write(Rs.RecordCount)
不耐烦 2008-09-06
  • 打赏
  • 举报
 回复
Rs.RecordCount
bhtfg538 2008-09-06
  • 打赏
  • 举报
 回复
[Quote=引用 3 楼 sy_binbin 的回复:]
引用 2 楼 zl_c 的回复:

VBScript codeSet Rs = Server.CreateObject("adodb.recordset")
Sql = "Select * from xygl"
Rs.Open Sql,conn,1,1 'conn是数据库连接
Response.Write(Rs.RecordCount) '这里输出了总记录数
Rs.Close
Set Rs = Nothing

[/Quote]
sy_binbin 2008-09-06
  • 打赏
  • 举报
 回复
[Quote=引用 2 楼 zl_c 的回复:]
VBScript codeSet Rs = Server.CreateObject("adodb.recordset")
Sql = "Select * from xygl"
Rs.Open Sql,conn,1,1 'conn是数据库连接
Response.Write(Rs.RecordCount) '这里输出了总记录数
Rs.Close
Set Rs = Nothing
[/Quote]
zl_c 2008-09-06
  • 打赏
  • 举报
 回复 
Set Rs = Server.CreateObject("adodb.recordset")

Sql = "Select * from xygl"

Rs.Open Sql,conn,1,1 'conn是数据库连接

Response.Write(Rs.RecordCount) '这里输出了总记录数

Rs.Close

Set Rs = Nothing
【Web实战-Tomcat-Servlet-Thymeleaf -JDBC-MySQL】浏览器页面显示数据库数据（水果库存系统）
在JDBC专栏中，我们完成了水果库存系统功能的设计，实现以及优化，但总得来看，整个项目都...项目中我们主要依赖Tomcat部署，使用Servlet组件，过程中通过JDBC连接MySQL数据库获取数据，将数据在浏览器页面中展现出来。
JSP实现HTML网页中分页查询Mysql数据库数据
JSP实现HTML网页中分页查询Mysql数据库数据主要有以下几个地方要注意： 使用rs的来计算页面数： rs.last(); RowAmount = rs.getRow(); 计算数据库中数据最大页面数 PageAmount = (RowAmount + PageSize - 1 )/ ...
如何实时抓取动态网页数据？
在本文中，我们将回答以下几个问题： 1、为什么采集动态数据很重要? 2、动态数据是如何有效的促进业务增长? 3、最重要的是，我们如何能够轻松地获取动态数据? 1、为什么采集动态数据如此重要? 一般来说，...
MySQL-- 限制数据查询(limit)
限制数据查询是在查询出的数据中限制查询结果的数量 （1）不指定初始位置（默认从第1条数据开始显示） 语法:select f1,f2,f3... from table_name where 条件 order by ff limit row_count; 说明：row_count表示...
JSP分页显示数据
最近在做一个小程序，用到了JSP的分页。虽然只是最简单的分页，但是还是花了我不少时间。这看似简单的功能，实现起来还是稍微有点麻烦。实现分页功能，需要知道数据的总个数，每页应该有多少条数据，以及当前页码。...
ASP

28,404

社区成员

356,946

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章