<% 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 %> 北京和裕汽车服务有限公司
 
销售热线
010-87606307
 
<% 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 "
" %>
 

1.贷款额度：最低额度20%
2.贷款期限：最长60个月（五年）、三年（36个月）
3.付款方式：现金
4.保正条件：依实际贷款额度而定
5.有关分期详细内容。欢迎与和裕丰田接洽

特惠活动进行中！ （点击查看实例）