📄 d_rivalsubfrm.asp

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

<!--#include file="../include/PubConnCode.asp"-->
<%if Request("B2")="删除" then%><%''''''''''''''D_RivalMainFrm.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_ClientRival where RivalName='"& 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%>  
  <%Response.Redirect "D_RivalMainFrm.asp?index="&request("index")&"&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 then%><%''''''''''''''''保存新建竞争者信息%>
     <%m_clientnum=trim(Request("par_id"))
       m_RivalName=trim(Request("m_RivalName"))
       
       set rs=server.CreateObject("adodb.recordset")
       if rs.state=1 then rs.close       
       rs.open "select * from D_ClientRival where clientnum='"& m_clientnum &"' and RivalName='"& m_RivalName &"'",pubconn,1,3       
       if rs.recordcount>0 then 
          rs.movefirst          
          rs.Fields("clientnum")=m_clientnum
          rs.Fields("RivalName")=m_RivalName
          rs.Update          
      else 
          rs.addnew
          rs.Fields("clientnum")=m_clientnum
          rs.Fields("RivalName")=m_RivalName
          rs.Update             
       end if%>
       <%Response.Redirect "D_RivalMainFrm.asp?tag=4&index="&request("index")&"&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%>


 <%function getName(aa)
      set rs1=server.CreateObject("adodb.recordset") 
      if rs1.State=1 then rs1.Close
      rs1.Open "select * from D_clientinfo where clientnum='"& aa &"'",pubconn,1,3
      if rs1.RecordCount<=0 then 
         getName=""
      else
         getName=rs1.Fields("clientname")
      end if
     end function%>  

<head>
<title></title>
<link href="../cread.css" rel="stylesheet" type="text/css">

</head>

      <BODY bgcolor="#FFFFFF">      
<%'''''''''''''''''''''''''新建竞争者信息人员'''''''''''''''''''''''''''''%>
<%if Request("B2")="新建" or Request("tag1")="jump" or request("tag1")=99 then%>
    <%   page1=request("page1")
       page2=request("page2")
       par_id=request("par_id")
       par_name=trim(request("par_name"))
       par_type=trim(request("par_type"))
       par_level=trim(request("par_level"))%>
  <script language="javascript">
   var onecount;
   onecount=0;
   subcat = new Array();
   <%count = 0
     set rs5=server.CreateObject("adodb.recordset")
     rs5.open "SELECT * FROM D_ClientRival ",pubconn,1,3
     if rs5.recordcount> 0 then
        do while not rs5.eof%>
           subcat[<%=count%>] = new Array("<%= trim(rs5("ClientNum"))%>","<%= trim(rs5("RivalName"))%>");
           <%count = count + 1
             rs5.movenext
             loop
     end if
     rs5.close
     set rs5=nothing%>
     onecount=<%=count%>;
    function SaveRival()
    {
    var i;
    var tag=0;
    
   if (document.form1.m_RivalName.value=="")
   {
      alert("竞争者名称不能为空！");
      tag=1;    
    }
    
    for(i=0;i < onecount; i++)
    {
      if((subcat[i][0]==document.form1.par_id.value) && (subcat[i][1]==document.form1.m_RivalName.value))
        {  
          if(tag==0)
           { alert("竞争者名称重复,不能保存!");}
         tag=1;
         break;
        }
    }
    if (tag==0)
    document.form1.submit();  
    
    }
    
</script>     
   <%function getName(aa)
             set rs1=server.CreateObject("adodb.recordset") 
             if rs1.State=1 then rs1.Close
             rs1.Open "select * from D_clientinfo where clientnum='"& aa &"'",pubconn,1,3
             if rs1.RecordCount<=0 then 
                getName=""
             else
                getName=rs1.Fields("clientname")
             end if
          end function%>     
  <script language="vbscript"> 
    sub click1()
       window.open "pubselectRival.asp?par_id="&document.form1.par_id.value&"&page1="&document.form1.page1.value&"&page2="&document.form1.page2.value&"&par_name="&document.form1.par_name.value&"&par_type="&document.form1.par_type.value&"&par_level="&document.form1.par_level.value&"&index="&document.form1.index.value&"","竞争者信息","menubar=no,status=no,width=800,height=600"     
    end sub
  </script>
        
 
      <form name="form1"  method="post" action="D_RivalSubFrm.asp?tag=5"> 
     <%function getName(aa)
  set rs1=server.CreateObject("adodb.recordset") 
  if rs1.State=1 then rs1.Close
  rs1.Open "select * from D_clientinfo where clientnum='"& aa &"'",pubconn,1,3
  if rs1.RecordCount<=0 then 
     getName=""
  else
     getName=rs1.Fields("clientname")
  end if
end function%>
<%function GetProdNameByCode(aa)''''''''''''''''根据商品编码取名称
    set rs3=server.CreateObject("adodb.recordset") 
    if rs3.State=1 then rs3.Close
    rs3.Open "select * from A_ProductInfo where ProdCode='"& aa &"'",pubconn,1,3
    if rs3.RecordCount<=0 then 
       GetProdNameByCode=""
    else
       GetProdNameByCode=rs3.Fields("ProdName")
    end if
   end function%>
12 下一页
⌨️ 快捷键说明

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