📄 d_linkman.asp

📁 一个很好的在线购物系统
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.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='headtag'"            
 AdoRS1.Open lcSql,PubConn,1,1            
 Areavalue=Adors1("NumValue")            
 if not isNull(Areavalue) then            
 	headtag=Split(AreaValue,",") 					            
 end if            
 Set Adors1=Nothing%>            
<%'###########################得到部门#############################            
 set AdoRs2=Server.CreateObject("AdoDB.RecordSet")            
 lcsql="select NumValue from A_ConfigInfo Where Subject='depar'"            
 AdoRS2.Open lcSql,PubConn,1,1            
 HYvalue=Adors2("NumValue")            
 if not isNull(HYvalue) then            
 	depar=Split(HYValue,",") 					            
 end if            
 Set Adors2=Nothing%>            
<%'###########################得到采购关注点#############################            
 set AdoRs3=Server.CreateObject("AdoDB.RecordSet")            
 lcsql="select NumValue from A_ConfigInfo Where Subject='attention'"            
 AdoRS3.Open lcSql,PubConn,1,1            
 infovalue=Adors3("NumValue")            
 if not isNull(infovalue) then            
  	attention=Split(infoValue,",") 					            
 end if            
 Set Adors3=Nothing%>            
 <%'###########################得到性格#############################            
 set AdoRs4=Server.CreateObject("AdoDB.RecordSet")            
 lcsql="select NumValue from A_ConfigInfo Where Subject='charter'"            
 AdoRS4.Open lcSql,PubConn,1,1            
 statevalue=Adors4("NumValue")            
 if not isNull(statevalue) then            
 	charter=Split(stateValue,",") 					            
 end if            
 Set Adors4=Nothing%>            
<%'###########################得到影响力#############################            
 set AdoRs4=Server.CreateObject("AdoDB.RecordSet")            
 lcsql="select NumValue from A_ConfigInfo Where Subject='effect'"            
 AdoRS4.Open lcSql,PubConn,1,1            
 statevalue=Adors4("NumValue")            
 if not isNull(statevalue) then            
 	effect=Split(stateValue,",") 					            
 end if            
 Set Adors4=Nothing%>            





<%

'读入通过按扭选中的客户的序号和名称，级别
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")
   
   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"))%>");
           <%count = count + 1
             rs5.movenext
             loop
     end if
     rs5.close
     set rs5=nothing%>
     onecount=<%=count%>;
     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];
                tag=1;
                break;
              }  
          }   
          if (tag==0)
          document.form1.khmc.value="";
       

     }     
  </script> 


 
 <script language="vbscript">
 
'在该表单提交前，检验字段是否为空，否则不许提交   
Sub datacheck() 
   

    if form1.khxh.value="" then       
        MsgBox "客户序号不能为空！", 64, "提示："
        focusto(1)
        Exit Sub
    end if 
    if form1.khmc.value="" then       
        MsgBox "客户名称不能为空！", 64, "提示："
        form1.khxh.value=""
        focusto(1)
        Exit Sub
    end if
    if form1.name.value="" then       
        MsgBox "联系人不能为空！", 64, "提示："
        focusto(5)
        Exit Sub
12 3 下一页
⌨️ 快捷键说明

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