📄 exercise_show.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'=========================================================
' 学校机房作业管理系统 V 1.0 [创建于200812122100]
' 授权发布网站：清远ABC-http://www.qyabc.com/
' 客服QQ:418322257 E-Mail:qystu@163.com
' 注意：如想得到关于本程序免费的技术支持，
' 必须承诺使用一周后，用平邮回寄“相关文件”文件夹中的“学校机房作业管理系统调查反馈表”表格。
' 作者博客：http://www.qyabc.com/u/qin/Default.aspx
'=========================================================
%>
<!--#include file="inc/config.asp" -->
<!--#include file="Connections/master.asp" -->
<%
Dim exshow__MMColParam
exshow__MMColParam = "1"
If (Request.QueryString("id") <> "") Then
exshow__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim exshow
Dim exshow_numRows
Set exshow = Server.CreateObject("ADODB.Recordset")
exshow.ActiveConnection = MM_master_STRING
exshow.Source = "SELECT * FROM exercise_content WHERE content_id = " + Replace(exshow__MMColParam, "'", "''") + ""
exshow.CursorType = 0
exshow.CursorLocation = 2
exshow.LockType = 1
exshow.Open()
exshow_numRows = 0
%>
<%
Dim teacherlist__MMColParam
teacherlist__MMColParam = "教师"
If (Request("MM_EmptyValue") <> "") Then
teacherlist__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim teacherlist
Dim teacherlist_numRows
Set teacherlist = Server.CreateObject("ADODB.Recordset")
teacherlist.ActiveConnection = MM_master_STRING
teacherlist.Source = "SELECT studentnum, studentname,userid FROM userinfo WHERE usersort = '" + Replace(teacherlist__MMColParam, "'", "''") + "' and Authority='5' ORDER BY studentnum DESC"
teacherlist.CursorType = 0
teacherlist.CursorLocation = 2
teacherlist.LockType = 1
teacherlist.Open()
teacherlist_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
teacherlist_numRows = teacherlist_numRows + Repeat1__numRows
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=(exshow.Fields.Item("content_title").Value)%>-<%=WebName%></title>
<link rel="SHORTCUT ICON" href="favicon.ico"/>
<link href="<%= SysCss %>" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="16%" valign="top"><table width="97%" border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF" class="asatxt">
<tr>
<td> </td>
</tr>
<tr>
<td align="center"><a href="exercise_teacher.asp">按教师分类</a></td>
</tr>
<tr>
<td align="center"><%
While ((Repeat1__numRows <> 0) AND (NOT teacherlist.EOF))
%>
<a href="exercise_list.asp?userid=<%=(teacherlist.Fields.Item("userid").Value)%>"><%=(teacherlist.Fields.Item("studentname").Value)%></a><br>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
teacherlist.MoveNext()
Wend
%></td>
</tr>
<tr>
<td align="center"><a href="admin_exercise_content_add.asp"></a><a href="admin_news_add.asp"></a></td>
</tr>
<tr>
<td align="center"><a href="admin_exercise_content_mylist.asp"></a><a href="admin_news_add.asp"></a></td>
</tr>
<tr>
<td align="center"><a href="admin_news_add.asp"></a></td>
</tr>
</table></td>
<td width="84%" valign="top"><table width="770" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#99ccff">
<tr>
<td colspan="5"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="780" height="48">
<param name="movie" value="images/plan_head.swf">
<param name="quality" value="high">
<embed src="images/plan_head.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="780" height="48"></embed>
</object></td>
</tr>
<tr>
<td width="78"><strong>作业标题：</strong></td>
<td width="390"><%=(exshow.Fields.Item("content_title").Value)%></td>
<td width="76"><strong>发布时间：</strong></td>
<td width="164" colspan="2"><%=(exshow.Fields.Item("add_time").Value)%></td>
</tr>
<tr width="60" onmouseout="javascript:this.bgColor='#ffffff'" onMouseOver="javascript:this.bgColor='#C1E0FF'">
<td colspan="5" valign="top" bgcolor="#FFFFFF"><%=(exshow.Fields.Item("content").Value)%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="5" align="right">发布人：<a href="user_info_show.asp?userid=<%=(exshow.Fields.Item("teachernum").Value)%>" target="_blank"><%=(exshow.Fields.Item("teachername").Value)%></a></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="inc/bot.asp" -->
</body>
</html>
<%
exshow.Close()
Set exshow = Nothing
%>
<%
teacherlist.Close()
Set teacherlist = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -