📄 e_return.asp

📁 一个很好的在线购物系统
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页


<!--#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

%>


<%
'***********************************
'Author:Ruphi  Update Time:2001-08-19
'功能说明： 客户跟进计划录入界面
'***********************************
 
 
'读入通过按扭选中的客户的序号和名称
djbh=request("djbh")
khxh=request("khxh")
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=request("lxr")
cpbm=request("cpbm")
if cpbm<>"" then
    '找出产品的有关的内容
    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 onecount;
   var tj;
   tj=0;
   onecount=0;
   subcat = new Array();
   shu = 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")&"'",Pubconn,1,3
     if rs5.recordcount> 0 then
        do while not rs5.eof%>
           subcat[<%=count%>] = new Array("<%=trim(rs5("clientnum"))%>","<%=trim(rs5("clientname"))%>","<%=trim(rs5("telophone"))%>");
           <%count = count + 1
             rs5.movenext
             loop
     end if
     rs5.close
     set rs5=nothing%>
     onecount=<%=count%>;
     
     <%count1 = 0
     set rs9=server.CreateObject("adodb.recordset")
     rs9.open "SELECT * FROM  D_LinkMan where Onoroff='1' ",Pubconn,1,3
     if rs9.recordcount> 0 then
        do while not rs9.eof%>
           shu[<%=count1%>] = new Array("<%= trim(rs9("clientnum"))%>","<%=trim(rs9("LinkMan"))%>");
           <%count1 = count1 + 1
             rs9.movenext
             loop
     end if
     rs9.close
     set rs9=nothing%>
     tj=<%=count1%>;

     function keyup()
     { 
     //客户名称响应
         var tag;
         tag=0;
         for (i=0;i<onecount;i++)
          {  
            if(document.form1.khxh.value==subcat[i][0])   
              {      
                document.form1.khmc.value=subcat[i][1];
                //alert(subcat[i][2]);
                document.form1.lxdh.value=subcat[i][2];
                tag=1;
                break;
              }  
          }   
          if (tag==0)
          {
          document.form1.khmc.value="";
          document.form1.lxdh.value="";
          }
          //跟进对象下拉菜单
          document.form1.lxr.length = 0;

          document.form1.lxr.options[0] = new Option('','');

          for (n=0;n<tj;n++)
          {  
            if(document.form1.khxh.value==shu[n][0])   
              {      
              document.form1.lxr.options[document.form1.lxr.length] = new Option(shu[n][1],shu[n][1]);
 
              }  
          }   
          

     }     
  </script> 
  
  
<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"))%>");
12 3 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -