<% classid=trim(request.QueryString("id")) if classid<>"" then ' ---------------- '-------------- set rs2=conn.execute("select top 1 classname from kh_articleclass where classid="&classid&" ") if not rs2.eof then classname=rs2(0) end if rs2.close:set rs2=nothing else set rs=conn.execute("select top 1 classid,classname from kh_articleclass where parentid=1 order by pxid asc, classid asc") if not rs.eof then classname=rs(1) classid=rs(0) else set rs2=conn.execute("select top 1 classname from kh_articleclass where ClassID=1 ") if not rs2.eof then classname=rs2(0) ClassID=1 end if rs2.close:set rs2=nothing end if rs.close:set rs=nothing end if %> 绍兴通明容器制造有限公司
新闻资讯/News information
您当前的位置：首页 > 新闻资讯   
    <% i=1 kw=trim(request("kw")) set rs=server.createobject("adodb.recordset") sql="select p_id,title,adddate from kh_article where 1=1" if classid<>"" then sql=sql&" and classid="&classid&"" end if sql=sql&" order by p_id desc" 'response.Write sql rs.open sql,conn,1,1 if rs.eof then response.write " 没有信息 " else recordsetcount=0'设定数据库中记录标记 page=request.QueryString("page")'取得页数 if page="" then'设定默认页 page=1 end if page=cint(page)'转换数据类型 rs.pagesize=20'设定每页显示的记录数 if page<1 then'设定页数的值 page=1 elseif page>rs.pagecount then page=rs.pagecount else page=page end if rs.absolutepage=page'设定当前活动页 do while not rs.eof and recordsetcount
  • · <%=rs(1)%>   【 <%=datevalue(rs("adddate"))%> 】
    • <% rs.movenext recordsetcount=recordsetcount+1 loop %> <% end if%>
共有 <%=rs.recordcount%> 条记录 共 <%=rs.pagecount%> 页 <%if page>1 then%> ?page=1&classid=<%=classid%>&bclassid=<%=bclassid%>&kw=<%=kw%> class="a2" >首页 ?page=<%=page-1%>&classid=<%=classid%>&bclassid=<%=bclassid%>&kw=<%=kw%>>上一页 <%else%> 首页 上一页 <%end if%> <%if page ?page=<%=page+1%>&classid=<%=classid%>&bclassid=<%=bclassid%>&kw=<%=kw%>>下一页 ?page=<%=rs.pagecount%>&classid=<%=classid%>&bclassid=<%=bclassid%>&kw=<%=kw%>>尾页 <%else%> 下一页 尾页 <%end if%> 页次: <%=page%>/<%=rs.pagecount%>      <% n =Rs.pagecount str=str&"&classid="&classid&"&bclassid="&bclassid&"&kw="&kw&"" strTemp=strTemp & " 转到：第页" response.Write strTemp rs.close:set rs=nothing %>