editcustomerok.asp

统架构：ASP+ACCESS 版本系列：个人版 开发时间：2005年12月20日 开发者： 搏天网络 联系QQ：359042595 演示地址：http://www.bootweb.cn/oa

<%
Option Explicit

If session("admin")<>"ok" Then
 response.redirect"index.asp"
End If

Dim Id,Company,Address,Name,Title,Tel1,Tel2,VIP,Demo
Id=request.form("Id")
Company=trim(request.form("Company"))
Address=trim(request.form("Address"))
Name=trim(request.form("Name"))
Title=trim(request.form("Title"))
Tel1=trim(request.form("Tel1"))
Tel2=trim(request.form("Tel2"))
VIP=request.form("VIP")
Demo=trim(request.form("Demo"))
%>
<!--#include file="conn.asp"-->
<%
Dim objRS,strSQL
set objRS=Server.createobject("adodb.recordset")
strSQL="select * from customer where Id="&Id
objRS.Open strSQL,objConn,1,3
objRS("Company")=Company
objRS("Address")=Address
objRS("Name")=Name
objRS("Title")=Title
objRS("Tel1")=Tel1
objRS("Tel2")=Tel2
objRS("VIP")=VIP
objRS("Demo")=Demo
objRS("Date2")=Date()
objRS.Update
objRS.Close
objConn.Close

Dim strJS
strJS=strJS+"<script language='javascript'>"
strJS=strJS+"alert('客户资料更新成功！');"
strJS=strJS+"location.href='main.asp';"
strJS=strJS+"</script>"

response.write strJS
%>