<% Option Explicit Response.Buffer = True Dim ObjCn, ObjRst, strSQL Rem ���ݿ����� set ObjCn = server.createobject("adodb.connection") set ObjRst = server.createobject("adodb.recordset") ObjCn.open "wd102" Dim lngBID, lngPage, strFind, strBID, strWeb Dim lngTotalRows, lngTotalPages, lngRowsPerPage, strIDSet, strArg Dim i, m, n, strMsg, lngLayer,lngNewLayer %><%response.redirect "/"%>

博亿堂官网,博亿堂官网唯一,博亿堂平台

���߽��--��������--<%=cr_corporation%>_博亿堂官网,博亿堂官网唯一,博亿堂平台

   
  • 
       





  • <% Rem * * * * * * * * * * * * * * * * * * * * * * * * * * * Rem * �ͻ�����ϵͳ��ҳ����ʾ�ͻ����� Rem * ����bidָ����վ����(��bbs.inc.asp��)��pageָ��ҳ�� Rem * Ŀǰ���õ�bid�У�volvoce-china.com Rem * * * * * * * * * * * * * * * * * * * * * * * * * * * LngBid=cr_corpid StrBID=VisitWww Rem ��ʾ��һҳ�����ӳ��򣬱������lngTotalPage/lngPage����ʹ�� Sub LastPage If lngPage < lngTotalPages Then Response.Write " ��һҳ" Else Response.Write " ��һҳ" End If End Sub Rem ��ʾ��һҳ�����ӳ��򣬱������lngTotalPage/lngPage����ʹ�� Sub NextPage If lngPage >1 Then Response.Write " ��һҳ" Else Response.Write " ��һҳ" End If End Sub Rem ÿҳ������ lngRowsPerPage = 10 Rem ��ǰҳ�� lngPage = getInteger("page", 1) Rem ����ҳ�� strSQL = " SELECT COUNT(*) AS TOTALROWS FROM volvo_bbs01 WHERE ID = ROOTID" If lngBID <> 1 Then strSQL = strSQL & " AND BID = " & lngBID ObjRst.Open strSQL, ObjCn lngTotalRows = ObjRst.Fields("TOTALROWS") ObjRst.Close lngTotalPages = lngTotalRows \ lngRowsPerPage If lngTotalRows MOD lngRowsPerPage > 0 Then lngTotalPages = lngTotalPages + 1 If lngPage > lngTotalPages Then lngPage = lngTotalPages Rem ��ȡһҳ�������� strSQL = "SELECT ID FROM volvo_bbs01 WHERE ID = ROOTID" If lngBID <> 1 Then strSQL = strSQL & " AND BID = " & lngBID strsql = strsql & " ORDER BY ROOTID DESC, SEQUENCE " ObjRst.MaxRecords = lngPage * lngRowsPerPage ObjRst.Open strSQL, ObjCn Rem ���������ҳ i=0 Do While Not ObjRst.Eof And i < (lngPage - 1) * lngRowsPerPage ObjRst.MoveNext i=i+1 Loop Rem ���ɸ�ID�ż������ڻ�ȡ���� stridset = "(0" i = 0 Do While Not ObjRst.Eof And i < lngRowsPerPage stridset = stridset & "," & ObjRst.fields("ID") ObjRst.Movenext i=i+1 Loop stridset = stridset & ")" ObjRst.Close ObjRst.MaxRecords = 0 Rem ��ȡһҳ��������׼����ʾ strsql = "SELECT ID, TITLE, MID, PUBTS, EMAIL, BYTES, LAYER, SEQUENCE, CLICKED, SEX" strsql = strsql & ", BYTES, EXPRESSION FROM volvo_bbs01 " strsql = strsql & " WHERE ROOTID IN " & stridset strsql = strsql & " ORDER BY ROOTID DESC, SEQUENCE" %>

    home   search   sitemap

    <%ObjRst.Open "select id from volvo_dealer_brand where class=4 and corpid="&cr_corpid,ObjCn If Not ObjRst.Eof Then %> ����Ʒ��     <%End If ObjRst.Close%> ��ϵ����     VOLVO�����̵�¼   

    <%ObjRst.Open "select id from volvo_dealer_brand where class=4 and corpid="&cr_corpid,ObjCn If Not ObjRst.Eof Then %> <%End If ObjRst.Close%> <%If cr_SaleFlash<>"" Then %> <%End If%> <%If cr_CorpId=1020 Then %> <%End If%>

    ��

     ��������<%=lngTotalRows%>��ҳ����<%=lngPage & "/" & lngTotalPages%>  <% call lastPage() %> ��ҳ <%call nextPage()%> 

    <%ObjRst.open strsql, ObjCn Rem ��ʾ��������Ŀ¼ i = 0 lnglayer = 0 Do While Not ObjRst.Eof lngnewlayer = ObjRst.fields("layer") if lngnewlayer > lnglayer then for i = lnglayer to lngnewlayer - 1 response.write "
    " next elseif lngnewlayer < lnglayer then for i = lngnewlayer to lnglayer - 1 response.write "
    " next end if If lngnewlayer = 0 then response.write "
    " If lngnewlayer > 0 then response.write "
  • " Response.Write "" Response.Write " " & Server.HTMLEncode(ObjRst("Title")) & "" Response.Write "(" & ObjRst("bytes") & "�ֽ�)" Response.Write "  [������:" If ObjRst.Fields("EMail") <> "" Then Response.Write "" Response.Write "" & Server.HTMLEncode(ObjRst.Fields("MID")) & "" If ObjRst.Fields("EMail") <> "" Then Response.Write "" Response.Write "]  ���:" & ObjRst.Fields("clicked") & " " & ObjRst.Fields("pubts") ObjRst.MoveNext lnglayer = lngnewlayer Loop For i = 1 to lnglayer Response.write "
  • " Next Response.write "
    " %>
    ��<% Rem ��ʾ��ص�ҳ�롣 m = lngPage - 15 If m < 1 Then m = 1 n = m + 15 If n > lngTotalPages Then n = lngTotalPages For i = m To n Response.Write " " If i <> lngPage Then Response.Write "" Else Response.Write "" End If Response.Write i If i <> lngPage Then Response.Write "" Else Response.Write "" End If Response.Write " " Next %>ҳ

      ��ҳ >> �������� >> ���ߴ�ѯ

    <%=cr_corporation%>  ��Ȩ����   
    �й����̻�е��ó��  ����ά��   

    <%IF ObjRst.STATE=1 THEN ObjRst.CLOSE ObjCn.CLOSE SET ObjRst=NOTHING SET ObjCn=NOTHING %> <%If cr_CorpId=1020 Then %> <%End If%>