📄 d_zyrysciencesubfrm.asp

📁 一个很好的在线购物系统
💻 ASP
📖 第 1 页 / 共 5 页
字号:
         <input type="hidden" name="par_level" value=<%=request("par_level")%>>
       </form>
       <script language="vbscript">
       aa="D_ZyryScienceSubFrm.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&""
       'msgbox aa
       
         window.location=aa
       </script>
       <%'Response.Redirect "D_ZyryScienceSubFrm.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%>

<%'###########################得到职务#############################
 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_zyrysciencesubFrm.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%> 
    <HTML>



<head>



<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
    <title></title><link href="../cread.css" rel="stylesheet" type="text/css">
<%'''''''''''''''''''''''''新建重要人员'''''''''''''''''''''''''''''%>
<%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()
    {
    var i;
    var tag=0;
    
    if (document.form1.m_linkman.value=="")
    {
      alert("重要人员姓名不能为空！");
      tag=1;    
    }
    if (tag==0)
    document.form1.submit();  
    
    }
</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%>     
</head>
⌨️ 快捷键说明

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