📄 e_returnedit.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubCode.asp"-->
<!--#include file="../include/PubFun.asp"-->
<%
'username=Getuser()
'userclass=TableVisitor("E_infoReturn",username)
'if userclass<2 then
' response.write "<center>抱歉，您没有此项操作权限！<a href=E_returnbrow.asp>返回</a>"
' response.end
'end if
%>
<%
ID=Request("ID")
set rsfk=Server.CreateObject("ADODB.RecordSet")
sql="select * from E_infoReturn where ID="&cint(id)
rsfk.open sql,Pubconn,1,3
khxh=rsfk("ClientNum")
if khxh<>"" then
set mykh=Server.CreateObject("ADODB.RecordSet")
sql="select * from D_ClientInfo where ClientNum='"&khxh&"'"
mykh.open sql,Pubconn,1
if not mykh.eof then
khmc=mykh("ClientName")
telephone=mykh("telophone")
end if
end if
lxr=rsfk("LinkMan")
cpbm1=rsfk("ProdCode")
if cpbm1<>"" then
'找出产品的有关的内容
set rssp1=Server.Createobject("ADODB.recordset")
sql="select * from A_ProductInfo where ProdCode='"&cpbm1&"'"
rssp1.open sql,Pubconn,1
if not rssp1.eof then
cpmc1=rssp1("ProdName")
ggxh1=rssp1("Model")+"-"+rssp1("stanDard")
end if
end if
if rsfk("ProductDay")<>"" then
year1=left(rsfk("ProductDay"),4)
month1=mid(rsfk("ProductDay"),6,2)
date1=right(rsfk("ProductDay"),2)
end if
cpbm=request("cpbm")
'response.write cpbm
if cpbm<>"" then
lxr=request("lxr")
'找出产品的有关的内容
set rssp=Server.Createobject("ADODB.recordset")
sql="select * from A_ProductInfo where ProdCode='"&cpbm&"'"
rssp.open sql,Pubconn,1
if not rssp.eof then
cpmc=rssp("ProdName")
ggxh=rssp("Model")+"-"+rssp("stanDard")
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="javascript">
//商品名称响事件
var Pcount;
Pcount=0;
shang1 = new Array();
shang2 = new Array();
<%
'得出大类的代码与名称
count = 0
set rst=server.CreateObject("adodb.recordset")
mysql="select ProdName,left(prodcode,4) as code2,model,prodcode,standard,unit ,costprice from A_ProductInfo "
rst.open mysql,Pubconn,1,3
if rst.recordcount> 0 then
do while not rst.eof
%>
shang1[<%=count%>]=new Array("<%= trim(rst("code2"))%>","<%= trim(rst("model"))%>");
shang2[<%=count%>]=new Array("<%= trim(rst("prodcode"))%>","<%= trim(rst("standard"))%>","<%= trim(rst("unit"))%>","<%= trim(rst("ProdName"))%>","<%= trim(rst("CostPrice"))%>");
<%count = count + 1
rst.movenext
loop
end if
rst.close
set rst=nothing
%>
Pcount=<%=count%>;
function key2()
{
//取商品名称
for (l=0;l<Pcount;l++)
{
if(document.form1.cpbm.value.substring(0,4)==shang1[l][0])
{
document.form1.ggxh.value=shang1[l][1];
break;
}
else
{
document.form1.ggxh.value="";
}
}
for (t=0;t<Pcount;t++)
{
if(document.form1.cpbm.value==shang2[t][0])
{
document.form1.cpmc.value=shang2[t][3];
document.form1.ggxh.value=shang1[l][1]+"-"+shang2[t][1];
break;
}
else
{
document.form1.cpmc.value="";
}
}
} //key2事件响完成
</script>
<script language="javascript">
function jian()
{
document.form1.submit();
}
</script>
<script language="vbscript">
sub cpxz()
ID=document.form1.ID.value
window.open "E_returnCP1.asp?ID="+ID,"客户信息","menubar=no,status=no,width=600,height=500,scrollbars=yes"
end sub
sub khxx()
khxh=document.form1.khxh.value
window.open "E_Clientdetail.asp?khxh="+khxh,"客户信息","menubar=no,status=no,width=600,height=500,scrollbars=yes"
end sub
</script>
<script language="vbscript">
'以下判断只有为数字型才能输入
sub sl_onkeypress
window.event.keyCode=PublicKeyAscii(document.form1.sl.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="E_returnEditInfo.asp" name="form1" >
<input type="hidden" name="ID" value="<%=ID%>">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -