<%sql="select * from big where bigclassid=9 order by bigorder,bigid" set rs=server.CreateObject("adodb.recordset") rs.Open sql,conn,1,1 if not rs.eof then a=1 do while not rs.eof %>
"><%=gotTopic(rs("big"),25)%>
<%rs.movenext a=a+1 loop rs.close end if%>
 
 
<%=conn.execute("select cont from all_title where id=5")(0)%>
工程案例
您当前所在的位置是:首 页 >> 工程案例  
 
<%bigid=requesta("bigid") if bigid="" then sql="select * from news where bigclassid=9 and pictj=1 order by id desc" else sql="select * from news where bigclassid=9 and pictj=1 and bigid="&bigid&" order by id desc" end if set rs=server.CreateObject("adodb.recordset") rs.Open sql,conn,1,1 if not rs.eof then mypage=request("whichpage") if mypage="" then mypage=1 else mypage=cint(mypage) end if mypagesize=request("pagesize") if mypagesize="" then mypagesize=16 end if rs.movefirst rs.pagesize=mypagesize maxcount=cint(rs.pagecount) rs.absolutepage=mypage how=1 y=rs.pagecount d=rs.recordcount%> <% a=1 do while not rs.eof and how <=rs.pagesize %> <% if a mod 4=0 then response.Write"" end if rs.movenext how=how+1 a=a+1 loop rs.close %>
">" width="150" height="120" border="0">
 
<% if mypage<>1 then response.write" [首 页] " response.write" [上一页] " end if if mypage=1 then response.write" [首 页] " response.write" [上一页] " end if if mypage<>y then response.write" [下一页] " response.write" [尾 页] " end if if mypage=y then response.write" [下一页] " response.write" [尾 页] " end if %> 当前为<%=mypage%>页  共有<%=maxcount%>页  共有<%=d%>条记录
<% end if %>