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

贷款购车：

外籍申请人须准备的材料：
（注：外籍国籍人员至少在中国连续停留12个月或以上，才可以申请借款）

序 号 须 提 供 资 料 说 明
1 有效的护照复印件  
2 外籍人员居留许可（工作性质）复印件 如果借款人申请人尚未办理转换的，持有外国人居留证和长期签证的同样有效
3 由工作单位出具的月收入或年收入原件  
4 还款帐户复印件 此存折或卡应是用于归还月付款的还款帐户
中国工商银行或招商银行—存折或借记卡
5 驾照复印件  
6 本人一寸免冠照片 一张
7 担保人资料 必须一共一名本地担保人