% dim sql,rs dim classid,str,classname,keywords dim pages,page,totalrecords,psize,strQuery,i,col set rs = server.CreateObject("adodb.recordset") classid = request("classid") classname = request("classname") strQuery = "classid=" & classid & "&classname=" & classname & "" sql = "select * from softnews where 1=1 " if isnumeric(classid) and classid<>"" then sql = sql & " and classid=" & clng(classid) & "" end if sql = sql & " order by id desc" 'response.Write sql rs.open sql,conn,1,1 if not rs.eof then psize = 20 rs.pagesize = psize page = request("page") if page = "" or IsNumeric(page)=false then page=1 page=Clng(page) pages=rs.pagecount if page<1 then page=1 if page>pages then page=pages rs.absolutepage = page totalrecords=rs.recordcount end if %>
| Copyright © yzynyx.com 江苏省永宁医疗器械有限公司 版权所有. |
| 公司地址:江苏省扬州市东郊立新桥南50米 邮政编码:225108 网址:www.yzynyx.com 电子信箱:yzynyx168@163.com |
| |