d_khsubfrm.asp

一个很好的在线购物系统

<%'###########################得到信息来源#############################                        
 set AdoRs3=Server.CreateObject("AdoDB.RecordSet")                        
 lcsql="select NumValue from A_ConfigInfo Where Subject='infosource'"                        
 AdoRS3.Open lcSql,PubConn,1,1                        
 infovalue=Adors3("NumValue")                        
 if not isNull(infovalue) then                        
 	info=Split(infoValue,",") 					                        
 end if                        
 Set Adors3=Nothing%>                        
 <%'###########################得到资产规模#############################                        
 set AdoRs4=Server.CreateObject("AdoDB.RecordSet")                        
 lcsql="select NumValue from A_ConfigInfo Where Subject='statescale'"                        
 AdoRS4.Open lcSql,PubConn,1,1                        
 statevalue=Adors4("NumValue")                        
 if not isNull(statevalue) then                        
 	state=Split(stateValue,",") 					                        
 end if                        
 Set Adors4=Nothing%>                        
<%'###########################得到效益状况#############################                        
 set AdoRs4=Server.CreateObject("AdoDB.RecordSet")                        
 lcsql="select NumValue from A_ConfigInfo Where Subject='benefitstatus'"                        
 AdoRS4.Open lcSql,PubConn,1,1                        
 statevalue=Adors4("NumValue")                        
 if not isNull(statevalue) then                        
 	benefit=Split(stateValue,",") 					                        
 end if                        
 Set Adors4=Nothing%>                        
                        
<%if Request("B1")="新建" or Request("tag2")="continue" then%><%''''''''''''B1表示新建客户，来自D_KHMainFrm.asp%>                        
<script language="vbscript">                        
   function CheckLength(bb)                        
        if len(bb)>15 then                        
           aa="数据输入过长!"                        
           msgbox aa                                        
        end if                        
   end function                        
</script>                        
<script language="vbscript">                        
   function CheckLength2(bb)                        
        if len(bb)>60 then                        
           aa="数据输入过长!"                        
           msgbox aa                                        
        end if                        
   end function                        
</script>                        
<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(document.form1.m_Area.value=="")                        
   {                        
      if (tag==0)                        
      alert("区域不能为空！");                        
      tag=1;                        
    }                             
   if(document.form1.m_Occupation.value=="")                        
   {                        
      if (tag==0)                        
      alert("行业不能为空！");                        
      tag=1;                        
    }                             
                        
   if(document.form1.m_Careeror.value=="")                        
   {                        
      if (tag==0)                        
      alert("业务员不能为空！");                        
      tag=1;                        
    }                          
                              
    if (tag==0)                        
    document.form1.submit();                          
                            
    }                        
</script>                        
                        
                        
                        
 <form name=form1 method="post" action="D_khsubFrm.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" color="#C0C0C0" size="1"></td>            
                </tr>            
     </table>            
                                                                    
                                                                      
   <table border=1 cellspacing=0 width="100%">                                                                            
                                                                          
      <tr>                                                                     
         <td width="68" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">                                                                     
         <p align="right">                                                                     
         客户序号</p>                                                                     
         </td><td  bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=16 name="m_id" onkeyup="CheckLength(document.form1.m_id.value)"></td>                                                                          
         <td width="70" 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_name1" onkeyup="CheckLength(document.form1.m_name1.value)"></td>                                                                     
         <td width="77" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">                                                                     
         <p align="right"> <%'onclick=changelocation(document.form1.m_BelongDepart[document.form1.m_BelongDepart.selectedIndex].value)%>                                                                    
         所属部门</p></td><td width="117" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><select  name="m_BelongDepart" style="width: 120" onclick="changelocation()">                                                                     
                                 <option value="">请选择: <%set rs=server.CreateObject("adodb.recordset")
                                   if rs.state=1 then rs.close
                                   rs.open "select * from A_DepartInfo",pubconn,1,3
                                   if rs.recordcount>0 then%> <%rs.movefirst
                                        while not rs.eof%>
                                         <option value=<%=rs.fields("DepartCode")%>><%=rs.fields("Name")%> 
                                         <%rs.movenext
                                         wend%> <% end if%>
                              </select></td>
      </tr>  
      <tr>
         <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">
         <p align="right">
         邮 编</p>                                                                                                    
         </td><td  bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=16 name="M_taxid" onkeyup="CheckLength(document.form1.m_taxid.value)"></td>                                                                                           
         <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">                                                                                  
         <p align="right">                                                                                  
         电&nbsp;&nbsp;&nbsp; 话</p>                                                                                                    
         </td><td  bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=15 name="m_Telophone" onkeyup="CheckLength(document.form1.m_Telophone.value)"></td>                                                                                           
         <td width="77" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">                                                                                  
         <p align="right">                                                                                  
         传&nbsp;&nbsp;&nbsp; 真</p>                                                                                                    
         </td><td  bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=15 name="m_fax" onkeyup="CheckLength(document.form1.m_fax.value)"></td>                                                                                  
      </tr>                                                                                  
      <tr>                                                                                  
         <td  bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">                                                                                  
         <p align="right">                                                                                  
         负 责 人</p>