d_qtsubfrm.asp

一个很好的在线购物系统

      alert("伙伴名称不能为空！");
      tag=1;}
    }
    if (tag==0)
    document.form1.submit();  
    
    }
</script>



   <form name=form1 method="post" action="D_QTsubFrm.asp?tag=1">
   <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> 

  <table border=1 cellspacing=0 width="100%">      
      <tr>
         <td colspan=6 bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">&nbsp</td>
      </tr>
      <tr>
         <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">伙伴序号</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=15 name="m_id"></td>     
         <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">伙伴名称</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=15 name="m_name1"></td>         
         <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
         <p align="right">
         负&nbsp责&nbsp人</p>
         </td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=15 name="m_Manager"></td>
      </tr>  
      <tr>         
         <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">电&nbsp&nbsp&nbsp话</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=15 name="m_Telophone"></td>
         <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">传&nbsp&nbsp&nbsp&nbsp真</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=15 name="m_fax"></td>
         <td colspan=2 bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">&nbsp;</td>
      </tr>
      <tr>         
         <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">网&nbsp&nbsp&nbsp址</td><td colspan=5 align="center" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=70 name="m_NetAddress"></td>      
      </tr>      
      <tr>
         <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">&nbspE-Mail&nbsp</td><td colspan=5 align="center" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=70 name="E_mail"></td> 
      </tr>
      <tr>
         <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">地&nbsp&nbsp&nbsp址</td><td colspan=5 align="center" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"> <input type="text" size=70 name="M_Address"></td>
      </tr>   
      <tr>
         <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">备&nbsp&nbsp&nbsp注</td><td colspan=5 align="center" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=70 name="m_remark"></td>
      </tr>
      
      <tr>         
         <td colspan=6 bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">&nbsp</td>         
      </tr>  
      <input type="hidden" name="page1" value=<%=Request("page1")%>>
      <%if Request("tag2")="continue" then%>
           <input type="hidden" name="par_name" value=<%=Request("par_name")%>>
      <%else%>     
           <input type="hidden" name="par_name" value=<%=Request("m_name")%>>
      <%end if%>
      </table><br><br>
     <%'<input type="button" value="保存" onclick="datacheck()" id=button1 name=button1>%>
     <a href="javascript:datacheck()"><font size="2">保存</font></a>    

   <font size="2">     

         <a href="D_QTMainFrm.asp?page1=<%=Request("page1")%>&par_name=<%=Request("m_name")%>">返回</a>  

   </font>  

</form> 
<%response.end%> 
<%end if%> 
 
 
<%''''''''''''''''''''tag=2 表示保存新建伙伴后%> 
 
<%if Request("tag")=2 or trim(Request("lookup"))="Lookup"  or request("tag3")="Edit" then%> 


   <script language="javascript">
   function datacheck()
    {
    var i;
    var tag=0;
    
    if (document.form1.m_id.value=="")
    {
      alert("伙伴序号不能为空！");
      tag=1;    
    }
    if (document.form1.m_name1.value=="")
    {
      if (tag==0){
      alert("伙伴名称不能为空！");
      tag=1;}
    }
  
  
    if (tag==0)
    document.form1.submit();  
    
    }
</script>

     <script language="vbscript"> 
     sub NewHB() 
        window.location="D_qtSubFrm.asp?tag2="+document.form1.tag2.value+"&par_name="+document.form1.par_name.value+"&page1="+document.form1.page1.value        
     end sub 
</script> 
<script language="vbscript">
  sub Editkehu()
      window.location="D_qtSubFrm.asp?tag3=Edit&par_id="&document.form1.m_id.value&"&par_name="&document.form1.par_name.value&"&page1="&document.form1.page1.value&""
  end sub
</script>

    <%if trim(request("tag3"))="Edit" then%>                
        <%textable=""                
          selectable=""%>                
     <%else%>                
        <%textable="readonly"                
          selectable="disabled"%>                
     <%end if%>             
     <%m_id=Request("par_id") 
       set rs=server.CreateObject("adodb.recordset") 
       if rs.state=1 then rs.close 
       rs.open "select * from D_clientinfo where clientnum='"& m_id &"'",pubconn,1,3%> 
       <%if rs.recordcount<=0 then%> 
<center><font size="2">提示:保存出错!</font></center> 
          <%Response.End %>                            
       <%end if%>                            
    <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>            
                       
     <form name=form1 method="post" action="D_qtSubFrm.asp?tag=11">                    
      <table border=1 cellspacing=0 width="100%">                    
      <tr>                    
         <td colspan=6 bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">&nbsp</td>                    
      </tr>                    
      <tr>                    
         <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">伙伴序号</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=15 readonly name="m_id" value=<%=rs.fields("clientnum")%>></td>                         
         <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">伙伴名称</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=15 readonly name="m_name1" value=<%=rs.fields("clientname")%>></td>                    
         <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">        
         <p align="right">        
         负责人</p>        
         </td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=15 name="m_Manager" <%=textable%> value=<%=rs.fields("Manager")%>></td>                    
      </tr>                      
      <tr>                             
         <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">电&nbsp&nbsp&nbsp&nbsp话</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=15 name="m_Telophone" <%=textable%> value=<%=rs.fields("Telophone")%>></td>                    
         <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">传&nbsp&nbsp&nbsp&nbsp真</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=15 name="m_fax" <%=textable%> value=<%=rs.fields("fax")%>></td>                    
         <td colspan=2 bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">&nbsp;</td>                    
      </tr>                             
      <tr>                             
         <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">网&nbsp&nbsp&nbsp&nbsp址</td><td colspan=5 align="center" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" <%=textable%> size=70 name="m_NetAddress" value=<%=rs.fields("NetAddress")%>></td>                                 
      </tr>                    
      <tr>                    
         <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">&nbspE-Mail&nbsp</td><td colspan=5 align="center" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=70  <%=textable%> name="E_mail" value=<%=rs.fields("E_mail")%>></td>                     
      </tr>                    
      <tr>                    
         <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">地&nbsp&nbsp&nbsp&nbsp址</td><td colspan=5 align="center" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" <%=textable%>  size=70 name="M_Address" value=<%=rs.fields("Address")%>></td>                    
      </tr>                    
      <tr>                    
         <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">备&nbsp&nbsp&nbsp&nbsp注</td><td colspan=5 align="center" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=70 <%=textable%>  name="m_remark" value=<%=rs.fields("remark")%>></td>                    
      </tr>            
                 
<tr>                    
         <td colspan=6 bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">&nbsp</td>                    
      </tr>                     
      <input type="hidden" name="par_name" value=<%=Request("par_name")%>>                    
      <input type="hidden" name="page1" value=<%=Request("page1")%>>                    
  </table><br>                    
  <%'<input type="button" value="新增" onclick="NewHB()"  id=button2 name=button2> %>                    
  <%if userclass>1 then%>           
  <a href="javascript:NewHB()"><font size="2">新增</font></a>         
  <%else%>        
  <a href="qx.asp"><font size="2">新增</font></a>         
  <%end if%>          
      <font size="2">             
  <%if trim(request("tag3"))="Edit" then%>                                                       
      <a href="javascript: datacheck()">保存</a>                                     
  <%else%>                                    
     <%if userclass>1 then%>           
      <a href="javascript: Editkehu()">编辑</a>           
      <%else%>        
  <a href="qx.asp"><font size="2">编辑</font></a>         
  <%end if%>                                                                                                                                      
  <%end if%>                                
  <input type="hidden"  name="tag1" value="jump">                      
  <input type="hidden" name="tag2" value="continue">                      
                            
    <br><br><center>          
  <%'if trim(Request("lookup"))="Lookup" then%>                 
       <a href="D_zyryQTMainFrm.asp?page1=<%=Request("page1")%>&par_name=<%=Request("par_name")%>&par_id=<%=Request("par_id")%>">关键人物信息</a>                          
  <%'end if%> &nbsp&nbsp&nbsp&nbsp                   
         <a href="D_QTMainFrm.asp?page1=<%=Request("page1")%>&par_name=<%=Request("par_name")%>">返回</a>                              
       </center>          
      </font>          
</form>                 
<%end if%>                 
</BODY>                 
</HTML>