<% Set conn= Server.CreateObject("ADODB.Connection") dbpath= "driver={Microsoft Access Driver (*.mdb)};" conn.Open= dbpath & ";dbq=" & Server.MapPath("data.mdb") Dim Counter Sub IncrementCounter() Set fs = Server.CreateObject("Scripting.FileSystemObject") counter_file = Server.MapPath("counter.txt") Set txt = fs.OpenTextFile( counter_file ) Counter = txt.ReadLine txt.Close Counter = Counter +1 ' 将计数器写入 /counter.txt 文件之中 Set txt = fs.CreateTextFile( counter_file, True ) txt.WriteLine(Counter) txt.Close End Sub Application.Lock IncrementCounter ' 将访问者计数器加一，并写入文件中 Application.UnLock %> 北京和裕汽车服务有限公司
 
<% response.write "" response.write "
" response.write "
" if request.cookies("heyufengtian")("username")="" then response.write "您还没有登陆！" else response.write "欢迎"&Request.Cookies("heyufengtian")("username")&"光临" end if if request.cookies("heyufengtian")("username")="" then response.write "

" else response.write "

" end if response.write "
" %>
 

    本公司（北京和裕丰田汽车服务有限公司），是由台湾国都汽车股份有限公司出资，经由英属维尔京群岛北京和裕投资公司，并同北京市华海节能制品发展中心（提供土地使用权作为合作条件）、北京市城市河湖工程公司（提供土地使用权作为合作条件）三方合作设立，并由台湾派员长驻，负责公司经营管理的一家中外合作企业。


    本公司位于南四环肖村立交桥南，南四环城外诚向南300米路西，地理位置优越、交通便利；提供全年无假日服务； 实行早8：30—晚8：00商业性营业时间，为用户提供24小时紧急救援服务。



    本公司以优质的服务在北京各专卖店中名列前茅。我们更有优秀的硬件设施：其中包括大型现代化的室内展厅和户外展示场、服务维修厂，CS室、顾客休息室…等。



    北京和裕丰田汽车服务有限公司热诚欢迎每一位客户，我们专业的业务代表和优秀的维修技师将真诚的为您提供满意的服务。

    我公司的业务代表将为您提供专业的购车咨询服务，您可以通过他们丰富的汽车专业知识和耐心的介绍，挑选您满意的丰田车。