<%
dim rsnew
set rsnew=server.createobject("Adodb.RecordSet")
set shownews=conn.execute("select * from news where newstype='成功案例' order by id desc")
rsnew.open "select * from news where newstype='成功案例' order by id desc",conn,1,1
order=0
count=rsnew.RecordCount
pagesize=18
pagecount=count\(pagesize+1)+1
page=request.QueryString("page")
if page="" then
page=1
end if
%>
::智诚灵动::
