d_khindexsubfrm.asp

一个很好的在线购物系统

<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<% username=getuser()
 userclass=tablevisitor("d_clientinfo",username)
 departid=session("departid")
 userclass1=tablevisitor("d_flowtable",username)
 userclass2=TableVisitor("G_TblClosePlan",username)
 %>

<%
  dim useroknum					'表示可用的客户编号
  useroknum=GetOkNum("D_Clientinfo","ClientNum","0")
  
     
%>

<%if Request("B1")="删除" then%> <%''''''''''''''''''''''''删除D_KHindexmainFrm.asp上的记录%>
     <%i=Request("line")%>
     <% if i>0 then
          for j=1 to i
             m_id=Request("m_id"&j)
             tag=Request("checkbox"&j)
             if tag=1 then
          delsql="update d_clientinfo set delflag='1' where clientnum='"& m_id &"'" 
           pubconn.execute(delsql)
           end if
          next
       end if%>
       <form name="form5">
         <input type="hidden" name="page1" value=<%=request("page1")%>>
         <input type="hidden" name="par_name" value=<%=request("m_name")%>>
         <input type="hidden" name="par_type" value<%=request("m_type")%>>
         <input type="hidden" name="par_level" value=<%=request("m_level")%>>
       </form>
       <script language="vbscript">
          window.location="D_KHindexmainFrm.asp?page1="&document.form5.page1.value&"&par_name="&document.form5.par_name.value&"&par_type="&document.form5.par_type.value&"&par_level="&document.form5.par_level.value&""
       </script>
      <%'Response.Redirect "D_KHindexmainFrm.asp?page1="&Request("page1")&"&par_name="&trim(Request("m_name"))&"&par_type="&trim(Request("m_type"))&"&par_level="&trim(Request("m_level"))&""%>
      
 
      <%Response.End %>
<%end if%>

<%if Request("tag")=1 or request("tag")=11 then%><%'''''''''''''''''保存新增的客户,来自D_KHindexsubFrm.asp%>
    
     <%
     set rs=server.CreateObject("adodb.recordset")
       if rs.state=1 then rs.close%>
       <%if  request("tag")=11 then
           m_id=trim(Request("m_id1"))
         else 
           m_id=trim(Request("m_id"))
         end if
         m_name=trim(Request("m_name1"))
         m_BelongDepart=trim(Request("m_BelongDepart"))
         M_Address=trim(Request("M_Address"))
         m_Telophone=trim(Request("m_Telophone"))
         m_fax=trim(Request("m_fax"))
         mail=trim(Request("E_mail"))
         m_NetAddress=trim(Request("m_NetAddress"))
         m_Manager=trim(Request("m_Manager"))
         m_Area=trim(Request("m_Area"))
         m_Area=trim(replace(m_Area,",",""))
         m_Occupation=trim(Request("m_Occupation"))
         m_InformationSource=trim(Request("m_InformationSource"))
         m_requestintent=trim(request("m_requestintent"))
         m_Careeror=trim(Request("m_Careeror"))
         m_remark=trim(Request("m_remark"))  
         khlb=trim(Request("khlb"))
         zzbh=trim(Request("zzbh"))
		 shdd=trim(Request("shdd"))
         qysx=trim(Request("qysx"))
         jyxm=trim(Request("jyxm"))
         sh=trim(Request("sh"))
         
       rs.cursorlocation=3
         rs.open "select * from D_clientinfo where clientnum='"& m_id &"'",pubconn,1,3
                  
         if rs.recordcount>0 then%>
           <%if  request("tag")=11 then
                rs.movefirst
                ' rs.delete
                ' rs.AddNew 
                 rs.Fields("clientnum")=m_id
    	         rs.Fields("clientname")=m_name
       		     rs.Fields("DepartCode")=m_BelongDepart
       		     rs.Fields("Address")=M_Address
	           rs.Fields("Telophone")=m_Telophone
	            rs.Fields("fax")=m_fax
    	        rs.Fields("E_mail")=mail
        	    rs.Fields("NetAddress")=m_NetAddress
	            rs.Fields("Manager")=m_Manager
				rs.Fields("Area")=m_Area
				rs.Fields("Occupation")=m_Occupation
				rs.Fields("InformationSource")=m_InformationSource
				rs.Fields("stuffnum")=m_Careeror
				rs.fields("requestintent")=m_requestintent
				rs.fields("type")=""
				rs.fields("tag")="khindex" 
				rs.fields("sort")=khlb
				rs.fields("licnum")=zzbh
				rs.fields("shdd")=shdd
  				rs.fields("qysx")=qysx
  				rs.fields("jyxm")=jyxm
  				rs.fields("taxid")=sh
				rs("Authors")=Session("UserName")
       		 rs("DepartID")=Session("DepartID")
				rs.Fields("remark")=m_remark
				
				rs.Update
				
				sql="select * from f_tblintent where clientnum='"&m_id&"'"        
 				set xqrs=pubconn.execute(sql)
 					if not xqrs.eof then
 					sql1="update d_clientinfo set type='潜在客户',tag='kh' where clientnum='"&m_id&"' "
 					pubconn.execute(sql1)
 					end if
		           %>   
           <%else%>  
              <script language="vbscript">
                  msgbox "客户序号重复,不能保存!",vbOKOnly + vbExclamation,"提示"      
                  History.back(-1)       
              </script>
             <% response.end%>
           <%end if%>  
         <%else
         'response.write m_requestintent
         'response.end
            rs.AddNew 
            rs.Fields("clientnum")=m_id
            rs.Fields("clientname")=m_name
            rs.Fields("DepartCode")=m_BelongDepart
            rs.Fields("Address")=M_Address
            rs.Fields("Telophone")=m_Telophone
            rs.Fields("fax")=m_fax
            rs.Fields("E_mail")=mail
            rs.Fields("NetAddress")=m_NetAddress
            rs.Fields("Manager")=m_Manager
			rs.Fields("Area")=m_Area
			rs.Fields("Occupation")=m_Occupation
			rs.Fields("InformationSource")=m_InformationSource
			rs.Fields("stuffnum")=m_Careeror
			rs.fields("requestintent")=m_requestintent
			rs.fields("type")=""
			rs.fields("tag")="khindex" 
			rs.fields("sort")=khlb
			rs.fields("licnum")=zzbh
			rs.fields("shdd")=shdd
  			rs.fields("qysx")=qysx
  			rs.fields("jyxm")=jyxm
  			rs.fields("taxid")=sh
  			rs("Authors")=Session("UserName")
       		 rs("DepartID")=Session("DepartID")
			rs.Fields("remark")=m_remark			
	        rs.Update   
	      
	        sql="select * from f_tblintent where clientnum='"&m_id&"'"  
	        'response.write sql      
 				set xqrs=pubconn.execute(sql)
 					if not xqrs.eof then
 					sql1="update d_clientinfo set type='潜在客户',tag='kh' where clientnum='"&m_id&"' "
 					pubconn.execute(sql1)
 					end if
                    end if
                   %>  
                   
         <%if  request("tag")=11 then%>
            <%par_id=trim(Request("m_id1"))%> 
         <%else%>
            <%par_id=trim(Request("m_id"))%> 
         <%end if%>
         <form name=form4>
         <input type="hidden" name="par_id" value="<%=par_id%>">
         <input type="hidden" name="par_name" value="<%=request("par_name")%>">
         <input type="hidden" name="par_type" value="<%=request("par_type")%>">
         <input type="hidden" name="par_level" value="<%=request("par_level")%>">
         <input type="hidden" name="page1" value="<%=request("page1")%>">
         </form>
          <script language="vbscript">
                       window.location="D_KHindexsubFrm.asp?tag=2&par_id="&document.form4.par_id.value&"&par_name="&document.form4.par_name.value&"&par_type="&document.form4.par_type.value&"&par_level="&document.form4.par_level.value&""
          </script>              
              <%'Response.Redirect "D_KHindexsubFrm.asp?tag=2&par_id="&trim(Request("m_id1"))&"&page1="&Request("page1")&"&par_name="&Request("par_name")&"&par_level="&Request("par_level")&"&par_type="&Request("par_type")&""%>