<% 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 身份证复印件  
2 配偶身份证复印件 如果借款人已结婚
3 结婚证复印件 如果借款人配偶与借款人户口不在同一地，则需要提供结婚证复印件
4 离婚证或离婚协议复印件 如果申请人已经离婚，但户口本“婚姻状况”还未作变更
5 户口本复印件 户主、本人、配偶页及变更页
6 收入证明原件 须加盖公司公章或人事部门章，所填写收入应为税前收入
7 居住证明（只提供其中一种即可） （1）房产证复印件（如果借款人与直系亲属住在一起，且此住处产权归该亲属所有，可以提供直系亲属房产证复印件，仅指配偶、父母或子女）
（2）够房合同及发票复印件
（3）家属委员会居住证明
（4）派出所居住证明
（5）物业公司居住证明
（6）公有住房租赁合同
（7）房贷合同及发票复印件
8 驾照复印件 如果借款人所购买的车辆是供其直系亲属（仅指配偶、父母或子女）使用，必须提供配偶、父母或子女驾照复印件
9 本人一寸免冠近照 一张
10 个人信用记录 房屋贷款，汽车贷款等还款记录
11 个人帐户对帐单  
12 还款帐户复印件 此存折或卡应是用于归还月付款的还款帐户
中国工商银行或招商银行---存折或借记卡
13 担保人资料 如果需要提供担保人的情况下
须提供担保人资料包括以上1、5、6、7项所示