d_zyrysubfrm1.asp

一个很好的在线购物系统

                                                        <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" height="1%" align="right" width="10%">备&nbsp&nbsp&nbsp&nbsp注&nbsp;</td>       
               <td colspan=5 align="center" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" height="1%" >       
               <input name="m_Remark" size=73 style="float: left" ></td>                                                                                                 
            </tr>                                                                                                
                                                                                                                      
     </table> <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="hidden" name="index" value=<%=trim(request("index"))%> >                                                                                                 
     <%'<input type="button" name="B4" value="保存" onclick="SaveZYry()" >   %>                                                                                                   
         <font size="2">                                                                                                  
      <a href="javascript: SaveZYry()">保存</a>                                                                                                     
     <a href="D_zyryMainFrm.asp?page1=<%=Request("page1")%>&index=<%=request("index")%>&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 i;                              
    var tag=0;                              
                                  
    if (document.form1.m_name.value=="")                              
    {                              
      alert("客户名称不能为空！");                              
      tag=1;                                  
    }                              
    if (tag==0)                              
    document.form1.submit();                                
                                  
    }                              
</script>                              
                               
     <form name=form1  method="post" action="D_zyrysubfrm1.asp?tag=11">                                                                                                   
     <%if trim(request("tag3"))="Edit" then%>                                               
        <%textable=""                                               
          selectable=""%>                                               
     <%else%>                                               
        <%textable="readonly"                                               
          selectable="disabled"%>                                               
     <%end if%>                                               
                                    
     <%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="40%" align="left" size="1"></td>              
                </tr>              
       </table>              
                                                                                                 
         <br><br>&nbsp;<font size="3">&nbsp; 客户名称：<%=GetName(m_clientnum)%><input type="hidden"  name="m_clientnum" value=<%=m_clientnum%>></font><br>                                                                                                   
         <table border=1 cellspacing=0 width="100%" height="200" style="border-collapse: collapse" bordercolor="#F7F4E5" cellpadding="0">           
              <tr>                                                                                                                
               <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" height="1%" width="10%">姓&nbsp&nbsp&nbsp&nbsp名&nbsp;</td>       
               <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" height="1%" width="15%"><input type="text" name="m_name" readonly size=15 value=<%=rs.fields("linkman")%>></td>                                                                                                
			   <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" height="1%" align="right" width="10%">性&nbsp &nbsp别</td>         
               <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" height="1%" width="15%">                                                                
                    <select name="D1" <%=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" height="1%" align="right" width="10%">职&nbsp&nbsp&nbsp&nbsp务&nbsp;</td>                                                        
			        <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" height="1%" width="15%">       			                                                                       
                          <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" align="right" height="1%" width="10%">籍&nbsp&nbsp&nbsp&nbsp贯&nbsp;</td>                                                  
                    <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" height="1%" width="15%">                                                                
                          <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="安徽">安 徽