📄 e_returnbrow.asp

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



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

<!--#include file="../include/PubFun.asp"--> 
<% username=Getuser()

userclass=TableVisitor("E_infoReturn",username)
if userclass<1 then
   response.write "<center>抱歉，您没有此项操作权限！"
   response.end
end if

%>


<%
'***************************
'Author:Ruphi   Writing Time:2001-08-20
'功能说明：客户计划明细查询
'Updat time:2001-09-02
'增加查询条件：客户能可输入与可选
'**************************
 Response.Buffer=FALSE
%>

<%
'**********************************
'客户查询传过来的值(G_cx1.asp)
khxh=request("khxh")
khmc=khname(khxh)



'***********************************
'按查询按扭后，提交后的值
  
djbh=request("djbh")   '业务员


'******************
 
%>
<%
set rsfk=server.createobject("adodb.recordset")
str="select * from E_infoReturn where DepartID like '"&Session("DepartID")&"%' "
if  khxh<>"" then
      str=str&" and ClientNum='"&khxh&"' "
end if   
if djbh<>""  then    
      str=str&" and  billID='"&djbh&"'  "
end if
rsfk.open str&"order by id desc",pubconn,1
'response.write str
%>                                     
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>单据查询</title><link href="../cread.css" rel="stylesheet" type="text/css">
</head>

<script language="javascript">
//输入客户序号时，产生其对应的名称
   var onecount;
   onecount=0;
   subcat = new Array();
   <%count = 0
     set rs5=server.CreateObject("adodb.recordset")
     rs5.open "SELECT * FROM D_clientinfo where ( tag='khindex'or ((type='潜在客户'or isnull(type)) and tag='kh') or (type='预期客户' and tag='kh')or (type='首次购买客户' and tag='kh') or (type='忠诚客户'and tag='kh') or (type='重复购买客户' and tag='kh') or  tag='hbdealer' ) ",Pubconn,1,3
          if rs5.recordcount> 0 then
        do while not rs5.eof%>
           subcat[<%=count%>] = new Array("<%= trim(rs5("clientnum"))%>","<%=trim(rs5("clientname"))%>");
           <%count = count + 1
             rs5.movenext
             loop
     end if
     rs5.close
     set rs5=nothing%>
     onecount=<%=count%>;
     
    

     function khxx()
     { 
     //客户名称响应
         var tag;
         tag=0;
         for (i=0;i<onecount;i++)
          {  
            if(document.myform.khxh.value==subcat[i][0])   
              {      
                document.myform.khmc.value=subcat[i][1];
                tag=1;
                break;
              }  
          }   
          if (tag==0)
          document.myform.khmc.value="";
    }
</script>
<script language="vbscript">
   sub kh()
       djbh=document.myform.djbh.value
       window.open "E_cx2.asp?djbh="+djbh,"客户信息","menubar=no,status=no,width=600,height=500,scrollbars=yes" 
   end sub

   sub GoPage()
       page1=document.form1.page1.value
       djbh=document.myform.djbh.value
       khxh=document.myform.khxh.value
       a="E_returnbrow.asp?page="+page1+"&djbh="+djbh+"&khxh="+khxh
       window.location=a
  end sub
  sub khxx()
  khxh=document.form1.khxh.value
  window.open "E_Clientdetail.asp?khxh="+khxh,"客户信息","menubar=no,status=no,width=600,height=500,scrollbars=yes" 
 end sub
 
  
  
</script>
<body bgcolor="#FFFFFF">

<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif" width="34" height="15"> 
      </font> 
     <font size="2">质量反馈信息浏览
     </font>
     </b><hr width="40%" size="1" align="left">          
                
    </td>          
  </tr>          
</table>        
          
<form method="post" action="E_returnbrow.asp" name="myform">                                               
<p>                                               
                                               
                                                                  
                                                                  
<table border="0" cellspacing="0" width="100%" align="center">                                                                   
  <tr>                                                                    
    <td width="58" align="center" bgcolor="#F1E8DA" >                   
                   
     <p align="right">    
     <font size="2">单据编号   
     </font>   
                 
     </p>                 
                 
    </td>                                                                    
    <td width="103" align="center"  bgcolor="#F1E8DA">                                                                  
                 
    <p align="left">                 
    <input type="text" name="djbh" size="11">   
   
    </p>                 
                 
    </td>                                                                           
    <td width="58" align="center" bgcolor="#F1E8DA">                 
                 
     <p align="right">                 
     <font size="2">             
       客户序号   
     </font>   
                 
     </p>                 
                 
    </td>
12 下一页
⌨️ 快捷键说明

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