d_zyrysciencesubfrm.asp

一个很好的在线购物系统

                             <select name="m_Memorializemonth">                                                                 
                                                   <%for i=1 to 9%>                                                                       
                                                        <option value="0<%=i%>">0<%=i%> <%next%>                                                               
                                                   <option value="10">10                                                                    
                                                   <option value="11">11                                                                    
                                                   <option value="12">12                                                                    
                                             </select>月                                       
                                             <select name="m_MemorializeDay">                                                             
                                              <%for i=1 to 9%>                                                                            
                                                        <option value="0<%=i%>">0<%=i%>                                                                          
                                                   <%next%>                                                                                                               
                                                   <%for i=10 to 31 %>                                                                           
                                                        <option value=<%=i%>><%=i%>                                                                           
                                                   <%next%>                                     
                                             </select>日</td>                                         
        </tr>                                     
        <tr>                                            
           <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" height="1%" >备&nbsp&nbsp&nbsp&nbsp注</td><td colspan=5 align="center" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" height="1%" >                
           <p align="center">               
           <input type="text" name="m_Remark" size="89"></p>               
           </td>                                    
        </tr>                                    
        <tr>               
         <td colspan=6  bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" height="1%" >&nbsp</td>               
       </tr>               
                                      
     </table>               
         </div>               
          <br>                                    
     <input type="hidden" name="page1" value=<%=trim(Request("page1"))%>>                                    
     <input type="hidden" name="page2" value=<%=trim(Request("page2"))%>>                                       
     <input type="hidden" name="par_name" value=<%=trim(Request("par_name"))%>>                                       
     <input type="hidden" name="par_type" value=<%=trim(Request("par_type"))%>>                                       
     <input type="hidden" name="par_level" value=<%=trim(Request("par_level"))%>>                                       
     <input type="hidden" name="tag" value="NewZyru">                                       
     <%'<input type="button" name="B4" value="保存" onclick="SaveZYry()" >  %>                                       
         &nbsp;&nbsp;<font size="2"> <a href="javascript:SaveZYry()">保存</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href="D_ZyryScienceMainFrm.asp?page1=<%=Request("page1")%>&page2=<%=Request("page2")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">返回</a>                                       
                                          
         </font>                                      
                                          
    </form>                                   
    <%Response.End %>                                  
    <%end if%>                                  
                                 
                                 
                                  
<%if Request("tag")=4 or Request("lookup")="Lookup" or Request("tag3")="Edit"  then%><%''''''''''''保存后%>                                   
                                        
                                        
      <script language="javascript">                                                                    
      function SaveZYry2()                                                                    
       {                                                                    
         var tag=0;                                                                               
       if (document.form1.m_linkman.value=="")                                                                    
        {                                                                    
          alert("客户名称不能为空！");                                                                    
          tag=1;                                                                        
        }                                                                    
       if (tag==0)                                                                    
        document.form1.submit();                                                                                 
      }                                                                    
   </script>                                                                 
                                                                
     <%if trim(request("tag3"))="Edit" then%>                                                     
        <%textable=""                                                     
          selectable=""%>                                                     
     <%else%>                                                     
        <%textable="readonly"                                                     
          selectable="disabled"%>                                                     
     <%end if%>                                                                 
                                                                 
                                   
                                        
     <form name=form1  method="post" action="D_ZyryScienceSubFrm.asp?tag=11">                                    
   <%set rs=server.CreateObject("adodb.recordset")%>                                                                                                                                            
     <%if rs.state=1 then rs.close%>                                                                                                                                            
     <%rs.open "select * from D_linkman where clientnum='"& trim(Request("m_clientnum")) &"' and linkman='"&trim(Request("m_linkman")) &"'",pubconn,1,3%>                                                                                                                                            
                                                                                                                                                 
     <%if rs.recordcount>0 then%>                                                                                                                                            
         <%m_clientnum=trim(Request("m_clientnum"))%>                                                                                                                                            
         <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="70%" align="left" color="#C0C0C0" size="1"></td>                        
                </tr>                        
        </table>                    
                                                                                                                                       
         <br><br><font size="3">客户名称：</font><%=GetName(m_clientnum)%><input type="hidden"  name="m_clientnum" value=<%=m_clientnum%>><br><hr>                                                                                                                                            
         <br>                 
         <table border=1 cellspacing=0 width="100%">                  
           <tr>              
         <td colspan=6  bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">&nbsp</td>              
       </tr>              
                                                                                                                                         
             <tr>                                                                                                                                                           
               <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">姓&nbsp&nbsp&nbsp&nbsp名</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" name="m_linkman" readonly size=15 value=<%=rs.fields("linkman")%>></td>                                                                                                                                            
			   <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">性&nbsp&nbsp别</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">                                                                                                           
			        <%if rs.fields("sex")="男" then%>                                                                                                           
			              <select name="m_sex"  <%=selectable%> style="width:120"><option value="男" selected>男<option value="女">女</select>                                                                                                           
                    <%else%>                                                                                                           
                          <select name="m_sex" <%=selectable%>  style="width:120"><option value="男" >男<option value="女" selected>女</select>                                                                                                           
                    <%end if%></td>                                                                                                           
                      			                                                                                                                                            
			   <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">职&nbsp&nbsp&nbsp&nbsp&nbsp务</td>                                                                                                    
			        <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">       			                                                                                                                   
                          <select  name="m_HeadShip" <%=selectable%>  style="width:120">                                                                                                                        
                                <option value="">请选择: <%for i=0 to UBound(headtag) %> <%if rs.fields("HeadShip")=headtag(i) then%>                                                                                                                                                                                                  
          	                         <option value="<%=headtag(i)%>" selected><%=headtag(i)%></option>                                                        
          	                     <%else%>                                                   
          	                          <option value="<%=headtag(i)%>" ><%=headtag(i)%></option>                                                     
          	                       <%end if%>                                                  
                                <%next %>                                                                                                          
                              </select></td>                                                                                                         
                                                                                                                                  
            </tr>                                                                                                                                                        
            <tr>                                                                                                                                                              
               <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">籍&nbsp&nbsp&nbsp&nbsp贯</td>                                                                                                
                    <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">                                                                                                              
                          <select name="M_NativePlace" <%=selectable%>  style="width:120">                                                                                                              
                             <%if rs.fields("NativePlace")<>"" then%>                                                                                                                             
                                <option value=<%=rs.fields("NativePlace")%> selected><%=rs.fields("NativePlace")%> <%end if%>                                                           
                                                 <option value="">请选择:                                                           
                                                 <option value="北京">北 京                                                           
                                                 <option value="上海">上 海                                                           
                                                 <option value="天津">天 津                                                           
                                                 <option value="湖北">湖 北                                                           
                                                 <option value="湖南">湖 南                                                           
                                                 <option value="安徽">安 徽                                                           
                                                 <option value="重庆">重 庆                                                           
                                                 <option value="福建">福 建                                                           
                                                 <option value="甘肃">甘 肃                                                           
                                                 <option value="广东">广 东                                                           
                                                 <option value="广西">广 西                                                           
                                                 <option value="贵州">贵 州