Question

asp数据库表格筛选

用asp做网页，主体是数据库的表格，记录集选择筛选后不能先显示数据库的内容，怎么才能让表格内容先全部显示出来，输入筛选条件后再显示筛选后的内容

Answer 1

你的意思是有2个步骤，第一是显示全部数据，第二是查询搜索，符合查询条件的再显示对吧？
<%
'数据库连接代码 省略……

'执行显示代码：
dim rs,sql,j,i '定义几个变量
set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "Select * From 数据表名 Order By id Desc " '如果没有ID字段把Order By id Desc去掉
Rs.Open Sql,conn,1,3
j = rs.recordcount '得到总记录数

'显示全部数据：
for i=0 to j
response.write rs(1) & " | " & rs(2) & "<br>" '有几个字段就加几个 rs(n)
rs.movenext
next
response.write "<hr>"
'以上是显示全部数据
'关闭对象
rs.close
set rs=nothing
%>

<%
'此代码显示查询的条件

set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "Select * From 数据表名 Where 字段名=’“&request.form("查询的表单名")&”‘ "
Rs.Open Sql,conn,1,3
if not rs.eof then
response.write rs(1) & " | " & rs(2) & "<br>" '有几个字段就加几个 rs(n)

else
response.write "没有该记录！"
end if
'关闭对象
rs.close
set rs=nothing
%>

ASP文件 和表单代码你自己能写了吧？

Answer 2

这个是带分页的
<script>
function btn_ck_bh_Click()
{
var cx = document.form.cxsj.value;
form.action ="search.asp?cx="+cx;
}
</script>

<%
'数据库查询
'获得搜索内容
cx = Request.QueryString("cx")
dim pageCount
'把page转换成整数
page = cint(request("page"))
set rs=server.createobject("adodb.recordset")

' 获取记录集（从表中）
if cx <> "" then
sql = "select * from 表名 where 字段名 like '%"&cx& "%' order by id desc"
else
sql ="select * from 表名 order by id desc"
end if
rs.open sql,conn,1,1
'如果没有数据记录
if rs.bof then
errmsg=errmsg+"<br>"+"<li>"+keyword+"没有记录,请返回!!"
response.write errmsg
response.end
end if
' 设置记录集在每页的总行数，也就是 PageSize属性
RS.PageSize=20
'把rs.pageCount转换成整数和page才能作比较
pageCount = cint(rs.pageCount)
' 设置当前的页号（ AbsolutePage属性）
if page = 0 then
page =1
end if
RS.AbsolutePage = page
x=1
// 显示当前页中的所有记录（ PageSize中设置的行数）
WHILE NOT RS.EOF AND NumRows<RS.PageSize
%>

<%=rs("字段")%> (这里调用数据)

<%RS.MoveNext
NumRows=NumRows+1
WEND%>

共<%=PageCount%>页 第<%=page%>页
<%if page=1 then%>首页<%end if%>
<%if page>1 then%>
<a href="search.asp?cx=<%=Request.QueryString("cx")%>&page=1"> 首页</a>
<%end if%>
<%if page>1 then%><a href="search.asp?cx=<%=Request.QueryString("cx")%>&page=<%=page-1%>"><%end if%>上一页</a>
<%
dim pagewhere
dim p
p = 1
//把pagewhere转换成整数
//pagewhere = cint(request("pagewhere"))
pagewhere = pageCount
if pagewhere>0 then
for p=1 to pagewhere
if p <> page then%>
<a href="search.asp?cx=<%=Request.QueryString("cx")%>&page=<%=p%>"><%=p%></a>
<%end if
if p =page then%>
<%=p%>
<% end if
next
end if%>
<%if page < PageCount then%>
<a href="search.asp?cx=<%=Request.QueryString("cx")%>&page=<%=page+1%>">
<%end if %>下一页</a>
<%if page=PageCount then%>尾页
<%end if%>
<%if page<PageCount then%>
<a href="search.asp?cx=<%=Request.QueryString("cx")%>&page=<%=PageCount%>"> 尾页</a>
<%end if%>
<%
rs.close
Set rs=nothing
conn.close
set conn=nothing
%>

Answer 3

不知道你说的具体是什么意思哦1