<% 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 "
" %>
 


丰田认证

一汽丰田认证
认证介绍
     本公司为丰田汽车授权维修贩卖厂，2003年8月底我公司通过天津丰田
4S经销店认定，并即刻展开销售，主营汽车修理。随着日本TOYOTA与国内一汽集团合作，TOYOTA各车型的国产化，我公司亦将随其扩展销售业务。