📄 d_zyryqtsubfrm.asp

📁 一个很好的在线购物系统
💻 ASP
📖 第 1 页 / 共 5 页
字号:
         <input type="hidden" name="page2" value=<%=request("page2")%>>
         <input type="hidden" name="m_clientnum" value=<%=Request("m_clientnum")%>>
         <input type="hidden" name="m_linkman"  value=<%=request("m_linkman")%>>
         <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")%>>
       </form>
       <script language="vbscript">
          window.location="D_zyryQTsubFrm.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_zyryQTsubFrm.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%>
 <HTML>
    <HEAD>
    <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_zyryqtsubFrm.asp?tag3=Edit&par_name="&document.form1.par_name.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>   


<%'''''''''''''''''''''''''新建重要人员'''''''''''''''''''''''''''''%>
<%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%>     
   
      <form name="form1"  method="post" action="D_zyryQTsubFrm.asp?m_clientnum=<%=trim(Request("par_id"))%>&tag=5"> 
         <%m_id=trim(Request("par_id"))%>
          <table border="0" width="100%">
                <tr>
                 <td width="100%" valign="middle"><img border="0" src="it_22.gif" width="34" height="15">  <b><font size="2">关键人物信息</font></b><hr width="40%" align="left" size="1"></td> 
                </tr> 
       </table> 

        &nbsp&nbsp <font size="3">伙伴名称：</font>&nbsp;&nbsp;<%=GetName(m_id)%><input type="hidden" name="m_id0" value=<%=GetName(m_id)%>><br>
⌨️ 快捷键说明

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