<%@ 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") basclass="600" mymenu="Cases" myurl="Cases.asp?temp=1" %>

<% sql="select top 1 keyno,picflag,picfile,title,website from sys_ad where code='n1' order by sortnum" rs.Open sql,cn,1,1 %> <% if (lcase(right(trim(rs(2)),3))="jpg" or lcase(right(trim(rs(2)),3))="gif") then if trim(rs("website"))<>"" then %> " target=_blank>"> <% end if %> <% else if lcase(right(trim(rs(2)),3))="swf" then %> <% end if end if%> <% rs.Close %>

<% sql="select * from miscell_class where basclass='"+basclass+"' and flag='0' order by sortnum" rs.open sql,cn,1,1 do while not rs.EOF url="Cases_list.asp?classcode="+trim(rs("classcode")) if cstr(classcode)=cstr(rs(0)) then %> <%else%> <% end if rs.MoveNext loop rs.Close %>

<%=trim(rs("classname"))%>

<%=trim(rs("classname"))%>

<% sqltext="select classcode,classname from miscell_class where basclass='600' and flag='0' order by sortnum " rs.Open sqltext,cn,1,1 colzs=2 if rs.RecordCount mod colzs=0 then rowzs=int(rs.RecordCount/colzs) else rowzs=int(rs.RecordCount/colzs)+1 end if colpencent=int(100/colzs) for i=1 to rowzs %> <% for j=1 to colzs if not rs.EOF then %> <%if j=1 then%> <% end if rs.MoveNext else%> <%if j=1 then%> <% end if end if%> <% next Response.Write("") next rs.Close %>   <%=trim(rs("classname"))%> 更多 <% sql="select keyno,title from miscell where classcode='"+rs(0)+"'and nomflag='1' order by updatetime desc" rs2.Open sql,cn,1,1 k=1 do while not rs2.EOF and k<=8 %> <% k=k+1 rs2.MoveNext loop rs2.Close %> ·<%=trim(rs2("title"))%>

<% sql="select keyno,creadate,title from miscell where basclass='600' and state='1' order by creadate desc" rs.Open sql,cn,1,1 i=1 do while not rs.EOF and i<=20 %><% i=i+1 rs.MoveNext loop rs.Close %> 最新成功案例 ·" target=_blank>[<%=dateValue(rs("creadate"))%>] <%=subss(trim(rs("title")),40)%>..<%if (datediff("d",rs("creadate"),now()))<=3 then%><%end if%>