⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 unpass.asp

📁 在根目录下存放着系统登陆以及实现用户功能的网页文件
💻 ASP
字号:
<!--#include file="conn.inc"-->
<html>
<body style="text-align: center">
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="25">
  <tr>
    <td width="100%">当前位置:<a href="news.asp">系统管理</a> &gt;
    <a href="searchscore.asp">查询成绩</a> &gt; 未审批考试计划查询</td>
  </tr>
</table>
<table border="1" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber1">
  <tr>
    <td bgcolor="#E1E1E1" height="30" colspan="7">
    <p align="center"><b><font color="#FF0000" size="3" face="黑体">未通过审批的考试计划</font></b></td>
  </tr>
  <tr>
    <td width="30" align="center" bgcolor="#E1E1E1" height="20"><b>序号</b></td>
    <td align="center" bgcolor="#E1E1E1" width="100">
    <p align="center"><b>考试编号</b></td>
    <td align="center" bgcolor="#E1E1E1"><b>科目</b></td>
    <td align="center" bgcolor="#E1E1E1">
    <p align="center"><b>有效期</b></td>
    <td align="center" bgcolor="#E1E1E1" width="100"><b>设定人</b></td>
    <td align="center" bgcolor="#E1E1E1" width="100"><b>设定批准人</b></td>
    <td align="center" bgcolor="#E1E1E1" width="100"><b>设定时间</b></td>
  </tr>
  <%
sql="select * from exam_test where passuserid is null"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
on error resume next
rs.PageSize = 10
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
i=page+(page-1)*9
rs.AbsolutePage = Page
For iPage = 1 To rs.PageSize
%>
  <tr>
    <td align="center" bgcolor="#E1E1E1" height="20"><%=i%> </td>
    <td align="center"><%=rs("testid")%> </td>
    <td align="center"><%=rs("subject")%> </td>
    <td align="center"><%=formatdatetime(rs("starttime"),1)%>—<%=formatdatetime(rs("endtime"),1)%></td>
    <td align="center"><%=rs("setuserid")%> </td>
    <td align="center"><%=rs("passuserid")%> </td>
    <td align="center"><%=rs("settime")%> </td>
  </tr>
  <% 
rs.MoveNext
If rs.EOF Then Exit For
i=i+1
Next
%>
  <caption></caption>
</table>
<div ALIGN="right">
  <form ACTION="<%=Myself%>" METHOD="GET">
    <table>
      <tr>
        <td>
        <p ALIGN="right"><%If Page <> 1 Then ' 如果不是位于第一页%>
        <a href="<%=Myself%>?Page=1">第一页</a>
        <a HREF="<%=Myself%>?Page=<%=(Page-1)%>">上一页</a>
        <%                                      
End If                                         
If Page <> rs.PageCount Then ' 如果不是位于最后一页                                         
%> <a HREF="<%=Myself%>?Page=<%=(Page+1)%>">下一页</a>
        <a HREF="<%=Myself%>?Page=<%=rs.PageCount%>">最后一页</a> <% End If %>
        <font SIZE="2">输入页次:</font><input NAME="Page" SIZE="3" CLASS="s01">
        <font SIZE="2">页次:</font><font COLOR="Red" SIZE="2"><%=Page%>/<%=rs.PageCount%></font></p>
        <p> </td>
      </tr>
    </table>
  </form>
</div>
</body>
</html>

⌨️ 快捷键说明

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