我只提供思路
我有不知道你数据库是怎么设计的,参数是怎么传递的,我怎么给你适合你自己的代码呢?最好的方法就是你按照我给你的思路来修改你自己的代码.
祝天下所有母亲幸福安康!~
谢谢。
<%
Dim rs
Dim rs_numRows
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_gz_STRING
rs.Source = "SELECT * FROM dbo.hz ORDER BY adddate DESC"
rs.CursorType = 0
rs.CursorLocation = 3
rs.LockType = 3
rs.Open()
rs_numRows = 0
rs.PageSize = 20
'这里设定每页显示的记录数
pre = true
last = true
page = trim(Request.QueryString("page"))
if len(page) = 0 then
intpage = 1
pre = false
else
if cint(page) =< 1 then
intpage = 1
pre = false
else
if cint(page) >= rs.PageCount then
intpage = rs.PageCount
last = false
else
intpage = cint(page)
end if
end if
end if
if not rs.eof then
rs.AbsolutePage = intpage
end if
%>
这个是正确的查询,可是不能达到我要的那个查询效果,要是改的话,却总是显示上面的错误的
<%
dim ygxm,adddate,rs
ygxm=request("ygxm")
adddate=request("adddate")
if ygxm<>"" and adddate="" then
sql="select * from dbo.hz where ygxm = '"&ygxm&"'" '这个比较根据你的实际情况写比较符号
end if
if ygxm="" and adddate<>"" then
sql="select * from dbo.hz where adddate = '"&adddate&"'" '这个比较根据你的实际情况写比较符号
end if
if ygxm<>"" and adddate<>"" then
sql="select * from dbo.hz where ygxm = '"&ygxm&"' and adddate = '"&adddate&"'" '这个比较根据你的实际情况写比较符号
end if
set rs=Server.CreateObject("ADODB.RecordSet")
rs.ActiveConnection = MM_gz_STRING
rs.Source = sql
rs.CursorType = 1
rs.CursorLocation = 1
rs.LockType = 3
rs.Open()
%>