📄 g_stateeditinfo.asp

📁 一个很好的在线购物系统
💻 ASP
字号:

<!--#include file="../include/Pubconn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>单据查询</title><link href="cread.css" rel="stylesheet"  type="text/css">
</head>
<body bgcolor="#FFFFFF" >

<%
'*************************
'Author:Ruphi  updatetime:2001-08-30
'功能：增加一条数据或修改一条数据
'说明：当表中有这样的客户，则只修改当前的记录；若没有这样的客户时，则新增一条数据
'**************************
'取得从表单传来的值
khxh=request("khxh")
selkh=request("selkh")
seldc=request("seldc")
selwt=request("selwt")
selfa=request("selfa")
seltj=request("seltj")
selperson=request("selperson")
selbr=request("selbr")
seljy=request("seljy")
selqy=request("selqy")
year3=request("year3")
month3=request("month3")
date3=request("date3")
selchance=request("selchance")
txtcont=request("txtcont")
selMea=request("selMea")
txtdetail=request("txtdetail")
%>
<%
   
  
    if year3<>"" and month3<>"" and date3<>"" then
         Total3=year3+"-"+month3+"-"+date3   'Fix time
    end if
    set Rsta=server.createobject("adodb.recordset")
    mysql="select * from G_TblCloseState Where ClientNum='"&khxh&"' "
    Rsta.open mysql,pubconn,1,3
    If not Rsta.eof then  
         
  
      
    '修改当前的记录
      
       Rsta("CloseState")=selkh
       Rsta("InquiryState")=seldc
       Rsta("Problem")=selwt
       Rsta("ProjectState")=selfa
       Rsta("PriceTerm")=seltj
       Rsta("UsherState")=selbr
       Rsta("VoteState")=seljy
       Rsta("VisaState")=selqy
       Rsta("MainPerson")=selperson
       Rsta("FixDate")=Total3
       Rsta("ClichChance")=selchance
       Rsta("Contender")=txtcont
       Rsta("NextMeasure")=selMea
       Rsta("DetailThing")=txtdetail
       Rsta("AuditingYN")="N"
       Rsta("Authors")=Session("Username")
       Rsta("DepartID")=Session("DepartID")

       Rsta.Update

    End  if 
    '只要状态中有一个带“╳”的客户，则须必此客户类型为拒绝客户。
    if  (selkh="╳") or (seldc="╳") or  (selwt="╳") or (selfa="╳") or (seltj="╳") or(selbr="╳") or (seljy="╳") or (selqy="╳") or (selperson="╳") then
        'response.write "yes"
        'respose.end
        set khchange=Server.CreateObject("ADODB.RecordSet")
        sql="Select *  from D_ClientInfo where ClientNum='"&khxh&"'"
        khchange.Open sql,Pubconn,1,3
        if not khchange.eof then
           khchange("Type")="拒绝客户"
           khchange("tag")="khjj"
           khchange.Update
        end if 
    end  if 
 %>
 <font size=2>   <center>数据保存成功！<a  href="G_MainState.asp"  >返回</a>   
</font>
⌨️ 快捷键说明

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