📄 add_editsave.asp

📁 矮子多用户版客户管理系统2.0Bate2
💻 ASP
字号:
<!--#include file="conn.asp" -->  
<%
if session("name")="" or session("dd")="" then
response.write "SORRY <br>"
response.write "数据在携带中出现意外！<br>"
response.write "<a href=login.asp>回去重来</a>"
response.end
end if
if session("quanxian")="1"  then
response.write "SORRY <br>"
response.write "您的权限不够！请勿尝试非法访问！<br>"
response.end
end if

%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>客户资料管理系统</title>

 <%     
 
 '-------------------------------------------------------- 
    name=Request.Form ("name")
    sex=Request.Form ("sex")
    zhiwu=Request.Form ("zhiwu")
    company=Request.Form ("company")
    mobile=Request.Form ("mobile")
    homephone=Request.Form ("homephone")
    email=Request.Form ("email")
    oicq=Request.Form ("oicq")
      city=Request.Form ("city")
    msn=Request.Form ("msn")
    zy=Request.Form ("zy")
    content=Request.Form ("content")
    mclass=session("dd")
    fax=Request.Form ("fax")
    cust_s=Request.Form ("cust_s")
    
    
     dim temprs,tempsql       
                                 
	set temprs=server.createobject("adodb.recordset")
	tempsql="select com_phone from customer where id="&cust_s&" and vest_m="&session("dd")
	temprs.open tempsql,conn,1,3     
	
             com_phone=temprs("com_phone")                                            
    set temprs=nothing

  '-------------------------------------------------------- 

        if fax ="" then fax ="未填" end if
       if city ="" then city ="不详" end if
   if mobile ="" then mobile ="未填" end if
   if zhiwu ="" then zhiwu ="不详" end if
     if homephone="" then homephone=com_phone end if
     if email="" then email="未填" end if
     if oicq="" then oicq="未填" end if
     if msn="" then msn="未填" end if
     if content="" then content="无注释" end if
    if cust_s="" then 
    response.write="错误"
    response.end
     end if
  '-------------------------------------------------------- 

	dim rs,sql                                   
	set rs=server.createobject("adodb.recordset")                                                     
	sql="select * from cust_user where id="&request("id")&""
	rs.open sql,conn,1,3     
	

                                                     
 '--------------------------------------------------------  
    rs("name")=name
    rs("sex")=sex
     rs("city")=city
    rs("zhiwu")=zhiwu
        rs("mobile")=mobile
    rs("homephone")=homephone
    rs("email")=email
    rs("msn")=msn
    rs("zy")=zy
    rs("fax")=fax
    rs("content")=content
     rs("oicq")=oicq
    rs("cust_s")=cust_s
    rs("vest_m")=mclass
 '--------------------------------------------------------
    
    
    
    
        rs.Update
      
    rs.Close 
    set rs=nothing
 %>
 <html>
<head>
<title>正在进入管理页面</title>
<meta http-equiv=refresh content="1; url=userlist.asp?mclass=<%=session("dd")%>">
<BODY bgcolor="#ffffff"  text="#000000" link="#000080" alink="#800000" vlink="#2f2f4f" marginheight=0 marginwidth=0 topmargin=10 leftmargin=20 rightmargin=0>
Loading ....
<p align="center">正在返回...</p>
<p align="center">正在加载请稍后......</p>
</body></html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -