📄 f_stuffinfo.asp

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


<!--#include file="../include/Pubconn.asp"-->
<%
'**************************
'
'Author:Ruphi Writing Time:2001-09-12
'功能说明：
'实现当前页面翻页或直接提交后能将选中的客户自动填写到指定的页面并不丢失带过来的参数
'
'**************************
%>

<%
'带过来一个参数值
ID=request("ID")
'本表单的值
ygmc=request("ygmc")
bm=request("bm")

%>

<%
'协助者选择的页面，不需要进行业务员过滤
set rsxx=server.createobject("adodb.recordset")
sql="select *  from A_StuffInfo where delflag='0'"
if ygmc<>""  then
   sql=sql&" and name like'%"&ygmc&"%'"
end if
if  bm<>"" then
   sql=sql&" and  departcode='"&bm&"'"
end if 

rsxx.open sql&"order by ID desc" ,pubconn,1
'response.write sql
%>                                     
<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="vbscript">
   sub GoPage()
        page1=document.myform.page1.value
        ID=document.myform.ID.value
        bm=document.form1.bm.value
        ygmc=document.form1.ygmc.value

       a="F_stuffInfo.asp?page="+page1+"&ID="+ID+"&bm="+bm+"&ygmc="+ygmc
       window.location=a
   end sub
   sub winsub()
      window.myform.submit
      window.close
  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"> 
      </font>         
     <font size="2">员工信息查询 
     </font> 
     </b><hr width="40%" size="1" align="left">              
                    
    </td>              
  </tr>              
</table>                     
<form method="post" action="F_stuffInfo.asp" name="form1" >                                                    
                                                     
 <input type="hidden" name="ID" value="<%=ID%>">    
                                                  
                                                     
<table border="0" cellspacing="0" width="100%">                                                          
  <tr>                                                           
    <td width="80" align="center" width="151" width="150" bgcolor="#F1E8DA">          
          
     <p align="right">       
     <font size="2">员工名称</font>       
         
     </p>         
         
    </td>                                                            
    <td width="80" align="center" width="104" width="104" bgcolor="#F1E8DA">                                                          
         
    <p align="left">         
    <input type="text" name="ygmc" size="12">       
       
    </p>          
          
    </td>                                                                    
    <td width="109" align="center" width="96" width="123" bgcolor="#F1E8DA">          
            
     <font size="2">部门 
     </font> 
    
        
         
    </td>                                                         
                                                              
    <td width="120" align="center" width="263" width="243" bgcolor="#F1E8DA">                                                               
         
      <p align="left">         
      
      <select size="1" name="bm" style="width:120;">         
                                                           
            <%                                                            
                                                              
    set rst=Server.CreateObject("ADODB.RecordSet")                                                            
    sql="Select * from A_DepartInfo where departcode<>'01'"                                                            
    rst.open sql,pubconn,1                                                            
                                                                
    %>                                                         
       <option value="">全部</option>                                                     
       <%do while not rst.eof%>                                                            
        <option  value="<%=rst("DepartCode")%>"                  
        <%                 
        if bm<>"" then                 
           if trim(bm)=rst("DepartCode") then                 
               response.write("selected")                 
           end if                  
        end if                  
                         
        %> ><%=rst("Name")%></option>                                                            
       <%                                                           
       rst.movenext                                                           
       loop                                                           
      set rst=nothing                                                           
        %>                                                         
      
      </select>        
   <td width="73" bgcolor="#F1E8DA">         
         
     <p align="right">         
     <input type="submit" value="查询"  class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">                      
                      
    </td>         
    <td width="214"  bgcolor="#F1E8DA">          
      &nbsp;&nbsp;&nbsp;&nbsp;
12 下一页
⌨️ 快捷键说明

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