📄 khdd.asp

📁 一个很好的在线购物系统
💻 ASP
📖 第 1 页 / 共 5 页
字号:
12 3 4 5 下一页

<!--#include file="../include/Pubconn.asp"-->
<html>
<head>
<%if request("par_id")<>"" then
  session("par_id")=request("par_id")
  session("par_name")=request("par_name")
  session("par_type")=request("par_type")
  session("level")=request("par_level")
  session("index")=request("index")
  session("page1")=request("page1")
  session("page2")=request("page2")
  'response.write  session("index")
 ' response.end
  end if%>
<%
'pubconn=openpubconn()
bcbz=request("bcbz")
'khlx=request("khlx")

ddbh=request("ddbh")


ddate=request("ddate")
xsbm=request("xsbm")
khxh=request("khxh")
ywy=request("ywy")
khmc=request("khmc")
spsl=request("spsl")
spxh=request("f_spxh")
khbz=request("khbz")
spbz=request("spbz")
kl=request("kl")
zkfs=request("zkfs")
'spbm=request("spbm")
'spmc=request("spmc")
'sh=request("sh")
'ggxh=request("ggxh")
'jldw=request("jldw")
'kl=request("kl")
'hsdj=request("hsdj")
  'response.write zkfs
  'response.write khxh
 'response.write session("userid")

zkl=0
je=0
khzk=0
if spxh<>"" then
set sprs=server.createobject("adodb.recordset")
    spsql="select * from A_productinfo where prodcode='"&spxh&"'"
    sprs.open spsql,pubconn,1,3
  je=cdbl(sprs("saleprice"))

end if
%>

<script language="javascript">
//输入客户序号时，产生其对应的名称以及该客户的所有重要人员名单
   var onecount;
    onecount=0;
 subcat =new Array();
     <%count = 0
     set rs5=server.CreateObject("adodb.recordset")
    
     rs5.open "SELECT * FROM viewcsd where stuffnum='"&Session("UserID")&"' and (tag='kh' or tag='hbdealer'or tag='khindex')",Pubconn,1,3
     
     if rs5.recordcount> 0 then
        do while not rs5.eof%>
 subcat[<%=count%>] = new Array("<%= trim(rs5("clientnum"))%>","<%=trim(rs5("clientname"))%>","<%=trim(rs5("namedep"))%>","<%=trim(rs5("namestuff"))%>","<%=trim(rs5("level"))%>");
           <%count = count + 1
             rs5.movenext
             loop
     end if
     rs5.close
     set rs5=nothing%>
     onecount=<%=count%>;
     function keyup()
     { 
     
     //客户名称响应
         var tag;
         tag=0;
         for (i=0;i<onecount;i++)
          {  
            if(document.myform.m_khid1.value==subcat[i][0])   
              {      
                document.myform.m_name.value=subcat[i][1];
                document.myform.xsbm.value=subcat[i][2];
                document.myform.ywy.value=subcat[i][3];
                tag=1;
                break;
              }  
          }   
          if (tag==0){
           document.myform.xsbm.value="";
         document.myform.ywy.value=""; 
          document.myform.m_name.value="";
        
      }  
    }   
    
  //商品名称响事件  
  
   var Pcount;
  
   Pcount=0;
   shang = new Array();
  shang1 = new Array();
  shang2 = new Array();
   <%
     '得出大类的代码与名称  
     count = 0
    
     set rst=server.CreateObject("adodb.recordset")
     mysql="select left(ProdCode,2) as code1,ProdName,left(prodcode,4) as code2,model,prodcode,standard,unit from  A_ProductInfo "
     rst.open mysql,Pubconn,1,3
    
    if rst.recordcount> 0 then
          do while not rst.eof
          %>
           shang[<%=count%>] = new Array("<%= trim(rst("code1"))%>","<%= trim(rst("ProdName"))%>");
           shang1[<%=count%>]=new Array("<%= trim(rst("code2"))%>","<%= trim(rst("model"))%>");
           shang2[<%=count%>]=new Array("<%= trim(rst("prodcode"))%>","<%= trim(rst("standard"))%>","<%= trim(rst("unit"))%>");
           <%count = count + 1
12 3 4 5 下一页
⌨️ 快捷键说明

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