<%@ Language=VBScript%> <% Response.Buffer=true Response.Expires=0 %> <% pageno=Request.QueryString("pageno") classcode=Request.QueryString("classcode") set cn = Server.CreateObject("ADODB.Connection") cn.Open(mycnstr) set rs = Server.CreateObject("ADODB.Recordset") set rs2 = Server.CreateObject("ADODB.Recordset") mymenu="Cases" myurl="Cases_list.asp?temp=1" %>

成功案例－ABC签证 <% sql="select * from miscell_class where basclass='600' and flag='0' order by sortnum" rs.open sql,cn,1,1 i=1 do while not rs.EOF and i<=8 if trim(classcode)=trim(rs(0)) then %> <%=trim(rs("classname"))%> <% else %> <%=trim(rs("classname"))%> <%end if i=i+1 rs.MoveNext loop rs.Close %> <% if classcode="" then sql="select keyno,classcode,title,state,creadate from miscell where basclass='600' order by creadate desc" else sql="select keyno,classcode,title,state,creadate from miscell where classcode='"+classcode+"' order by creadate desc" end if rs.Open sql,cn,1,1 i=1 pagesize=20 rs.PageSize=pagesize if pageno="" then pageno=1 else pageno=cint(pageno) if rs.PageCount>0 then rs.AbsolutePage=pageno pagecount=rs.PageCount reccount=rs.RecordCount do while not rs.EOF and i<=pagesize %> <% i=i+1 rs.MoveNext loop rs.Close %> ·<%if rs("state")="0" then%>[要案追踪]<%end if%><%=trim(rs("title"))%><%if (datediff("d",rs("creadate"),now()))<=15 then%><%end if%>  <%=rs("creadate")%>   共有 <%=reccount%> 条案例     <%if pagecount>1 then%> 分页： <%if pageno>1 then%> <<上页  <%end if%> <%for j=1 to pagecount if j=pageno then color2="ff0000" else color2="000000" %> ><%=j%> <%next%>  页  <%if pageno 下页>> <%end if%> <%end if%>