<%
search = ""
if request("timu")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " timu = '" & request("timu") & "' "
end if
if request("neirong")<>"" then
if search="" then
search = search & " WHERE "
else
search = search & " AND "
end if
search = search & " neirong = '" & request("neirong") & "' "
end if
table="huodong"
sql="select * from " & table & search & " order by id DESC"
'请参考下面代码排序
'sql="select * from " & table & search & " order by dtime DESC"
'response.write sql
set rs=Server.CreateObject("ADODB.recordset")
rs.CursorType = 3
rs.Open sql,conn
rs.PageSize =30 '每页记录条数
result_num=rs.RecordCount '记录总数
if result_num<=0 then
if search="" then
word="目前还没有记录!"
else
word="没有查到符合条件的记录!"
end if
else
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
end if
%>
学术版网上售书
