customer_edit2.asp

来自「have playing search print and many very 」· ASP 代码 · 共 45 行

<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="Inc/Char.asp"-->
<%
Dim padd,Sql
Dim kehu_id,kename,selkelev,tel,address,mone,lianxi
Dim isdataman
Dim id

isdataman = Manage_Level(adl) 
If isdataman="管理员" Then

id = Request("id")
kehu_id = Trim(Request.Form("kehu_id"))
kename = Trim(Request.Form("kename"))
selkelev = Trim(Request.Form("selkelev"))
lianxi = Trim(Request.Form("lianxi"))
tel = Trim(Request.Form("tel"))
address = Trim(Request.Form("address"))
mone = HTMLEncode2(Request.Form("mone"))

Set padd = Server.CreateObject("ADODB.RecordSet")
Sql = "Select * From [Customer] Where ID="&id
padd.Open Sql,Conn,1,3

padd("Customer") = kename
padd("Levels") = selkelev
Padd("LianXi") = lianxi
padd("Telphone") = tel
padd("Address") = address
padd("Mone") = mone
padd.Update
padd.Close
Set padd=Nothing
Conn.Close
Set Conn=Nothing

Response.Write "<script language=javascript>alert('客户资料修改成功!');"
Response.Write "window.document.location.href='Customer_List.asp';</script>"

Else
  Response.write "<script language='javascript'>alert('对不起,你没有权限进行此项操作!');" & chr(13)
  Response.write "window.document.location.href='Customer_List.asp';</script>"
End if
%>