驰骋汽车网--网站地图驾校团报|汽车团购|车险|二手车|汽车报价|汽车用品自驾游|俱乐部|--专业网络汽车媒体

汽车资讯	车市动态	汽车导购	新车速递	汽车评测	车型对比	用车体会
汽车资讯	油耗报告	养车费用	走近经销商	《车天下》	南京车市
学车资讯	驾校介绍	新手必看	理论学习	桩训知识	道路练习	驾驶技巧
学车资讯	考试心得	汽车陪驾
二手车市	好车天天看	二手车转让信息	二手车求购信息
用车修车	汽车保险	按揭贷款	汽车租赁	顺风车信息	汽车美容	维修保养
用车修车	汽车改装	政策法规
汽车用品	行业动态	车载电器	日常护理	装饰美容	汽车配件	改装部件
车友俱乐部	驰骋资讯	驰骋资讯	会员之家	特约商户
休闲娱乐	[汽车文化区]	[精彩视频区]	[搞笑趣图区]	[精彩笑话区]
汽车美女	香车美女	汽车图库
汽车服务	驾校团报	车险团购	汽车团购

驰骋汽车网(C)版权所有未经授权禁止转载、摘编、复制或建立镜像.如有违反，追究法律责任.
Copyright 2006-2008 www.jscch.com. All Rights Reserved

经营许可证编号：苏ICP备07001698号

<% Function gotTopic(str,strlen) if str="" then gotTopic="" exit function end if dim l,t,c, i str=replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<") l=len(str) t=0 for i=1 to l c=Abs(Asc(Mid(str,i,1))) if c>255 then t=t+2 else t=t+1 end if if t>=strlen then gotTopic=left(str,i) & "" exit for else gotTopic=str end if next gotTopic=replace(replace(replace(replace(gotTopic," "," "),chr(34),"""),">",">"),"<","<") End Function %>