📄 d_jylsmainfrm.asp

📁 一个很好的在线购物系统
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<!--#include file="../include/PubConnCode.asp"-->
<% departid=session("departid")
%>
<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">
<%function GetYWYName(aa)
   set rs1=server.CreateObject("adodb.recordset")
   if rs1.State=1 then rs1.Close 
   rs1.Open "select * from A_stuffinfo where stuffnum='"& aa &"'",pubconn,1,3
   if rs1.RecordCount>0 then 
      GetYWYName=rs1.Fields("Name")
   else
      GetYWYName=""
   end if
   rs1.close
  end function%>
  <%function GetMoney(aa)''根据订单编号统计金额
      set rs3=server.CreateObject("adodb.recordset")
      if rs3.State=1 then rs3.Close 
      rs3.open "select * from viewtzd where ordernum='"& aa &"'",pubconn,1,3
      if rs3.RecordCount>0 then 
         GetMoney=0
         rs3.movefirst
         while not rs3.eof
            GetMoney=GetMoney+rs3.Fields("Money")
            rs3.movenext
         wend
      else
         GetMoney=""
      end if
   end function %>   
 <%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 getYGName(aa) ''取员工姓名
  set rs1=server.CreateObject("adodb.recordset") 
  if rs1.State=1 then rs1.Close
  rs1.Open "select * from A_stuffinfo where stuffnum='"& aa &"'",pubconn,1,3
  if rs1.RecordCount<=0 then 
     getYGName=""
  else
     getYGName=rs1.Fields("name")
  end if
  end function%>
<%function getNameByOrder(aa)'''根据定单号取出客户姓名
   set rs1=server.CreateObject("adodb.recordset") 
  if rs1.State=1 then rs1.Close
  rs1.Open "select * from viewsk where ordernum='"& aa &"'",pubconn,1,3
  if rs1.RecordCount<=0 then 
     getNameByOrder=""
  else
     getNameByOrder=getName(rs1.Fields("clientnum"))'''getName根据序号取客户姓名
  end if
  end function%>   
 <%function GetStuffByOrder(aa)'''根据订单编号取业务员姓名
    set rs1=server.CreateObject("adodb.recordset") 
    if rs1.State=1 then rs1.Close
    rs1.Open "select * from viewsk where ordernum='"& aa &"'",pubconn,1,3
    if rs1.RecordCount<=0 then 
       GetStuffByOrder=""
    else
       GetStuffByOrder=getYGName(rs1.Fields("stuffnum"))''''getYGName根据序号取员工姓名
    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%>
   <%function GetProdStandByCode(aa)''''''''''''''''''''根据商品编码取规格
    set rs4=server.CreateObject("adodb.recordset") 
    if rs4.State=1 then rs4.Close
    rs4.Open "select * from A_ProductInfo where ProdCode='"& aa &"'",pubconn,1,3
    if rs4.RecordCount<=0 then 
       GetProdStandByCode=""
    else
       GetProdStandByCode=rs4.Fields("Standard")
    end if
   end function%>
   <%function GetProdUnitByCode(aa)''''''''''''''''''''根据商品编码取单位
    set rs5=server.CreateObject("adodb.recordset") 
    if rs5.State=1 then rs5.Close
    rs5.Open "select * from A_ProductInfo where ProdCode='"& aa &"'",pubconn,1,3
    if rs5.RecordCount<=0 then 
       GetProdUnitByCode=""
    else
       GetProdUnitByCode=rs5.Fields("Unit")
    end if
   end function%>
 <%if Request("tag")=2 then%><%'''''''''''''''''''''''''''''''''''''''第一次装载%>
  
  <%m_id=trim(Request("par_id"))%><%'''''''客户序号%>  
  <%set rs=server.CreateObject("adodb.recordset")
    rs.Open "select * from viewsk where Clientnum='"& m_id &"' and departid like '"&departid&"%'",pubconn,1,3%>    
    <form name="form1"  method="post" action="D_JYLSMainFrm.asp">       
       <%if rs.RecordCount<=0 then%>         
       <%aa="Lookup"%>
       <br><br><br><br><br><br><br><br>
       <center><font size="2">提示:<%=getName(m_id)%>尚未建立历史交易信息!<br></font><br><br><br>
       <%if request("index")="true" then%>
            <a href="D_khindexsubFrm.asp?lookup=<%=aa%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">返回</a>                                 
       <%else%>
12 3 下一页
⌨️ 快捷键说明

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