<%@LANGUAGE="VBSCRIPT" CodePage="65001"%> <% Response.CharSet = "utf-8" Session.CodePage = "65001" %> <%classid = isid(Request("id"),0)%> <%=web_name%>
    <% sql = "select * from p_class where s_pai=0 order by s_order asc, id desc" Set Rs = Conn.Execute(sql) If Not Rs.Eof Then Do While Not Rs.Eof %>
  • "><%=Rs("s_name")%>
    • <% Rs.MoveNext Loop End If Rs.Close Set Rs = Nothing %>
网站首页 > 成功案例
    <% sqlstr="select * from p_main where s_pai=0 " if classid<> 0 then sqlstr = sqlstr&" and classid="&classid sqlstr=sqlstr&" order by id asc" set rs=server.CreateObject("adodb.recordset") rs.open sqlstr,conn,1,1 if rs.eof or rs.bof then w "暂无内容！" else int_RPP=9'设置每页显示数目 int_showNumberLink_=10 '数字导航显示数目 showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1 str_nonLinkColor_="#999999" '非热链接颜色 toF_="首页" '首页 toP10_="" '上十 toP1_=" 上一页" '上一 toN1_=" 下一页" '下一 toN10_="" '下十 toL_="尾页" '尾页 rs.PageSize=int_RPP cPageNo=request("Page") If cPageNo="" or not isnumeric(cPageNo) Then cPageNo = 1 cPageNo = Clng(cPageNo) If cPageNo<1 Then cPageNo=1 If cPageNo>rs.PageCount Then cPageNo=rs.PageCount rs.AbsolutePage=cPageNo count=0 i=1 do while not (rs.eof or rs.bof) and count
  • ">" width="203" height="118" />

    "><%=Rs("s_name")%>

    • <% rs.movenext i=i+1 count=count+1 loop end if %>

<%response.Write(fPageCount(rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo) & vbcrlf )%>