|
|
|
<%
sqlstr= "select id,cname,cinstro,cinput_date from tbl_soft_sky where c2='1' and c3='1' and c5<>'' "
if keyword<>"" then
sqlstr=sqlstr &" and cname like '"& keyword &"' "
end if
sqlstr=sqlstr&" order by id desc"
udc_rs.open sqlstr,udc_conn,3
if udc_rs.eof then
response.write "没有演示软件。"
else
udc_rs.pagesize=10
icount=udc_rs.recordcount
pages=(udc_rs.pagesize+icount-1)\udc_rs.pagesize
page=request("page")
if page=0 then page=1
udc_rs.absolutepage=page
k=0
while not udc_rs.eof and k
<%
udc_rs.movenext
k=k+1
wend%>
<%if pages>1 then%>
选择页码：
<%if int(page)>((page-1)\10)*10 and page>10 then%>
上十页
<%end if%>
<%
if ((page-1)\10+1)*10
<%if i=int(page) then%>
<%=i%>
<%else%>
<%=i%>
<%end if%>
<%next%>
<%if (page\10+1)*10
下十页
<%end if%>
|
<%end if%>
<%end if%>
|
|
|
|
