<% '调用专题新闻 Public Function ztzt(topnum,str) dim infors,ClassContent,infosql,Title,formPath,filename set infors = server.CreateObject ("adodb.recordset") infosql="SELECT top "&topnum&" * FROM NC_Article where ztslb="&str&" order by dateTime desc" infors.open infosql,conn,1,1 if infors.eof and infors.bof then ClassContent=ClassContent & "

还没有信息！

" else br=0 do while not infors.eof if Not Response.IsClientConnected then responseend if br=0 then bbrr="
" else bbrr="" end if if trim(infors("color"))<>"0" then stcolor=" style=""color:#"&trim(infors("color"))&";""" else stcolor="" end if ClassContent = ClassContent &bbrr&"·"&infors("title")&""& vbCrLf infors.movenext loop end if infors.close set infors=nothing 'response.write mid(ClassContent,4) ztzt= mid(ClassContent,5) end function Public Function ztzttt(topnum,str) dim infors,ClassContent,infosql,Title,formPath,filename set infors = server.CreateObject ("adodb.recordset") infosql="SELECT top "&topnum&" * FROM NC_Article where ztslb="&str&" order by dateTime desc" infors.open infosql,conn,1,1 if infors.eof and infors.bof then ClassContent=ClassContent & "

还没有信息！

" else br=0 do while not infors.eof if Not Response.IsClientConnected then responseend if br=0 then bbrr="
" else bbrr="" end if if trim(infors("color"))<>"0" then stcolor=" style=""color:#"&trim(infors("color"))&";""" else stcolor="" end if ClassContent=""&infors("title")&"" infors.movenext loop end if infors.close set infors=nothing 'response.write mid(ClassContent,4) ztzttt= ClassContent end function connstr2009="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../qcwdb.mdb") Set conn2009 = Server.CreateObject("ADODB.Connection") conn2009.Open connstr2009 Public Function pprm(blbid) set rss = server.CreateObject ("adodb.recordset") rmrssql="SELECT count(*) as rcnt FROM bm where x1='"&blbid&"' and lb='bbwcz5'" rss.open rmrssql,conn2009,1,1 if rss.eof and rss.bof then ClassContent=0 else ClassContent=rss("rcnt") end if pprm=ClassContent end function %> 2012年夏季购车节活动-汽车团购报名_广西汽车网
车讯优惠4S店团购车型图库图集快讯二手车用品驾校招聘问答计算器分站:梧州柳州玉林北海
   
城市 姓名 品牌 电话
姓名：      男 女
购车品牌：
 
联系电话：
备注：
 
 
桂林 胡先生 江淮汽车 135077*****
南宁 黄先生 一汽马自达 139786*****
其他 张先生 东风悦达起亚 182039*****
玉林 覃先生 东风雪铁龙 133078*****
南宁 陆先生 力帆汽车 187771*****
南宁 卢先生 上海大众 134182*****
南宁 梁先生 上汽通用五菱 189771*****
南宁 卢先生 一汽丰田 134182*****
南宁 卢先生 一汽丰田 134182*****
南宁 卢先生 广汽本田 134182*****
南宁 陆先生 力帆汽车 187771*****
河池 温先生 长安福特 158919*****
南宁 梁先生 长城汽车 138781*****
南宁 谢先生 上海通用雪佛兰 137683*****
南宁 夏先生 东风风神 186759*****
梧州 李先生 东风-郑州日产 180243*****
南宁 谢先生 力帆汽车 134579*****
河池 温先生 上海大众 158919*****
南宁 谢先生 帝豪 134579*****
南宁 谢先生 帝豪 134579*****
河池 温先生 长安福特 158919*****
河池 莫先生 长安福特 147876*****
柳州 黄先生 上海大众 136330*****
柳州 黄先生 东风标致 136330*****
柳州 黄先生 长安马自达 136330*****
柳州 黄先生 长安马自达 136330*****
柳州 黄先生 一汽丰田 136330*****
柳州 黄先生 东风标致 136330*****
柳州 黄先生 广汽本田 136330*****
柳州 黄先生 长安福特 136330*****
柳州 黄先生 上海通用雪佛兰 136330*****
柳州 黄先生 一汽大众 136330*****
防城港 项先生 长安福特 139770*****
梧州 梁先生 东风风行 158784*****
防城港 谢先生 上海大众 136177*****
防城港 谢先生 上海大众 139177*****
桂林 唐先生 上海通用别克 189347*****
防城港 林先生 上海通用雪佛兰 186770*****
来宾 翁先生 东风风神 159782*****
来宾 邱先生 长城汽车 139782*****
南宁 李先生 帝豪 182757*****
南宁 李先生 全球鹰 182757*****
百色 阳先生 上海大众 136177*****
玉林 朱先生 北京现代 152782*****
南宁 易先生 帝豪 137682*****
柳州 李先生 东风悦达起亚 189780*****
百色 黄先生 广汽本田 133677*****
河池 陈先生 夏利 138778*****
北海 陈女士 东风标致 130979*****
梧州 江先生 一汽海马 139774*****
    <% sql="select top 100 * from ktf_class where lb='VIP' and px<>0 order by px asc,id desc" set rs = server.CreateObject ("adodb.recordset") rs.open sql,conn,1,1 do while not rs.eof vipxx=split(rs("title"),"|") vipurl=replace(rs("url"),"cxbj/bjgs.asp?id=","vip/") if len(trim(rs("url2")))<25 then url2="/"&trim(rs("url2")) else url2=trim(rs("url2")) end if %>
  • <%=vipxx(0)%>
    电话：<%=vipxx(2)%>
    <%=vipxx(1)%>
    • <% rs.movenext loop rs.close set rs=nothing %>
关于我们 | 联系我们 | 加入收藏 | 网上投稿 | 网站地图 | 广告服务 | 经销商注册 | 留言反馈 | 友情链接
@2005-2012 Gxqcw Inc. All rights reserved. 广西汽车网 版权所有
E_Mail：Vip@gxqcw.com　电话：0771-2175812　传真：0771-2814262　QQ：568409080　地址：南宁市东葛路18-1号