d_zyrygovernsubfrm.asp

一个很好的在线购物系统

                
     <a href="D_zyryGovernMainFrm.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_zyryGovernSubFrm.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="40%" align="left" size="1"></td>           
                </tr>           
     </table>                                                                                                                   
         &nbsp&nbsp客户名称：<%=GetName(m_clientnum)%><input type="hidden"  name="m_clientnum" value=<%=m_clientnum%>><br><br>                                                                                                                    
         <table border=1 cellspacing=0 width="100%">                                                                                                                    
            <tr>                             
         <td colspan=6 height="16" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">&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=18 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="贵州">贵 州                                                                     
                                                 <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="陕西">陕 西                                                                     
                                                 <option value="山西">山 西                                                                     
                                                 <option value="四川">四 川                                                                     
                                                 <option value="西藏">西 藏                                                                     
                                                 <option value="新疆">新 疆                                                                                                                      
                                                 <option value="云南">云 南                                                                     
                                                 <option value="浙江">浙 江                                                                     
                                                 <option value="香港">香 港                                                                     
                                                 <option value="澳门">澳 门                                                                     
                                                 <option value="台湾">台 湾                                                                     
                                                 <option value="其他">其他                                                                     
                                              </select></td>                                                                     
                                                                      
               <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">部&nbsp&nbsp门</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">                                                                     
                           <select  name="m_Department" <%=selectable%>  style="width:120">                                                                                  
                                <option value="">请选择: <%for i=0 to UBound(depar) %> <%if rs.fields("Department")=depar(i) then%>                                                                     
                                     <option value="<%=depar(i)%>" selected ><%=depar(i)%></option>                                                                      
                                 <%else%>                                                                     
          	                         <option value="<%=depar(i)%>" ><%=depar(i)%></option>                                                                        
          	                     <%end if%>                                                                       
                               <%next %>                                                                                     
                              </select></td>                                                                       
                                                                                                                                           
               <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">手&nbsp&nbsp&nbsp&nbsp&nbsp机</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5"  bordercolorlight="#F7F4E5">                                                                                 
                <input type="text" name="m_MobileTelephone"size=15 <%=textable%> value=<%=rs.fields("MobileTelephone")%>></td>