📄 f_contract1.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("F_Tblcontract1",username)
'response.write userclass
if userclass<2   then
   response.write "<br>"
   response.write "<br>"
   response.write "<center><font size=2>抱歉，您没有此项操作权限！<a href=F_contractbrow1.asp>返回</a>"
   response.end
end if

%>
<%
'*************************
'Author:Ruphi Updating Time:2001-09-19
' 功能说明：技术合同录入页面
'
'************************

%>
<%
hth=request("hth")    '两个选择序号页面传过来的值
gcsxh=request("gcsxh")   '客户序号选择时传过来的值
'找出工程师的名字
if gcsxh<>"" then
  set rsyg=Server.CreateObject("ADODB.RecordSet")
  sql="select *  from A_stuffInfo where StuffNum='"&gcsxh&"'"
  rsyg.open sql,Pubconn,1
  if not rsyg.eof then
     gcsmc=rsyg("Name")
  end if 
  rsyg.close
  set rsyg=nothing
end if 

khxh=request("khxh")  '客户序号选择时传过来的值
'找出对应的客户名称
if khxh<>"" then
    set rs1=Server.CreateObject("ADODB.RecordSet")
    sql="select *  from D_ClientInfo where ClientNum='"&khxh&"'"
    rs1.open sql,Pubconn,1
    if not rs1.eof then
       khmc=rs1("ClientName")
       telephone=rs1("telophone")
       fax=rs1("fax")
       address=rs1("address")
    end if 
    rs1.close
    set rs1=nothing

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 m_count1;
	Hetonghao=new Array();
	<%
	m_count=0
	set rst=Server.CreateObject("ADODB.RecordSet")
	rst.open "select contractnum from f_tblcontract1",pubconn,1,3
	%>
	<%if rst.recordcount>0 then
		do while not rst.eof
	%>
			Hetonghao[<%=m_count%>]=new Array("<%=rst.Fields("contractnum")%>");
	<%
			rst.movenext
			m_count=m_count+1
		loop
	end if
	rst.close
	set rst=nothing
	%>
	m_count1=<%=m_count%>
  function datacheck()
    {
     var tag;
     var i;
     tag=0;
    if (document.form1.hth.value=="")
       {
         alert("合同序号不能为空!")
         document.form1.hth.focus();
         tag=1;   
         return(false);     
       }
     if ((document.form1.khxh.value=="")||(document.form1.khmc.value==""))
       {
         alert("需方不能为空！")
         document.form1.khxh.focus();
         tag=1;  
         return(false);
        }

     for(i=0;i<m_count1;i++)
     {
		if(document.form1.hth.value==Hetonghao[i][0])
		{
			document.form1.hth.value=eval(Hetonghao[i][0])+eval(1);
			//alert("合同号重复，请重新输入！")
			//tag=1;
			//break;
			document.form1.submit();

			
			//document.form1.hth.value=""
			//alert("合同号重复，请重新输入！")
			//tag=1;
			//break;
			
		}
     }  
     if (tag==0)   
       {document.form1.submit();     }

    }
</script>
<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")&"'and delflag<>'1'",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%>;
     
     <%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()
     { 
     //客户名称响应
       if ((document.form1.gcsxh.value=="")||(document.form1.gcsmc.value==""))
     {
       alert("请先选择工程师！");
       document.form1.khxh.value=""
       document.form1.gcsxh.focus();
       return(false);
     }
         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="";
          //跟进对象下拉菜单
          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]);
12 3 下一页
⌨️ 快捷键说明

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