📄 g_lostinfo.asp

📁 一个很好的在线购物系统
💻 ASP
字号:
<!--#include file="../include/Pubconn.asp"-->
<%
 
 
%>


<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>客户丢失报告保存</title>
<link href="cread.css" rel="stylesheet" type="text/css">
</head>
<body BGCOLOR="#FFFFFF">

<p align="center">
<%
'***************************
'Author:Ruphi Update time:2001-08-26
'功能：保存客户丢失报告数据
'***************************
'取得表单的值,填入到主表中
khxh=request("khxh")
cpxh=request("cpxh")
cpmc=request("cpmc")
Ryear=request("Ryear")
Rmonth=request("Rmonth")
Rdate=request("Rdate")
Rtotal=Ryear+"-"+Rmonth+"-"+Rdate
BGMonth=month(Rtotal)  '得出月份
maker=request("maker")
Qyear=request("Qyear")
Qmonth=request("Qmonth")
Qdate=request("Qdate")
Qtotal=Qyear+"-"+Qmonth+"-"+Qdate
zy=request("zy")
mx1=request("mx1")
cy=request("cy")
mx2=request("mx2")
qy=request("qy")
mx3=request("mx3")
set rsbg=server.createobject("adodb.recordset")
mysql="select *  from G_TblLostReport order by ID Desc"
rsbg.open mysql,pubconn,1,3
     rsbg.addnew
     rsbg("CloseMonth")=BGMonth
     rsbg("ClientNum")=khxh
     rsbg("StuffNum")=Session("UserID")
     rsbg("ReportDate")=Rtotal
     rsbg("ProdNum")=cpxh
     rsbg("Production")=cpmc
     rsbg("Maker")=maker
     rsbg("OrderDate")=Qtotal
     rsbg("MainRea")=zy
     rsbg("MainResume")=mx1
     rsbg("SubRea")=cy
     rsbg("SubResume")=mx2
     rsbg("OtherRea")=qy
     rsbg("OtherResume")=mx3
     rsbg("AuditingYN")="N"
     rsbg("Authors")=Session("Username")
     rsbg("DepartID")=Session("DepartID")
     rsbg.Update
 rsbg.close
 set rsbg=nothing
set rsbg1=server.createobject("adodb.recordset")
mysql="select *  from G_TblLostReport order by ID Desc"
rsbg1.open mysql,pubconn,1,3
rsbg1.movefirst
'取得表单的值，填入子表中（其它描述信息）
Jyear=request("Jyear")
Jmonth=request("Jmonth")
Jdate=request("Jdate")
Jtotal=Jyear+"-"+Jmonth+"-"+Jdate   '得出交货日期
fkfs1=request("fkfs1")
mxh1=request("mxh1")
mjg1=request("mjg1")
mfj1=request("mfj1")
mxh2=request("mxh2")
mjg2=request("mjg2")
mfj2=request("mfj2")
mxh3=request("mxh3")
mjg3=request("mjg3")
mfj3=request("mfj3")
fkfs2=request("fkfs2")
txh1=request("txh1")
tjg1=request("tjg1")
tfj1=request("tfj1")
txh2=request("txh2")
tjg2=request("tjg2")
tfj2=request("tfj2")
txh3=request("txh3")
tjg3=request("tjg3")
tfj3=request("tfj3")
qtxx=request("qtxx")

set rsxx=server.createobject("adodb.recordset")
sql="select *  from G_TblLostInfo "
rsxx.open sql,pubconn,1,3
    rsxx.addnew
    rsxx("L_ID")=rsbg1("ID")
    rsxx("MModel1")=mxh1
    if mjg1<>"" then
       rsxx("Mprice1")=mjg1
    end if
    rsxx("Mslave1")=mfj1
    rsxx("MModel2")=mxh2
    if mjg2<>"" then
      rsxx("Mprice2")=mjg2
    end if
    rsxx("Mslave2")=mfj2
    rsxx("MModel3")=mxh3
    if mjg3<>"" then
      rsxx("Mprice3")=mjg3
    end if
    rsxx("Mslave3")=mfj3
    rsxx("Mpayment")=fkfs1
    rsxx("MClinchDate")=Jtotal
    rsxx("Model1")=txh1
    if tjg1<>""  then
      rsxx("Price1")=tjg1
    end  if 
    rsxx("slave1")=tfj1
    rsxx("Model2")=txh2
    if tjg2<>"" then
        rsxx("Price2")=tjg2
    end if 
    rsxx("slave2")=tfj2
    rsxx("Model3")=txh3
    if tjg3<>"" then
       rsxx("Price3")=tjg3
    end if 
    rsxx("slave3")=tfj3
    rsxx("payment")=fkfs2
    rsxx("OtherInfo")=qtxx
    rsxx.Update
rsxx.close
set rsxx=nothing
%>
 数据保存成功！&nbsp; <a href="G_lost.asp">返回</a>
</body>
⌨️ 快捷键说明

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