📄 g_lost.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubCode.asp"-->
<!--#include file="../include/PubFun.asp"-->
<% username=Getuser()
userclass=TableVisitor("G_TblLostReport",username)
if userclass<2 then
response.write"<br>"
response.write"<br>"
response.write "<center><font size=2>抱歉，您没有此项操作权限！<a href=G_mainlost.asp>返回</a></font>"
response.end
end if
%>
<%
'*************************************
'document.form1.mxh1.options[document.form1.mxh1.selectedIndex].value
'Author:Ruphi Update Time:2001-08-27
'功能说明：客户丢失报告表单
'
'*************************************
'*******************************************
'得出付款方式的下拉菜单
set rsdc=Server.CreateObject("ADODB.RecordSet")
sql="select NumValue from A_ConfigInfo Where Subject='Payment'"
rsdc.open sql,Pubconn,1,1
if not rsdc.eof then
if not isnull(rsdc("NumValue")) then
Payment=Split(trim(rsdc("NumValue")),",")
end if
end if
set rsdc=nothing
'***************************************
'得出主要原因下拉菜单
set rsy1=Server.CreateObject("ADODB.RecordSet")
sql="select NumValue from A_ConfigInfo Where Subject='MainRea'"
rsy1.open sql,Pubconn,1,1
if not rsy1.eof then
if not isnull(rsy1("NumValue")) then
MainRea=Split(trim(rsy1("NumValue")),",")
end if
end if
set rsy1=nothing
'***************************************
'得出次要原因下拉菜单
set rsy2=Server.CreateObject("ADODB.RecordSet")
sql="select NumValue from A_ConfigInfo Where Subject='SubRea'"
rsy2.open sql,Pubconn,1,1
if not rsy2.eof then
if not isnull(rsy2("NumValue")) then
SubRea=Split(trim(rsy2("NumValue")),",")
end if
end if
set rsy2=nothing
'****************************************
'得出其它原因下拉菜单
set rsy3=Server.CreateObject("ADODB.RecordSet")
sql="select NumValue from A_ConfigInfo Where Subject='OtherInfo'"
rsy3.open sql,Pubconn,1,1
if not rsy3.eof then
if not isnull(rsy3("NumValue")) then
OtherInfo=Split(trim(rsy3("NumValue")),",")
end if
end if
set rsy3=nothing
'************************************************
'***********************************
'
'查找产品时传回来的两个值以及产品的有关属性
khxh=request("khxh")
khmc=request("khmc")
spxh=left(TRIM(request("spxh")),2)
set rsmc=server.createobject("adodb.recordset")
sql="select * from A_ProductInfo Where ProdCode='"&Trim(Request("spxh"))&"'"
rsmc.open sql,pubconn,1
if not rsmc.eof then
spmc=rsmc("ProdName")
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 = "JavaScript">
//客户名称响事件
var onecount;
onecount=0;
lucy4 = new Array();
<%count= 0
set rs5=server.CreateObject("adodb.recordset")
rs5.open "SELECT * FROM D_clientinfo where ( tag='khindex'or (type='潜在客户' and tag='kh') or (type='预期客户' and tag='kh')or (type='首次购买客户' and tag='kh') or (type='忠诚客户'and tag='kh') or (type='重复购买客户' and tag='kh') or tag='hbdealer' ) and stuffnum='"&Session("UserID")&"' and delflag<>'1'",Pubconn,1,3
if rs5.recordcount> 0 then
do while not rs5.eof%>
lucy4[<%=count%>] = new Array("<%= trim(rs5("clientnum"))%>","<%=trim(rs5("clientname"))%>");
<%count=count + 1
rs5.movenext
loop
end if
rs5.close
set rs5=nothing%>
onecount=<%=count%>;
function key1()
{
var tag;
tag=0;
for (i=0;i<onecount;i++)
{
if(document.form1.khxh.value==lucy4[i][0])
{
document.form1.khmc.value=lucy4[i][1];
tag=1;
break;
}
}
if (tag==0)
{
document.form1.khmc.value="";
}
}
//商品名称响事件
var Icount;
var Pcout;
Icount=0;
Pcount=0;
shang = new Array();
pin= new Array();
<%
'得出大类的代码与名称
count = 0
set rst=server.CreateObject("adodb.recordset")
mysql="select left(ProdCode,2) as cpxh,ProdName from A_ProductInfo group by left(ProdCode,2),ProdName "
rst.open mysql,Pubconn,1,3
if rst.recordcount> 0 then
do while not rst.eof%>
shang[<%=count%>] = new Array("<%= rst("cpxh")%>","<%= trim(rst("ProdName"))%>");
<%count = count + 1
rst.movenext
loop
end if
rst.close
set rst=nothing%>
Pcount=<%=count%>;
<%
'得出商品型号下拉单
count = 0
set rssp=server.CreateObject("adodb.recordset")
mysql="select * from A_ProductInfo where delflag<>'1'"
rssp.open mysql,Pubconn,1,3
if rssp.recordcount> 0 then
rssp.movefirst
do while not rssp.eof%>
pin[<%=count%>] = new Array("<%= left(trim(rssp("ProdCode")),2)%>","<%= trim(rssp("ProdCode"))%>","<%=trim(rssp("model")+"-"+rssp("Standard"))%>");
<%count = count + 1
rssp.movenext
loop
end if
rssp.close
set rssp=nothing%>
Icount=<%=count%>;
function key2()
{
var flag1;
flag1=0;
//取商品名称
for (p=0;p<Pcount;p++)
{
if(document.form1.cpxh.value==shang[p][0])
{
document.form1.cpmc.value=shang[p][1];
flag1=1;
break;
}
if (flag1==0)
{
document.form1.cpmc.value="";
}
}
//取规格型号
document.form1.mxh1.length = 0;
document.form1.mxh1.options[0] = new Option('','');
document.form1.mxh2.length = 0;
document.form1.mxh2.options[0] = new Option('','');
for (n=0;n<Icount;n++)
{
if(document.form1.cpxh.value==pin[n][0])
{
document.form1.mxh1.options[document.form1.mxh1.length] = new Option(pin[n][2],pin[n][1]);
document.form1.mxh2.options[document.form1.mxh2.length] = new Option(pin[n][2],pin[n][1]);
}
}
} //key2事件响完成
</script>
<script language = "JavaScript">
//型号对应的报价响应
var num;
num=0;
zsm= new Array();
<%count1 = 0
set rsjg=server.CreateObject("adodb.recordset")
mysql="select * from A_ProductInfo"
rsjg.open mysql,Pubconn,1,3
if rsjg.recordcount> 0 then
do while not rsjg.eof%>
zsm[<%=count1%>] = new Array("<%= trim(rsjg("ProdCode"))%>","<%=trim(rsjg("SalePrice"))%>");
<%count1 = count1 + 1
rsjg.movenext
loop
end if
rsjg.close
set rsjg=nothing%>
num=<%=count1%>;
function change1()
{
var spxh1;
spxh1=document.form1.mxh1.options[document.form1.mxh1.selectedIndex].value
var flag;
flag=0;
for (m=0;m<num;m++)
{
if(zsm[m][0]==spxh1)
{
document.form1.mjg1.value=zsm[m][1];
flag=1;
break;
}
if (flag==0)
{
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -