<% BigClass="审计验资" SmallClass=request("SmallClass") %>
<%=BigClass%>  
    为公司设立、变更出具验资报告,出具股东资格验证报告,为出国人员出具财产资信证明 其他各类资信证明。鉴证业务是指注册会计师对鉴证对象信息提出结论,以增强除责任方之外的预期使用者对鉴证对象信息信任程度的业务。比如:财务报表审计是指注册会计师对财务报表提出结论(发表意见),以增强除被审计单位(责任方)之外的预期使用者对财务报表的信任程度。

<% page=clng(request("page")) Set rs=Server.CreateObject("ADODB.RecordSet") if BigClass<>"" and SmallClass <>"" then sql="select * from news where BigClassName='"&BigClass&"' and SmallClassName='"&SmallClass&"' order by AddDate desc" rs.Open sql,conn,1,1 elseif BigClass<>"" then sql="select * from news where BigClassName='"&BigClass&"' order by AddDate desc" rs.Open sql,conn,1,1 end if if rs.eof and rs.bof then response.Write("暂时没有记录") else %> <% rs.PageSize=20 if page=0 then page=1 pages=rs.pagecount if page > pages then page=pages rs.AbsolutePage=page for j=1 to rs.PageSize %> <% rs.movenext if rs.eof then exit for next %> <% end if rs.close set rs=nothing %>
<% if rs("FirstImageName")<>"" then response.write "图片新闻" end if %> " target="_blank"><%= RS("TITLE") %>  [<%=FormatDateTime(RS("AddDate"),2)%>] (点击<%= RS("hits") %>)
<%if Page<2 then response.write "首页 上一页 " else response.write "首页 " response.write "上一页 " end if if rs.pagecount-page<1 then response.write "下一页 尾页" else response.write "" response.write "下一页 尾页" end if response.write " 页次:"&Page&"/"&rs.pagecount&"页 " response.write " 共"&rs.recordcount&"条记录 "&rs.pagesize&"条记录/页" response.write " 转到:" response.write "

" %>