% infotype=request("infotype") infotypename=request("infotypename") classtype=request("classtype") page=request("page") if infotype="" then typestr=" " infotype=0 classtypestr="" typeclassstr=" " else if infotype=0 then typestr=" " classtypestr=" and Fld_TsnyTypeName="&infotype&"" typeclassstr=" where Fld_TsnyClass="&infotype&"" else typestr=" and Fld_InfoType="&infotype&"" classtypestr=" and Fld_TsnyTypeName="&infotype&"" typeclassstr=" where Fld_TsnyClass="&infotype&"" end if end if if infotype=3 then typeclassstr=" where Fld_TsnyClass="&infotype&"" end if if classtype="" then classstr=" " else classstr=" and Fld_InfoClass='"&classtype&"'" end if if infotypename="" then infotypestr=" " else infotypestr=" and Fld_InfoTypeName='"&infotypename&"'" end if sqlsort=" order by Fld_ID desc" sql1="select * from Tab_TsnyClass where Fld_TsnyClassID<>1"&classtypestr set rs1=server.createobject("adodb.recordset") rs1.open sql1,conn,3,2 sql="select * from Tab_Tsny where fld_infotyesornot=1"&typestr&classstr&infotypestr&sqlsort set rs=server.createobject("adodb.recordset") rs.open sql,conn,3,2 if rs.RecordCount>0 then rs.AbsolutePage=1 rs.PageSize=4 RowCount =rs.pagesize if page<>empty then currentPage=page rs.AbsolutePage=page else currentPage=1 end if end if if rs.RecordCount mod rs.PageSize=0 then n= rs.RecordCount \ rs.PageSize else n= rs.RecordCount \ rs.PageSize+1 end if sql2="select * from Tab_TsnyType"&typeclassstr set rs2=conn.execute(sql2) %>
|
|||||||||||||||||||||
|
|||||||||||||||||||||
|