📄 news.asp

📁 一套在线考试系统
💻 ASP
字号:
<!--#include file="conn.asp"--><%
Dim sql1
Dim rs1
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>在线考试系统</title>
<link rel="stylesheet" type="text/css" href="../DEFAULT.CSS">
<base target="_self">
<script language="JavaScript1.2" src="../js/lock.js"></script>
</head>

<body oncontextmenu="self.event.returnValue=false"  bgcolor="#FFFFFF">

<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
  <tr>
    <td width="100%" height="20" style="border-left-style: solid; border-left-width: 0; border-right-style: solid; border-right-width: 0; border-top-style: solid; border-top-width: 0; border-bottom: 1px solid #000000">
    <img border="0" src="../images/NEWS.GIF"></td>
  </tr>
  <%
sql="select * from exam_news where havepass=1 order by posttime desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,1
do while not rs.eof
'if rs("youxq")>=datediff("d",rs("posttime"),date()) then
%>
  <tr>
    <td width="100%" height="25" style="height: 6"></td>
  </tr>
  <tr>
    <td width="100%" height="25"><img border="0" src="../images/bluebullet.gif">
    <a href="viewnews.asp?newsid=<%=rs("newsid")%>"><%=rs("title")%></a> [<%=formatdatetime(rs("posttime"),1)%>]
    <%
    if (date()-rs("posttime"))<3 then
    %> <img border="0" src="../images/NEW.GIF"> <%
    end if
    %> </td>
  </tr>
  <% 
'end if
rs.movenext
loop %>
</table>
<%
if instr(request.cookies("myspower"),"L")<>0 then
rs.close
sql="select * from waitforpass where havepass=0 and passuserid='"& request.cookies("myuserid")&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,1
if not rs.eof then
%>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
  <tr>
    <td width="100%" style="border-left-style: solid; border-left-width: 0; border-right-style: solid; border-right-width: 0; border-top-style: solid; border-top-width: 0; border-bottom: 1px solid #000000">　</td>
  </tr>
  <%
do while not rs.eof
%>
  <tr>
    <td width="100%" height="30"><img border="0" src="../images/BLUE.GIF"> 有一项<font color="#ff0000"><%=rs("objname")%></font>需要您审批。[<a href="passit.asp?id=<%=rs("id")%>&objid=<%=rs("objid")%>">现在审批</a>]</td>
  </tr>
  <%
rs.movenext
loop
%>
</table>
<%
end if
end if
%>
<%
if instr(request.cookies("spower"),"L")<>0 then
rs.close
sql="select * from waitforpass where havepass=0"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,1
if not rs.eof then
%>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
  <tr>
    <td width="100%" style="border-left-style: solid; border-left-width: 0; border-right-style: solid; border-right-width: 0; border-top-style: solid; border-top-width: 0; border-bottom: 1px solid #000000">　</td>
  </tr>
  <%
do while not rs.eof
%>
  <tr>
    <td width="100%" height="30"><img border="0" src="../images/BLUE.GIF"> 有一项<font color="#ff0000"><%=rs("objname")%></font>[编号：<%=rs("objid")%>]没有通过审批。[<a href="unpassit.asp?id=<%=rs("id")%>&objname=<%=rs("objname")%>&objid=<%=rs("objid")%>">作废</a>]</td>
  </tr>
  <%
rs.movenext
loop
%>
</table>
<%
end if
end if
%>

</body>

</html>
⌨️ 快捷键说明

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