<% 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%>
关于VOLVO
关于我们
其它代理品牌
销售网络
联系我们
在线垂询
公司文化
  组织架构

 

 主题数:<%=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%>