📄 d_salezyrysubfrm.asp

📁 一个很好的在线购物系统
💻 ASP
📖 第 1 页 / 共 5 页
字号:
          rs.Fields("Telephone")=m_Telephone
          rs.Fields("MobileTelephone")=m_MobileTelephone
		  rs.Fields("CallTelephone")=M_CallTelephone
		  rs.Fields("Character")=m_Character
		  rs.Fields("AffectPower")=m_AffectPower
		  rs.Fields("AttionPoint")=m_AttionPoint
		  rs.Fields("MemorializeDay")=m_MemorializeDay
		  rs.Fields("Remark")=m_Remark
		   rs("Authors")=Session("UserName")
       		 rs("DepartID")=Session("DepartID")
  	      rs.Fields("OnOrOff")="1"
	      rs.Update      
       
       end if%>
       <form name=form4>
         <input type="hidden" name="page1" value=<%=request("page1")%>>
   		 <input type="hidden" name="page2" value=<%=request("page2")%>>
		 <input type="hidden" name="m_clientnum" value=<%=request("m_clientnum")%>>
		 <input type="hidden" name="par_name" value=<%=request("Par_name")%>>
	     <input type="hidden" name="par_type" value=<%=request("par_type")%>>
	     <input type="hidden" name="par_level" value=<%=request("par_level")%>>
	     <input type="hidden" name="m_linkman" value=<%=request("m_linkman")%>>
	  </form> 
	  <script language="vbscript">
	      window.location="D_Salezyrysubfrm.asp?tag=4&page1="&document.form4.page1.value&"&page2="&document.form4.page2.value&"&m_clientnum="&document.form4.m_clientnum.value&"&m_linkman="&document.form4.m_linkman.value&"&par_name="&document.form4.par_name.value&"&par_type="&document.form4.par_type.value&"&par_level="&document.form4.par_level.value&""
	  </script>
       <%'Response.Redirect "D_Salezyrysubfrm.asp?tag=4&page1="&Request("page1")&"&page2="&trim(Request("page2"))&"&m_clientnum="&Request("m_clientnum")&"&m_linkman="&Request("m_linkman")&"&par_name="&Request("par_name")&"&par_type="&Request("par_type")&"&par_level="&Request("par_level")&""%>
       <%Response.End%>
<%end if%>

<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<title></title>
</head>

<BODY bgcolor="#FFFFFF">
<%'###########################得到职务#############################
 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%>
 
  <script language="vbscript">              
      sub Editkehu()              
          
          a="D_salezyrysubFrm.asp?tag3=Edit&par_name="&document.form1.par_name.value&"&par_type="&document.form1.par_type.value&"&par_level="&document.form1.par_level.value&"&m_clientnum="&document.form1.m_clientnum.value&"&m_linkman="&document.form1.m_linkman.value&"&page1="&document.form1.page1.value&"&page2="&document.form1.page2.value&""              
          window.location=a
       end sub              
    </script>      
    
  <%function getName(aa)
             set rs1=server.CreateObject("adodb.recordset") 
             if rs1.State=1 then rs1.Close
             rs1.Open "select * from D_clientinfo where clientnum='"& aa &"'",pubconn,1,3
             if rs1.RecordCount<=0 then 
                getName=""
             else
                getName=rs1.Fields("clientname")
             end if
          end function%> 

<%'''''''''''''''''''''''''新建重要人员'''''''''''''''''''''''''''''%>
<%if Request("B2")="新建" or Request("tag1")="jump" then%>
    
  <script language="javascript">
   var onecount;
   onecount=0;
   subcat = new Array();
   <%count = 0
     set rs5=server.CreateObject("adodb.recordset")
     rs5.open "SELECT * FROM D_linkman",pubconn,1,3
     if rs5.recordcount> 0 then
        do while not rs5.eof%>
           subcat[<%=count%>] = new Array("<%= trim(rs5("linkman"))%>");
           <%count = count + 1
             rs5.movenext
             loop
     end if
     rs5.close
     set rs5=nothing%>
     onecount=<%=count%>;
    function SaveZYry()
    {
⌨️ 快捷键说明

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