📄 g_statedetail.asp

📁 一个很好的在线购物系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"--> 
<% username=Getuser()
userclass=TableVisitor("G_TblCloseState",username)
if userclass<1 then
   response.write"<br>"
   response.write"<br>"
   response.write "<center><font size=2>抱歉，您没有此项操作权限！<a href=G_mainstate.asp>返回</a>"
   response.end
end if
%>

<%
 

%>

<%
sid=request("txtstuff")
%>
<%
set RSte=server.createobject("adodb.recordset")
str="select * from G_TblCloseState Where DepartID like '"&Session("DepartID")&"%'"
if sid<>"" then
     str=str&" and  StuffNum='"&sid&"'"
end if 
RSte.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="vbscript">
   sub GoPage()
    
       a="G_statedetail.asp?page="+document.myform.page1.value+"&txtstuff="+document.myform.txtstuff.value

       '+"&weekid="+document.myform.weekid.value+"&stuffid="+document.myform.stuffid.value
       ' msgbox a
        window.location=a
   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="G_statedetail.asp" name="myform">                                             
<p>                                             
                                             
                                                       
                                                       
<table border="0" cellspacing="0" width="100%" align="center">                                                        
  <tr>                                                         
                                                             
    <td width="11%" bgcolor="#F1E8DA">       
       
           
     <p align="center">  
      
          
     <font size="2">     
     业务员      
     </font>      
      
       
         
      <select  name="txtstuff" style="width:100" size="1" bgcolor="#F1E8DA">                     
      <%                  
                         
      %>                                                   
            <%                                                     
    '业务员列表                                                     
    set rst=Server.CreateObject("ADODB.RecordSet")                                                     
    sql="Select * from A_StuffInfo Where SaleFlag='1' and delflag='0' and departcode like '"&Session("DepartID")&"%'"                                                     
    rst.open sql,pubconn,1                                                     
                                                         
    %>                                                  
       <option value="">全部</option>                                              
       <%do while not rst.eof%>                                                     
        <option  value="<%=rst("StuffNum")%>" <%          
        if sid<>"" then          
           if trim(sid)=rst("StuffNum") then          
               response.write("selected")          
           end if           
        end if           
                  
        %> ><%=rst("Name")%></option>                                                     
       <%                                                    
       rst.movenext                                                    
       loop                                                    
      set rst=nothing                                                    
        %>                                                    
                                                     
      </select>&nbsp;&nbsp;&nbsp;&nbsp; <input type="submit" value="查询"  class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1" >     
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href="G_stateshbrow.asp">查看历史评语</a>&nbsp;&nbsp;         
        
        
        
     </p>    
    
        
        
    </td>                                                                               
 </tr>                                                                              
</table>                                                                       
                                                                           
 <%            
 if RSte.eof then%>            
<center><p>没有符合条件的记录！<a href=G_mainstate.asp>返回</a></center>            
            
 <%else                                                                                 
   if request.querystring("page")<>"" then                                                                               
   page=cint(request.querystring("page"))                                                                              
else                                                                              
   page=1                                                                              
end if                                                                              
                                                                              
RSte.pagesize=10                                                                             
if page>=RSte.pagecount then                                                                              
   page=RSte.pagecount                                                                              
else                                                                              
   if page<1 then                                                                              
      page=1                                                                              
   end if                                                                              
end if                                                                              
RSte.absolutepage=page                                                                              
                                                                               
%>                
                                                                             
                                                                                         
<table border="1" cellspacing="0" width="100%" height="30">                                                                                 
                                                                                       
  <tr>
12 下一页
⌨️ 快捷键说明

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