📄 d_business.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<!--#include file="../include/PubCode.asp"-->
<%
'username=Getuser()
'userclass=TableVisitor("d_linkman",username)
'if userclass<2 then
' response.write"<br>"
' response.write"<br>"
' response.write "<center><font size=2>抱歉，您没有此项操作权限！<a href=D_linkManbrow.asp>返回</a>"
' response.end
'end if
%>
<%'###########################得到销售通路#############################
set AdoRs1=Server.CreateObject("AdoDB.RecordSet")
lcsql="select NumValue from A_ConfigInfo Where Subject='SaleRoad'"
AdoRS1.Open lcSql,PubConn,1,1
Areavalue=Adors1("NumValue")
if not isNull(Areavalue) then
SaleRoad=Split(AreaValue,",")
end if
Set Adors1=Nothing%>
<%'###########################得到店铺位置#############################
set AdoRs2=Server.CreateObject("AdoDB.RecordSet")
lcsql="select NumValue from A_ConfigInfo Where Subject='BusinessPlace'"
AdoRS2.Open lcSql,PubConn,1,1
HYvalue=Adors2("NumValue")
if not isNull(HYvalue) then
BusinessPlace=Split(HYValue,",")
end if
Set Adors2=Nothing%>
<%'###########################得到进货来源#############################
set AdoRs3=Server.CreateObject("AdoDB.RecordSet")
lcsql="select NumValue from A_ConfigInfo Where Subject='ProdSource'"
AdoRS3.Open lcSql,PubConn,1,1
infovalue=Adors3("NumValue")
if not isNull(infovalue) then
ProdSource=Split(infoValue,",")
end if
Set Adors3=Nothing%>
<%'###########################得到商品陈列############################
set AdoRs4=Server.CreateObject("AdoDB.RecordSet")
lcsql="select NumValue from A_ConfigInfo Where Subject='ProdDisplay'"
AdoRS4.Open lcSql,PubConn,1,1
statevalue=Adors4("NumValue")
if not isNull(statevalue) then
ProdDisplay=Split(stateValue,",")
end if
Set Adors4=Nothing%>
<%'###########################得到主要客源#############################
set AdoRs4=Server.CreateObject("AdoDB.RecordSet")
lcsql="select NumValue from A_ConfigInfo Where Subject='MainCustomer'"
AdoRS4.Open lcSql,PubConn,1,1
statevalue=Adors4("NumValue")
if not isNull(statevalue) then
MainCustomer=Split(stateValue,",")
end if
Set AdoRs4=Nothing
set rslx=Server.CreateObject("AdoDB.RecordSet")
lcsql="select NumValue from A_ConfigInfo Where Subject='SaleType'"
rslx.Open lcSql,PubConn,1,1
statevalue=rslx("NumValue")
if not isNull(statevalue) then
SaleType=Split(stateValue,",")
end if
Set rslx=Nothing
'传过来的客户序号
khxh=request("par_id")
if khxh<>"" then
set rskh=Server.CreateObject("ADODB.RecordSet")
sql="select ClientName from D_ClientInfo where clientnum='"&khxh&"'"
rskh.open sql,pubconn,1
if not rskh.eof then
khmc=rskh("clientName")
end if
'通过客户序号在营业状况表中找对应的数据
set rsry=Server.CreateObject("ADODB.RecordSet")
sql="select * from D_Business where Clientnum='"&khxh&"'"
rsry.open sql,pubconn,1
if not rsry.eof then
SaleRoad1=rsry("SaleRoad")
BusinessPlace1 =rsry("BusinessPlace")
MainProd1=rsry("MainProd")
ProdSource1=rsry("ProdSource")
StuffNumber1=rsry("StuffNumber")
CustomerNumer1=rsry("CustomerNumer")
CarNumber1=rsry("CarNumber")
ProdDisplay1=rsry("ProdDisplay")
BusinessArea1=rsry("BusinessArea")
MainCustomer1=rsry("MainCustomer")
SaleType1=rsry("SaleType")
Remark1=rsry("Remark")
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>客户跟进计划</title>
<link href="../cread.css" rel="stylesheet" type="text/css">
</head>
<script language="vbscript">
'以下判断只有为数字型才能输入
sub StuffNumber_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.StuffNumber.value,"Num",window.event.keyCode)
end sub
sub CustomerNumer_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.CustomerNumer.value,"Num",window.event.keyCode)
end sub
sub CarNumber_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.CarNumber.value,"Num",window.event.keyCode)
end sub
sub BusinessArea_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.BusinessArea.value,"Num",window.event.keyCode)
end sub
</script>
<body bgcolor="#FFFFFF" >
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif" width="34" height="15">
</font><font size="2">营业状况信息</font></b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
<form method="POST" action="D_businessInfo.asp" name="form1" >
<table border="1" width="100%" cellspacing="0" height="9" bgcolor="#F7F4E5" bordercolor="#F7F4E5">
<tr>
<input type="hidden" name="khxh" value="<%=khxh%>">
<td width="13%" height="23" align="right" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5">
客户名称
</td>
<td width="73%" height="23" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" colspan="5">
<input type="text" name="khmc" size="34" value="<%=khmc%>" readonly style="background-color: #edefef">
</tr>
<tr>
<td width="13%" height="23" align="right" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5">
<font size="2">销售通路
</font>
</td>
<td width="15%" height="23" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5">
<p align="left">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -