📄 xzsl.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>
<%'pubconn=openconn()
b8=request("b8")
bcbz=request("bcbz")
ddbh=request("ddbh")
olddh=request("ddbh")
dyear=request("dyear")
dmonth=request("dmonth")
dday=request("dday")
ddate=dyear&"-"&dmonth&"-"&dday
xsbm=request("xsbm")
sh=request("sh")
khxh=request("m_khid1")
khmc=request("m_name")
ywy=request("ywy")
zkfs=request("f_zkfs")
spxh=request("f_spxh")
spsl=request("spsl")
kl=request("kl")
thfs=request("thfs")
hsje=request("hsje")
wdzt=request("wdzt")
'response.write khmc
response.write bcbz
'response.end
hsdj=round(hsje/spsl,2)
'response.write hsdj
'response.write khxh
bz=request("bz")
%>
<body bgcolor="#FFFFFF">
<%
'判断单号
if bcbz<>"1" then
sqldh="select max(ordernum) as num from f_tblintent "
set dhrs=pubconn.execute(sqldh)
djy=year(date())
djm=month(date())
djd=day(date())
if djm<10 then
djm="0"&djm
end if
if djd<10 then
djd="0"&djd
end if
djdate=djy&djm&djd
if dhrs.eof or len(trim(dhrs("num")))<13 then
ddbh="X"&djdate&"0001"
else
if djdate=mid(trim(dhrs("num")),2,8) then
str=right(trim(dhrs("num")),6)+1
ddbh="X"&djdate&right(str,4)
else
ddbh="X"&djdate&"0001"
end if
end if
'判断结素
else
set mrecordset=server.createobject("adodb.recordset")
mstr="select * from f_tblintentdetail where ordernum='"&ddbh&"' and prodcode='"&spxh&"'"
mrecordset.open mstr,pubconn,1,3
if not mrecordset.eof then%>
<p align="center">不得再次输入同一商品,请重新输入!
<a href="#" onclick="window.close()">关闭</a>
<%response.end
end if
mrecordset.close
set mrecordset=nothing
end if
if olddh<>ddbh then%>
<p align="center">您的单号已改为<%=ddbh%>!
<%end if
set rs4=server.createobject("adodb.recordset")
rs4.CursorLocation=3
rs4.CursorType = adOpenStatic
str4="select * from f_tblintent where ordernum='"&ddbh&"'"
rs4.open str4,pubconn,1,3
set rs1=server.createobject("adodb.recordset")
str1="select * from f_Tblintent "
rs1.open str1,pubconn,2,3
if rs4.recordcount<=0 then
rs1.addnew
rs1("ordernum")=ddbh
rs1("clientnum")=khxh
rs1("orddate")=ddate
rs1("departcode")=xsbm
rs1("stuffnum")=ywy
rs1("Producer")=session("userid")
rs1("Authors")=Session("UserName")
rs1("DepartID")=Session("DepartID")
rs1("docstatic")="B"
rs1.update
end if
rs1.close
set rs1=nothing
str2="select * from f_Tblintentdetail"
set rs5=server.createobject("adodb.recordset")
rs5.open str2,pubconn,3,3
rs5.addnew
rs5("ordernum")=ddbh
rs5("prodcode")=spxh
rs5("quantity")=spsl
rs5("money")=hsje
rs5("docstatic")="B"
rs5("remark")=bz
rs5("price")=hsdj
rs5.update
rs5.close
set rs5=nothing
%>
<%if bcbz="1" then
ddate=rs4("orddate")
else
ddate=ddate
end if
khstr="select firstdata from a_clientset where clientset='预期客户'"
set khrs=pubconn.execute(khstr)
str2="select * from d_clientinfo where clientnum='"&khxh&"'"
set crs=pubconn.execute(str2)
if crs("tag")="khindex" then
str3="update d_clientinfo set tag='kh' where clientnum='"&khxh&"'"
pubconn.execute(str3)
end if
'response.write str3
if crs("type")<>"首次购买客户" or crs("type")<>"重复购买客户" or crs("type")<>"忠诚客户" then
if cdbl(datediff("d",date(),ddate))<=cdbl(khrs("firstdata")) then
'response.write crs("type")
str1="update d_clientinfo set type='预期客户' where clientnum='"&khxh&"'"
'response.write str1
else
str1="update d_clientinfo set type='潜在客户' where clientnum='"&khxh&"'"
end if
end if
pubconn.execute(str1)
%>
<p align="center"><a href="khdd.asp?bcbz=1&ddbh=<%=ddbh%>&ddate=<%=ddate%>&khxh=<%=khxh%>&khmc=<%=khmc%>&ywy=<%=ywy%>" target="main" onclick="window.close()">保存完毕,返回</a>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -