d_zyrysubfrm.asp

一个很好的在线购物系统

                                                   <%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="42" align="right">备&nbsp&nbsp&nbsp&nbsp注</td><td colspan=5 align="center" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" height="42" ><input type="text" name="m_Remark" size=73 ></td>                                                                                                 
            </tr>                                                                                                
            <tr>          
                <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" colspan=6 height="15">　</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()" >   %>                                                                                                       
      <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>                                                                                                             
                                                                                                        
    </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_zyrysubFrm.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>关键人物档案</b><hr width="40%" align="left" size="1"></td>             
                </tr>             
       </table>             
                                                                                                
         <br><br>&nbsp;&nbsp; 客户名称：<%=GetName(m_clientnum)%><input type="hidden"  name="m_clientnum" value=<%=m_clientnum%>><br>                                                                                                       
         <table border=1 cellspacing=0 width="100%">          
              <tr>         
                <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" colspan=6>　</td>         
              </tr>                                                                                               
              <tr>                                                                                                               
               <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="center">姓&nbsp&nbsp&nbsp&nbsp名</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" name="m_name" 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" align="center">籍&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="福建">福 建