d_sciencesubfrm.asp

一个很好的在线购物系统

<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubConnCode.asp"-->
<!--#include file="../include/PubFun.asp"-->
<% username=getuser()
 userclass=tablevisitor("d_clientinfo",username)
 departid=session("departid")
 %>
<%
  'dim useroknum					'表示可用的客户编号
  'useroknum=GetOkNum("D_Clientinfo","ClientNum","0")
   	
%>

<%if Request("B1")="删除" then%> <%''''''''''''''''''''''''删除D_ScienceMainFrm.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="par_name" value=<%=request("m_name")%>>
           <input type="hidden" name="par_level" value=<%=request("m_level")%>>
           <input type="hidden" name="page1" value=<%=request("page1")%>>
           <input type="hidden" name="par_area" value=<%=request("m_area")%>>
       </form>
       
       <script language="vbscript">
         window.location="D_ScienceMainFrm.asp?page1="&document.form5.page1.value&"&par_name="&document.form5.par_name.value&"&par_area="&document.form5.par_area.value&"&par_level="&document.form5.par_level.value&""
       </script>
      <%'Response.Redirect "D_ScienceMainFrm.asp?page1="&Request("page1")&"&par_name="&trim(Request("m_name"))&"&par_area="&trim(Request("m_area"))&"&par_level="&trim(Request("m_level"))&""%>
      
 
      <%Response.End %>
<%end if%>

<%if Request("tag")=1 or request("tag")=11 then%><%'''''''''''''''''保存新增的伙伴,来自D_ScienceSubFrm.asp%>
    
     <%set rs=server.CreateObject("adodb.recordset")
       if rs.state=1 then rs.close%>
       <%m_id=trim(Request("m_id"))
         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_IncomePerYear=trim(Request("m_IncomePerYear"))
         m_AssetScale=trim(Request("m_AssetScale"))
         m_BenefitStatus=trim(Request("m_BenefitStatus"))
         m_InformationSource=trim(Request("m_InformationSource"))
         m_Careeror=trim(Request("m_Careeror"))
         m_remark=trim(Request("m_remark"))         
         rs.open "select * from D_clientinfo where clientnum='"& m_id &"'",pubconn,1,3
        %>   
           <%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("IncomePerYear")=m_IncomePerYear
				rs.Fields("AssetScale")=m_AssetScale
				rs.Fields("BenefitStatus")=m_BenefitStatus
				rs.Fields("InformationSource")=m_InformationSource
				rs.Fields("stuffnum")=m_Careeror
				rs.Fields("remark")=m_remark
				rs("Authors")=Session("UserName")
       		 rs("DepartID")=Session("DepartID")
				rs.fields("tag")="hbscience"
		        rs.Update   
         else
         sqldh="select max(clientnum) as num from d_clientinfo  where left(clientnum,1)='S'"
  set dhrs=pubconn.execute(sqldh)
   
	djy=year(date())
    djm=month(date())
    djd=day(date())
    if djm<10 then
    djm="0"&djm
    end if
    if djd<10 then
    djd="0"&djd
    end if
	djdate=djy&djm&djd
	
if dhrs.eof or len(trim(dhrs("num")))<13 then	
ddbh="S"&djdate&"0001"
else
if djdate=mid(trim(dhrs("num")),2,8) then
str=right(trim(dhrs("num")),6)+1
ddbh="S"&djdate&right(str,4)
else
ddbh="S"&djdate&"0001"
end if
end if
m_id=ddbh

            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("IncomePerYear")=m_IncomePerYear
			rs.Fields("AssetScale")=m_AssetScale
			rs.Fields("BenefitStatus")=m_BenefitStatus
			rs.Fields("InformationSource")=m_InformationSource
			rs.Fields("stuffnum")=m_Careeror
			rs("Authors")=Session("UserName")
       		 rs("DepartID")=Session("DepartID")
			rs.Fields("remark")=m_remark
			rs.fields("tag")="hbscience"
	        rs.Update   
         end if
          if m_id<>request("m_id") then
         xh=m_id
         else
         xh=request("m_id")
         end if%>
         <form name=form4>
           <input type="hidden" name=par_id value=<%=xh%>>
           <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")%>>
           <input type="hidden" name="par_area" value=<%=request("par_area")%>>
         </form>
         <script language="vbscript">
           'window.location="D_SaleKHsubFrm.asp?tag=2&par_id="&document.form4.par_id.value&"&page1="&document.form4.page1.value&"&par_name="&document.form4.par_name.value&"&par_level="&document.form4.par_level.value&"&par_type="&document.form4.par_type.value&""
           window.location="D_ScienceSubFrm.asp?tag=2&par_id="&document.form4.par_id.value&"&page1="&document.form4.page1.value&"&par_name="&document.form4.par_name.value&"&par_level="&document.form4.par_level.value&"&par_type="&document.form4.par_type.value&""
         </script>

         <%'Response.Redirect "D_ScienceSubFrm.asp?tag=2&par_id="&trim(Request("m_id"))&"&page1="&Request("page1")&"&par_name="&Request("par_name")&"&par_level="&Request("par_level")&"&par_area="&Request("par_area")&""%>
         <%Response.End %>

<%end if%>
<%'###########################得到销售区域#############################
 set AdoRs1=Server.CreateObject("AdoDB.RecordSet")
 lcsql="select NumValue from A_ConfigInfo Where Subject='salearea'"
 AdoRS1.Open lcSql,PubConn,1,1
 Areavalue=Adors1("NumValue")
 if not isNull(Areavalue) then
 	SaleArea=Split(AreaValue,",") 					
 end if
 Set Adors1=Nothing%>
<%'###########################得到行业#############################
 set AdoRs2=Server.CreateObject("AdoDB.RecordSet")
 lcsql="select NumValue from A_ConfigInfo Where Subject='carreer'"
 AdoRS2.Open lcSql,PubConn,1,1
 HYvalue=Adors2("NumValue")
 if not isNull(HYvalue) then
 	HY=Split(HYValue,",") 					
 end if
 Set Adors2=Nothing%>
<%'###########################得到信息来源#############################
 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'"