北京和裕汽车服务有限公司

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

" %>

请填写用户信息

用户名称： *
请填写您的登陆时使用的用户名称

密码： *
长度必须大于6个字符小于50个字符，只能为字母、数字

确认密码： *
请将输入的密码再次输入，以免设置密码出错

密码提问： *
用于密码遗忘时使用

密码答案： *
密码遗忘时将验证此答案

真实姓名： *
请填写您的真实姓名，以便需要时与您联系

E-Mail ： *
请填写您有效的邮件地址，以便于我们为您提供有效的服务

出生日期：
请按格式输入您的生日，如:20060101

性别：

联系电话：
请填写您的联系方式，以便有活动时通知您

(带*这必填项)