d_governsubfrm.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")
 %>


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

<%if Request("tag")=1 or request("tag")=11 then%><%'''''''''''''''''保存新增的伙伴,来自D_GovernSubFrm.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_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_remark=trim(Request("m_remark"))         
         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("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("Authors")=Session("UserName")
       		 rs("DepartID")=Session("DepartID")
				rs.Fields("remark")=m_remark
				rs.fields("tag")="hbgovern"
	    	    rs.Update   

                %>
           <%else%>
            <script language="vbscript">
              msgbox "伙伴序号重复,不能保存!",vbOKOnly + vbExclamation,"提示"      
              History.back(-1)       
            </script>
            <% response.end%>
            <%end if%>
           <% rs.Close
         else
            rs.AddNew 
            rs.Fields("clientnum")=m_id
            rs.Fields("clientname")=m_name
            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("remark")=m_remark
			rs("Authors")=Session("UserName")
       		 rs("DepartID")=Session("DepartID")
			rs.fields("tag")="hbgovern"
	        rs.Update   
         end if%>
         
         <form name=form4>
           <input type="hidden" name=par_id value=<%=trim(Request("m_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_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_GovernSubFrm.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_GovernSubFrm.asp?tag=2&par_id="&trim(Request("m_id"))&"&page1="&Request("page1")&"&par_name="&Request("par_name")&""%>
         <%Response.End %>

<%end if%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<title></title><link href="../cread.css" rel="stylesheet" type="text/css">
</HEAD>

<BODY bgcolor="#FFFFFF">
<%'###########################得到销售区域#############################
 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'"
 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%>

 <%''''''''''''B1表示新建伙伴，来自D_GovernMainFrm.asp%>
<%if Request("B1")="新增" or Request("tag2")="continue" then%>
<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 (tag==0)
    document.form1.submit();  
    
    }
</script>


   
   <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>  
 
   <form name=form1 method="post" action="D_GovernSubFrm.asp?tag=1"> 
   <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" align="right">伙伴序号</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=15 name="m_id"></td>      
         <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">伙伴名称</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=15 name="m_name1"></td>          
         <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
         <p align="right">
         负&nbsp责&nbsp人</p>
         </td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=15 name="m_Manager"></td> 
      </tr>   
      <tr>          
         <td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">电&nbsp&nbsp&nbsp话</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=15 name="m_Telophone"></td>