📄 right.asp
字号:
<%
if session("user_type")<>"S" then
response.redirect "../../index.asp"
end if
%>
<!--#INCLUDE FILE="../../system/odbc_connection.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<title>重要公告</title>
<link rel="stylesheet" type="text/css" href="../../system/right.css">
</head>
<body topmargin="0" leftmargin="0" bgcolor="#CCFFFF">
<center>
<p> 
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width='90%'>
<tr align="center"><td><font color=#FFFFFF>重要公告</font></td></tr>
<tr>
<td height="110" valign="middle" style="background-color:#ffffff">
<ul>
<%
Dim sql,rs
sql="select top 3 title,id from news where type='TZ' order by id desc"
set rs=db.Execute(sql)
Do while not rs.Eof
%>
<li><a href="#" onClick="open('news/particular.ASP?id=<%=rs("id")%>','','resizable=0,scrollbars=1,status=no,toolbar=no,location=no,menu=no,width=500,height=300,left=150,top=150')"><%=rs("title")%></a></li>
<%
rs.MoveNext
Loop
%>
</ul>
<p align="left" >  <a href="news/index.asp" target=middle><<更多</a></p>
</td>
</tr>
</table>
<br>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width='90%'>
<tr align="center"><td><font color=#FFFFFF>作业提示</font></td></tr>
<tr>
<td style="background-color:#ffffff" height="110" valign="middle">
<ul>
<li>
<%
'函数，计算未交作业数，该程序计算已交的数目
private function count_submit()
sql="select count(*) as temp_number from homework_answer,homework where homework_answer.user_id='" & session("user_id") & "'"
sql=sql & " and homework_answer.homework_id=homework.homework_id"
sql= sql & " and homework.open_flag=1"
sql=sql & " and homework.homework_type='H'"
sql=sql & " and homework.lesson_id='" & session("lesson_id") & "'"
set rs2=db.execute(sql)
count_submit = rs2("temp_number")
rs2.close
set rs2=nothing
end function
'函数，计算总作业数
private function count_all()
sql="select count(*) as temp_number from homework where homework_type='H' and open_flag=1 and lesson_id='" & session("lesson_id") & "'"
set rs2=db.execute(sql)
count_all=rs2("temp_number")
rs2.close
set rs2=nothing
end function
Dim temp_number
temp_number=count_all()-count_submit()
If temp_number<0 then
response.write "未交作业<b> " & 0 & " </b>个"
else
response.write "未交作业<b> " & temp_number & " </b>个"
end if
%>
</li>
</ul>
</td>
</tr>
</table>
</center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -