d_zyryqtsubfrm.asp

一个很好的在线购物系统

<!--#include file="../include/Pubconn.asp"-->

<!--#include file="../include/PubConnCode.asp"-->

<%if Request("B2")="删除" then%><%''''''''''''''D_zyryQTMainFrm.asp的删除%>
<%i=Request("line")  
  set rs=server.CreateObject("adodb.recordset")
  if i>0 then
     for j=1 to i
         m_id1=Request("m_id1"&j)
         tag=Request("checkbox"&j)
         if rs.State=1 then rs.Close               
         rs.Open  "select * from D_linkman where linkman='"& m_id1 &"' and clientnum='"& trim(Request("par_id")) &"'",pubconn,1,3
           if rs.RecordCount>0 then
            if tag=1 then
               rs.Delete 
               rs.Close 
            end if   
         end if
     next
  end if%>  
  
  <form name=form5>
         <input type="hidden" name="page1" value=<%=request("page1")%>>
         <input type="hidden" name="page2" value=<%=request("page2")%>>
         <input type="hidden" name="par_id" value=<%=Request("par_id")%>>    
         <input type="hidden" name="par_name" value=<%=request("par_name")%>>
 </form>
  <script language="vbscript">
      window.location="D_zyryQTMainFrm.asp?page1="&document.form5.page1.value&"&page2="&document.form5.page2.value&"&par_id="&document.form5.par_id.value&"&par_name="&document.form5.par_name.value&""
  </script>

  <%'Response.Redirect "D_zyryQTMainFrm.asp?page1="&Request("page1")&"&page2="&trim(Request("page2"))&"&par_id="&Request("par_id")&"&par_name="&Request("par_name")&""%>
  <%Response.End %>
<%end if%>


<%if Request("tag")=5 or request("tag")=11 then%><%''''''''''''''''保存新建重要人员%>
     <%
       m_clientnum=trim(Request("m_clientnum"))
       m_linkman=trim(Request("m_linkman"))
       m_sex=trim(Request("m_sex"))
       m_Birthyear=trim(Request("m_Birthyear"))
       m_Birthmonth=trim(Request("m_Birthmonth"))
       m_BirthDay=trim(Request("m_Birthday"))
       if m_birthyear<>"" then
          m_birthday=m_birthyear&"-"&m_birthmonth&"-"&m_birthday
       else
          m_birthday=""
       end if
       M_NativePlace=trim(Request("M_NativePlace"))
       m_Department=trim(Request("m_Department"))
       m_HeadShip=trim(Request("m_HeadShip"))
       m_Telephone=trim(Request("m_Telephone"))
       m_MobileTelephone=trim(Request("m_MobileTelephone"))
       M_CallTelephone=trim(Request("M_CallTelephone"))
       m_Character=trim(Request("m_Character"))       
       m_AffectPower=trim(Request("m_AffectPower"))
       m_AttionPoint=trim(Request("m_AttionPoint"))
       m_Memorializeyear=trim(Request("m_Memorializeyear"))       
       m_Memorializemonth=trim(Request("m_Memorializemonth"))       
       m_Memorializetime=trim(Request("m_MemorializeDay"))       
       if m_Memorializeyear<>"" then
          m_MemorializeDay=m_Memorializeyear&"-"&m_Memorializemonth&"-"&m_Memorializetime
       else
          m_Memorializeday=""
       end if

       m_Remark=trim(Request("m_Remark"))
       
     set rs=server.CreateObject("adodb.recordset")
       if rs.state=1 then rs.close       
       rs.open "select * from D_linkman where clientnum='"& m_clientnum &"' and linkman='"& m_linkman &"'",pubconn,1,3       
       if rs.recordcount>0 then%>         
        <%if request("tag")=11 then%>
           <%rs.movefirst
             rs.delete
             rs.addnew
   		     rs.Fields("clientnum")=m_clientnum
	          rs.Fields("linkman")=m_linkman
	          rs.Fields("sex")=m_sex
    	      rs.Fields("BirthDay")=m_BirthDay
	          rs.Fields("NativePlace")=M_NativePlace
    	      rs.Fields("Department")=m_Department
	          rs.Fields("HeadShip")=m_HeadShip
	          rs.Fields("Telephone")=m_Telephone
	          rs.Fields("MobileTelephone")=m_MobileTelephone
			  rs.Fields("CallTelephone")=M_CallTelephone
			  rs.Fields("Character")=m_Character
			  rs.Fields("AffectPower")=m_AffectPower
			  rs.Fields("AttionPoint")=m_AttionPoint
			  rs.Fields("MemorializeDay")=m_MemorializeDay
			  rs.Fields("Remark")=m_Remark
			  rs.Fields("OnOrOff")=trim(request("m_OnOrOff"))
		      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_clientnum
          rs.Fields("linkman")=m_linkman
          rs.Fields("sex")=m_sex
          rs.Fields("BirthDay")=m_BirthDay
          rs.Fields("NativePlace")=M_NativePlace
          rs.Fields("Department")=m_Department
          rs.Fields("HeadShip")=m_HeadShip
          rs.Fields("Telephone")=m_Telephone
          rs.Fields("MobileTelephone")=m_MobileTelephone
		  rs.Fields("CallTelephone")=M_CallTelephone
		  rs.Fields("Character")=m_Character
		  rs.Fields("AffectPower")=m_AffectPower
		  rs.Fields("AttionPoint")=m_AttionPoint
		  rs.Fields("MemorializeDay")=m_MemorializeDay
		  rs.Fields("Remark")=m_Remark
		  rs.Fields("OnOrOff")="1"

	      rs.Update      
       
       end if%>
       
       <form name=form4>
         <input type="hidden" name="page1" value=<%=request("page1")%>>