📄 d_salezyrysubfrm.asp

📁 一个很好的在线购物系统
💻 ASP
📖 第 1 页 / 共 5 页
字号:
12 3 4 5 下一页
<!--#include file="../include/Pubconn.asp"-->

<!--#include file="../include/PubConnCode.asp"-->
<!--#include file="../include/PubFun.asp"-->
<% username=getuser()
 userclass=tablevisitor("d_linkman",username)
 departid=session("departid")
%>
<HTML>

<head>
<link href="../cread.css" rel="stylesheet" type="text/css">
<%if Request("B2")="删除" then%><%''''''''''''''D_SalezyryMainFrm.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")%>>
    <input type="hidden" name="par_type" value=<%=request("par_type")%>>
    <input type="hidden" name="par_level" value=<%=request("par_level")%>>
  </form> 
  <script language="vbscript">
     window.location="D_Salezyrymainfrm.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&"&par_type="&document.form5.par_type.value&"&par_level="&document.form5.par_level.value&""
  </script>
  <%'Response.Redirect "D_Salezyrymainfrm.asp?page1="&Request("page1")&"&page2="&trim(Request("page2"))&"&par_id="&Request("par_id")&"&par_name="&Request("par_name")&"&par_type="&Request("par_type")&"&par_level="&Request("par_level")&""%>
  <%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_yearDay=trim(Request("m_Birthyear"))
       m_monthDay=trim(Request("m_Birthmonth"))
       m_dayDay=trim(Request("m_birthDay"))
       if m_yearday<>"" then
          m_BirthDay=m_yearday&"-"&m_monthday&"-"&m_dayday
       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("OnOrOff")=trim(request("m_OnOrOff"))
		   rs("Authors")=Session("UserName")
       		 rs("DepartID")=Session("DepartID")
		  rs.Fields("Remark")=m_Remark
	      rs.Update   
              %>
         <%else%>
          <script language="vbscript">
              msgbox "重要人员姓名重复,不能保存!",vbOKOnly + vbExclamation,"提示"      
              History.back(-1)       
            </script>
            <% response.end%>
         <%end if%>   
       
       <%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
12 3 4 5 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -