📄 d_intentmainfrm.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<% username=getuser()
userclass=tablevisitor("f_tblintent",username)
departid=session("departid")%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<link href="../cread.css" rel="stylesheet" type="text/css">
<title></title>
</HEAD>
<BODY bgcolor="#FFFFFF">
<%function GetYWYName(aa)
set rs1=server.CreateObject("adodb.recordset")
if rs1.State=1 then rs1.Close
rs1.Open "select * from A_stuffinfo where stuffnum='"& aa &"'",pubconn,1,3
if rs1.RecordCount>0 then
GetYWYName=rs1.Fields("Name")
else
GetYWYName=""
end if
rs1.close
end function%>
<%function GetMoney(aa)''根据订单编号统计金额
set rs3=server.CreateObject("adodb.recordset")
if rs3.State=1 then rs3.Close
rs3.open "select * from F_TblintentDetail where ordernum='"& aa &"'",pubconn,1,3
if rs3.RecordCount>0 then
GetMoney=0
rs3.movefirst
while not rs3.eof
GetMoney=GetMoney+rs3.Fields("Money")
rs3.movenext
wend
else
GetMoney=""
end if
end function %>
<%function Getstuff (aa) '根据客户序号取业务员姓名
set rs1=server.CreateObject("adodb.recordset")
if rs1.State=1 then rs1.Close
rs1.Open "select * from D_clientinfo where clientnum='"& aa &"'",pubconn,1,3
if rs1.RecordCount<=0 then
Getstuff =""
else
Getstuff =GetYWYName(rs1.Fields("stuffnum"))
end if
end function%>
<%function getName(aa) '取出客户姓名
set rs1=server.CreateObject("adodb.recordset")
if rs1.State=1 then rs1.Close
rs1.Open "select * from D_clientinfo where clientnum='"& aa &"'",pubconn,1,3
if rs1.RecordCount<=0 then
getName=""
else
getName=rs1.Fields("clientname")
end if
end function%>
<%function getYGName(aa) ''取员工姓名
set rs1=server.CreateObject("adodb.recordset")
if rs1.State=1 then rs1.Close
rs1.Open "select * from A_stuffinfo where stuffnum='"& aa &"'",pubconn,1,3
if rs1.RecordCount<=0 then
getYGName=""
else
getYGName=rs1.Fields("name")
end if
end function%>
<%function getNameByOrder(aa)'''根据定单号取出客户姓名
set rs1=server.CreateObject("adodb.recordset")
if rs1.State=1 then rs1.Close
rs1.Open "select * from F_Tblintent where ordernum='"& aa &"'",pubconn,1,3
if rs1.RecordCount<=0 then
getNameByOrder=""
else
getNameByOrder=getName(rs1.Fields("clientnum"))'''getName根据序号取客户姓名
end if
end function%>
<%function GetStuffByOrder(aa)'''根据订单编号取业务员姓名
set rs1=server.CreateObject("adodb.recordset")
if rs1.State=1 then rs1.Close
rs1.Open "select * from F_TblOrder where ordernum='"& aa &"'",pubconn,1,3
if rs1.RecordCount<=0 then
GetStuffByOrder=""
else
GetStuffByOrder=getYGName(rs1.Fields("stuffnum"))''''getYGName根据序号取员工姓名
end if
end function%>
<%function GetProdNameByCode(aa)''''''''''''''''根据商品编码取名称
set rs3=server.CreateObject("adodb.recordset")
if rs3.State=1 then rs3.Close
rs3.Open "select * from A_ProductInfo where ProdCode='"& aa &"'",pubconn,1,3
if rs3.RecordCount<=0 then
GetProdNameByCode=""
else
GetProdNameByCode=rs3.Fields("ProdName")
end if
end function%>
<%function GetProdStandByCode(aa)''''''''''''''''''''根据商品编码取规格
set rs4=server.CreateObject("adodb.recordset")
if rs4.State=1 then rs4.Close
rs4.Open "select * from A_ProductInfo where ProdCode='"& aa &"'",pubconn,1,3
if rs4.RecordCount<=0 then
GetProdStandByCode=""
else
GetProdStandByCode=rs4.Fields("Standard")
end if
end function%>
<%function GetProdUnitByCode(aa)''''''''''''''''''''根据商品编码取单位
set rs5=server.CreateObject("adodb.recordset")
if rs5.State=1 then rs5.Close
rs5.Open "select * from A_ProductInfo where ProdCode='"& aa &"'",pubconn,1,3
if rs5.RecordCount<=0 then
GetProdUnitByCode=""
else
GetProdUnitByCode=rs5.Fields("Unit")
end if
end function%>
<%function GetPriceByProd(aa)''''''''''''''''''''''根据商品编码取定价
set rs5=server.CreateObject("adodb.recordset")
if rs5.State=1 then rs5.Close
rs5.Open "select * from A_ProductInfo where ProdCode='"& aa &"'",pubconn,1,3
if rs5.RecordCount<=0 then
GetPriceByProd=""
else
GetPriceByProd=rs5.Fields("SalePrice")
end if
end function%>
<script language="vbscript">
sub Newsetup()
a="khdd.asp?par_id="+document.form1.par_id.value+"&par_name="+document.form1.par_name.value+"&par_type="+document.form1.par_type.value+"&par_level="+document.form1.par_level.value+"&page1="+document.form1.page1.value+"&page2="+document.form1.page2.value+"&index="+document.form1.index.value
' msgbox a
window.location =a
end sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -