<%
pclass=request("type")
if request("keyword")<>"" then
cer="and itemname like '%" & request("keyword") & "%'"
end if
Set conn = Server.CreateObject("ADODB.Connection")
conn.open mallDSN
set rs=server.createobject("ADODB.Recordset")
sql= "SELECT id,itemname,declaredate FROM info_item where pause=0" & cer & " and class='" & pclass & "' order by info_item.id desc"
rs.open sql,conn,adOpenStatic
rs.pagesize=20
if IsEmpty(request("page")) then
page=1
else
if not IsNumeric(request("page")) then
page=1
else
page=CLng(request("page"))
end if
end if
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
if not rs.eof then
rs.AbsolutePage=page
For i = 1 To rs.PageSize
%>
" target="_blank"><%=rs("itemname")%>
<% if request("type")="002" then %>
<% else%>
[<%=realdate(rs("declaredate"))%>]
<% end if %>
<%
rs.MoveNext
If rs.EOF Then Exit For
Next
if rs.pagecount>1 then
%>
<%if page>1 then%>
上一页
<%end if%>
<%if page
下一页
<%end if%>
<%
end if
end if
rs.close
conn.close
%>
|
|
| |
|
|
