tlistfors.asp

来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 163 行

ASP
163 行
字号 
<!-- #include file="adoconn.asp" -->

<html>

<head>
<link rel="stylesheet" href="comCSS.css">
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>教师信息管理</title>

<base target="_self">
<meta name="Microsoft Border" content="t, default">
</head>

<body ><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td>

<p align="left">　</p>

</td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><!--msnavigation--><td valign="top">
 
   
<% 
Dim sql 
Dim reccount 
Dim fieldi,recordi 
 
t1=request("T1") 
t2=request("T2") 
D1=request("D1")
r1=request("R1") 
r2=request("R2") 
 
IF t1<>"" or t2<>"" or D1<>"" THEN 
  sql="select * from Teachers where " 
  if t1<>"" then 
     sql=sql + " TID='" + t1 + "'"       
  end if 
  if t2<> "" then 
     if t1 <> "" then  
        sql = sql + R1 + "TNAME='" + t2 + "' " 
     else 
        sql=sql + "TNAME='" + t2 +"' "  
     end if  
  end if 
  if D1 <> "" then 
     if t2 <> "" then 
        sql = sql + R2 
     elseif t1 <> "" then 
        sql = sql + R1 
     end if
     if D1="所有部门" then 
        sql =sql + "Tdepartment<>''" 
     else
        sql =sql + "Tdepartment='" + D1 + "'"
     end if 
  end if 
ELSE 
  sql="select * from Teachers " 
END IF 

SQL=SQL+ " ORDER BY TNAME"

Set Rs=GetRecordset(sql)
 
IF not rs.eof then  
   Reccount=rs.RecordCount 
   
   Page=Request.QueryString("Page")
   Psize=Request.QueryString("PageSize")
   
   If Psize="" Then
      Psize=7
   End if
   
   Rs.PageSize=Psize
    
   Pages=Rs.PageCount 
   
   If Page<1 Then Page=1
   If Page=NULL Then Page=1
   'If Page>Pages Then Page=Pages
   
   Rs.AbsolutePage=Page 
END IF 
%> 
 
<form method="post"> 
<table border=0 cellspacing="0"> 
<tr> 
<td><font face="华文行楷" size="4" color="#FF0000"><b><%=(t3)%>教师信息列表 </b></font> [Page &nbsp;<%=Page%>&nbsp;0f&nbsp;<%=Pages%>][  记录总数：<%=Reccount%>]</td>           
</table>                                      
<div align="left">           
  <table border="0" width="1062">         
  <tr bgcolor=#ccccc7>       
    <td width="98" colspan="2" align="center">         
        <p align="right"><font color="#000080"><b>&nbsp; 身份证号</b></font>   
    </td>        
    <td width="65" align="center">      
        <p align="center"><font color="#000080"><b>姓名</b></font></p>      
    </td>        
    <td width="50" align="center">      
        <p align="right"><font color="#000080"><b>性别</b></font></p>      
    </td>        
    <td width="105" align="center">      
        <p align="center"><font color="#000080"><b>出生日期</b></font></p>      
    </td>        
    <td width="123" align="center">      
        <p align="center"><font color="#000080"><b>所在部门</b></font></p>      
    </td>        
    <td width="127" align="center"><font color="#000080"><b>职称</b></font></td>        
    <td width="121" align="center"><font color="#000080"><b>职务</b></font></td>      
    <td width="55" align="center"><font color="#000080"><b>岗位</b></font></td>      
    <td width="262" align="center"><font color="#000080"><b>简历</b></font></td>        
   </tr>   
       
    <%for recordi=1 to Rs.PageSize      
      if rs.Eof then Exit for      
      if recordi mod 2=0 then   
         color="#ddddd7"   
      else   
         color="#eeeeef"   
      end if   
       
      response.write ("<tr bgcolor=" + color +">")   
    %>        
           
      <td width="25"><input type="checkbox" name="Selected" value="<%=rs(0) %>"></td>          
      <td width="67"><% =rs(0) %></td>        
      <td width="65"><% =rs(1) %></td>        
      <td width="50"><% =rs(2) %></td>        
      <td width="105"><% =rs(3) %></td>        
      <td width="123"><% =rs(5) %></td>        
      <td width="127"><% =rs(6) %></td>        
      <td width="121"><% =rs(7) %></td>        
      <td width="55"><% =rs(8) %></td>   
      <td width="262"><% =rs(9) %></td>           
    <%response.write ("</tr>")%>        
    <% rs.movenext%>        
    <%next%>        
  </table>        
</div>        
<%    
  Set rs=nothing    
  Set Adoconn=nothing    
%>               
        
<%scriptname=request.servervariables("script_name")%>        
<br>        
<a href="<%=scriptname%>?Page=1&PageSize=<%=Psize%>&t1=<%=t1%>&t2=<%=t2%>&D1=<%=D1%>&r1=<%=r1%>&r2=<%=r2%>">第一页</a>&nbsp;         
<a href="<%=scriptname%>?Page=<%=(Page+1)%>&PageSize=<%=Psize%>&t1=<%=t1%>&t2=<%=t2%>&D1=<%=D1%>&r1=<%=r1%>&r2=<%=r2%>">下一页</a>&nbsp;           
<a href="<%=scriptname%>?Page=<%=(Page-1)%>&PageSize=<%=Psize%>&t1=<%=t1%>&t2=<%=t2%>&D1=<%=D1%>&r1=<%=r1%>&r2=<%=r2%>">上一页</a>&nbsp;&nbsp;           
<a href="<%=scriptname%>?Page=<%=(Pages)%>&PageSize=<%=Psize%>&t1=<%=t1%>&t2=<%=t2%>&D1=<%=D1%>&r1=<%=r1%>&r2=<%=r2%>">最后一页</a>&nbsp;&nbsp;<p>           
<a href="TqueryforS.asp">返回</a>       
  
</p>      
      
</form>      

<!--msnavigation--></td></tr><!--msnavigation--></table></body>    
</html>

tlistfors.asp - 源码说明

本页面展示了「《动态网页设计基础教程》,胡杰,科学出版社」中的 tlistfors.asp 源码文件，采用 ASP 编程语言编写，共 163 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与动态相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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