📄 content.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<!--#include file = "inc/conn.asp" -->
<!--#include file = "CheckLogin.asp" -->
<!--#include file = "inc/zhuru.asp" -->
<%
Dim strID
strID = Session("TeachingSujectID")
If strID = "" Then
Response.Write("参数错误!")
Response.End
End If
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
body {
background-color: #B1DB99;
}
-->
</style></head>
<%
Dim rs ,strSql ,Num ,pageNum ,page ,loopNum
strSql = "SELECT * FROM StudyMaterial WHERE TeachingSujectID = " & strID
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSql,conn,1,1
%>
<body topmargin="0" leftmargin="5">
<%
If rs.recordcount > 0 Then
rs.pagesize = 14
Num = rs.recordcount
pageNum = rs.pagecount
page = Request.QueryString("page")
If page <> "" Then
page = Cint(page)
ElseIf page < 1 Then
page = 1
Else
page =1
End If
If page < 1 then
page =1
End If
If page*rs.pagesize >Num and Not ((page-1)*rs.pagesize <Num) Then
page = 1
End If
rs.absolutepage = page
If page <> pageNum Then
LoopNum = rs.pagesize
Else
LoopNum = Num - (page-1)*rs.pagesize
End If
%>
<%
Dim rs1 ,strSql1 ,strSujectName
If rs("TeachingSujectID") <> "" Then
Set rs1 = Server.CreateObject("ADODB.RecordSet")
strSql1 = "SELECT * FROM Suject WHERE ID IN (SELECT SujectID FROM TeachingSuject WHERE ID = "& rs("TeachingSujectID") &")"
rs1.open strSql1,conn,1,1
If Not rs1.EOF Then
strSujectName = rs1("Name").value
Else
strSujectName = ""
End If
rs1.close
Set rs1 = Nothing
Else
strSujectName = ""
End If
%>
<%
Dim strTeacherName
If rs("TeachingSujectID") <> "" Then
Set rs1 = Server.CreateObject("ADODB.RecordSet")
strSql1 = "SELECT * FROM Teacher WHERE ID IN (SELECT TeacherID FROM TeachingSuject WHERE ID = "& rs("TeachingSujectID") &")"
rs1.open strSql1,conn,1,1
If Not rs1.EOF Then
strTeacherName = rs1("Name").value
Else
strTeacherName = ""
End If
rs1.close
Set rs1 = Nothing
Else
strTeacherName = ""
End If
%>
<table width="458">
<tr>
<td colspan="8" bgcolor="#336600" height="2"></td>
</tr>
<tr>
<td colspan="8" background="images/liebiao.gif" > 课程:<a href="DetailSuject.asp?Name=<%=strSujectName%>" target="_parent"><%=strSujectName%></a> 教师:<a href="DetailTeacher.asp?Name=<%=strTeacherName%>" target="_parent"><%=strTeacherName%></a>
<%If Session("UserType") = "教师" Then %>
<a href="upload/index.htm">添加课程资料</a>
<%End If%>
<%If Session("UserType") = "学生" And strTeacherName <> "" Then %>
<a href="Add_Msg.asp?ManTo=<%=strTeacherName%>" target="_parent">给<%=strTeacherName%>发短信息</a>
<%End If%></td>
</tr>
<tr>
<td colspan="8" background="images/Down_bg.gif" ><div align="center">总共找到<%=Num%>条记录 <a href="Content.asp?page=1">首页</a> <a href="Content.asp?page=<%=page-1%>">上一页</a> <a href="Content.asp?page=<%=page+1%>">下一页</a> <a href="Content.asp?page=<%=pageNum%>">尾页</a> 页次:<%=page%>/<%=pagenum%> 共<%=pageNum%>页</div></td>
</tr>
<tr bgcolor="#009933">
<td width="39"> </td>
<td width="247">资料名</td>
<td width="51">下载</td>
<%
If Session("UserType") = "教师" Then
%>
<td width="50">删除</td>
<%
End If
%>
</tr>
<% For i = 1 to LoopNum %>
<tr bgcolor="#FFFFFF" onMouseOver="this.style.backgroundColor='#FFFFCC'" onMouseOut="this.style.backgroundColor='#FFFFFF'">
<td align="center"><img src="images/dot2.gif" width="10" height="8" /></td>
<%
Dim strPath
strPath = "upload/files/" & rs("path")
%>
<td><a href="<%=strPath%>"><%=rs("Name").value%></a></td>
<td><a href="<%=strPath%>">下载</a></td>
<%
If Session("UserType") = "教师" Then
%>
<td><a href="DelSContent.asp?ID=<%=rs("ID").value%>&File=<%=rs("path")%>" onclick='return confirm("您确定要删除此资料吗？")'><img src="images/del.gif" alt="删除" width="20" height="20" border="0" /></a></td>
<%
End If
%>
</tr>
<% rs.movenext
Next %>
<tr>
<td colspan="8" background="images/Down_bg.gif"><div align="center">总共找到<%=Num%>条记录 <a href="Content.asp?page=1">首页</a> <a href="Content.asp?page=<%=page-1%>">上一页</a> <a href="Content.asp?page=<%=page+1%>">下一页</a> <a href="Content.asp?page=<%=pageNum%>">尾页</a> 页次:<%=page%>/<%=pagenum%> 共<%=pageNum%>页</div></td>
</tr>
</table>
<%
Else
%>
<table width="454">
<tr>
<td colspan="4" background="images/Down_bg.gif" bgcolor="#FFFFFF"> <div align="center">
<%If Session("UserType") = "教师" Then %>
<a href="upload/index.htm">添加课程资料</a>
<%End If%>
</div></td>
</tr>
<tr bgcolor="#009933">
<td width="36"> </td>
<td width="220">资料名</td>
<td width="43">下载</td>
<%
If Session("UserType") = "教师" Then
%>
<td width="59">删除</td>
<%
End If
%>
</tr>
<tr>
<td colspan="4" bgcolor="#FFFFFF">没有相关记录！</td>
</tr>
</table>
<%
End If
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -