<% Option Explicit %> <% Response.Buffer=True %> <% dim riqi riqi=date() %> 广州高伍电子科技有限公司
www.goalwoo.com
<% if request("accounts")<>"" then dim gconn,rs,str set gconn=Server.CreateObject("ADODB.Connection") gconn.Open "Dbq="&Server.Mappath("database/goalwoo.mdb")&";DRIVER={Microsoft Access Driver (*.mdb)};" str="Select * from manage where accounts='"&request("accounts")&"' and password='"&request("password")&"'" set rs=gconn.Execute(str) if not rs.Eof then response.redirect"techologyservicemanage.asp" else response.write"" end if end if %>
 
帐号：
密码：
 
 
你的位置：>>网上报修技术服务
  <% if trim(request("companyname"))<>"" then '下面将数据填入数据库中 'On Error Resume Next '建立Connection对象 Dim db Set db=Server.CreateObject("ADODB.Connection") db.Open "Dbq="&Server.Mappath("database/goalwoo.mdb")&";DRIVER={Microsoft Access Driver (*.mdb)};" '这里利用新数据源 '下面添加数据 Dim strSql strSql = "Insert into service(companyname,address,phone,name,date1,remark)values('"&trim(request("companyname"))&"','"&trim(request("address"))&"','"&trim(request("phone"))&"','"&trim(request("name"))&"','"&trim(request("date"))&"','"&trim(request("remark"))&"')" db.execute(strSql) db.close '执行添加操作 '下面判断插入过程有无错误，并给出相应信息 response.write"" End If %>
请详细填写以下资料
(*必须输入)
公司名称：
 *

联系地址：

 *
联系电话：
 *
联系人：
 *
报修日期：
 *
报修故障情况：
(描述你的故障现象)
 
 
Copyright 2005 GuangZhou Goalwoo Electric Technologies Co.,Ltd.All rights reserved
地址：广州市天河区中山大道东圃大马路2号2栋三楼 E-Mail:master@goalwoo.com
设计制作：广州高伍电子科技有限公司