admin_exercise_content_mylist.asp

《学校机房作业管理系统》采用ASP+Aceesss+ ServU构架

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% 
'=========================================================
' 学校机房作业管理系统 V 1.0 [创建于200812122100]
' 授权发布网站：清远ABC-http://www.qyabc.com/
' 客服QQ:418322257   E-Mail:[e-mail]
' 注意：如想得到关于本程序免费的技术支持，
' 必须承诺使用一周后，用平邮回寄“相关文件”文件夹中的“学校机房作业管理系统调查反馈表”表格。
' 作者博客：http://www.qyabc.com/u/qin/Default.aspx
'=========================================================
%>

<!--#include file="inc/config.asp" -->
<!--#include file="Connections/master.asp" -->
<% 
  Response.Expires = -1
  Response.ExpiresAbsolute = Now() - 1
  Response.cachecontrol = "no-cache"
 %>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="5,6,7"
MM_authFailedURL="login.asp?error=3"
MM_grantAccess=false
If session("QYABC_userid") <> "" Then
  If (false Or CStr(Session("MM_UserAuthorization"))="") Or _
         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<%
Dim exercise_content_list__MMColParam
exercise_content_list__MMColParam = "1"
If (session("QYABC_userid") <> "") Then 
  exercise_content_list__MMColParam = session("QYABC_userid")
End If
%>
<%
Dim pakongdoc__MMColParam'判断有没有选择类型
pakongdoc__MMColParam = "1"
If (Request.QueryString("id") <> "") Then 
  pakongdoc__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim exercise_content_list
Dim exercise_content_list_numRows

Set exercise_content_list = Server.CreateObject("ADODB.Recordset")
exercise_content_list.ActiveConnection = MM_master_STRING

If (Request.QueryString("id") <> "") Then '判断有没有选择文档类型
exercise_content_list.Source = "SELECT * FROM exercise_content WHERE teachernum = '" + Replace(exercise_content_list__MMColParam, "'", "''") + "' and subject_id = '" + Replace(pakongdoc__MMColParam, "'", "''") + "' ORDER BY add_time DESC"

else
exercise_content_list.Source = "SELECT * FROM exercise_content WHERE teachernum = '" + Replace(exercise_content_list__MMColParam, "'", "''") + "' ORDER BY add_time DESC"
end if


exercise_content_list.CursorType = 0
exercise_content_list.CursorLocation = 2
exercise_content_list.LockType = 1
exercise_content_list.Open()

exercise_content_list_numRows = 0
%>
<%
Dim sublist__MMColParam
sublist__MMColParam = "1"
If (session("QYABC_userid") <> "") Then 
  sublist__MMColParam = session("QYABC_userid")
End If
%>
<%
Dim sublist
Dim sublist_numRows

Set sublist = Server.CreateObject("ADODB.Recordset")
sublist.ActiveConnection = MM_master_STRING
sublist.Source = "SELECT subject_id, subject_name, teachernum FROM exercise_subject WHERE teachernum = '" + Replace(sublist__MMColParam, "'", "''") + "' ORDER BY subject_name ASC"
sublist.CursorType = 0
sublist.CursorLocation = 2
sublist.LockType = 1
sublist.Open()

sublist_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 12
Repeat1__index = 0
exercise_content_list_numRows = exercise_content_list_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = -1
Repeat2__index = 0
sublist_numRows = sublist_numRows + Repeat2__numRows
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim exercise_content_list_total
Dim exercise_content_list_first
Dim exercise_content_list_last

' set the record count
exercise_content_list_total = exercise_content_list.RecordCount

' set the number of rows displayed on this page
If (exercise_content_list_numRows < 0) Then
  exercise_content_list_numRows = exercise_content_list_total
Elseif (exercise_content_list_numRows = 0) Then
  exercise_content_list_numRows = 1
End If

' set the first and last displayed record
exercise_content_list_first = 1
exercise_content_list_last  = exercise_content_list_first + exercise_content_list_numRows - 1

' if we have the correct record count, check the other stats
If (exercise_content_list_total <> -1) Then
  If (exercise_content_list_first > exercise_content_list_total) Then
    exercise_content_list_first = exercise_content_list_total
  End If
  If (exercise_content_list_last > exercise_content_list_total) Then
    exercise_content_list_last = exercise_content_list_total
  End If
  If (exercise_content_list_numRows > exercise_content_list_total) Then
    exercise_content_list_numRows = exercise_content_list_total
  End If
End If
%>
<%
Dim MM_paramName 
%>
<%
' *** Move To Record and Go To Record: declare variables

Dim MM_rs
Dim MM_rsCount
Dim MM_size
Dim MM_uniqueCol
Dim MM_offset
Dim MM_atTotal
Dim MM_paramIsDefined

Dim MM_param
Dim MM_index

Set MM_rs    = exercise_content_list
MM_rsCount   = exercise_content_list_total
MM_size      = exercise_content_list_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
  MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter

if (Not MM_paramIsDefined And MM_rsCount <> 0) then

  ' use index parameter if defined, otherwise use offset parameter
  MM_param = Request.QueryString("index")
  If (MM_param = "") Then
    MM_param = Request.QueryString("offset")
  End If
  If (MM_param <> "") Then
    MM_offset = Int(MM_param)
  End If

  ' if we have a record count, check if we are past the end of the recordset
  If (MM_rsCount <> -1) Then
    If (MM_offset >= MM_rsCount Or MM_offset = -1) Then  ' past end or move last
      If ((MM_rsCount Mod MM_size) > 0) Then         ' last page not a full repeat region
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' move the cursor to the selected record
  MM_index = 0
  While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))
    MM_rs.MoveNext
    MM_index = MM_index + 1
  Wend
  If (MM_rs.EOF) Then 
    MM_offset = MM_index  ' set MM_offset to the last possible record
  End If

End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

  ' walk to the end of the display range for this page
  MM_index = MM_offset
  While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))
    MM_rs.MoveNext
    MM_index = MM_index + 1
  Wend

  ' if we walked off the end of the recordset, set MM_rsCount and MM_size
  If (MM_rs.EOF) Then
    MM_rsCount = MM_index
    If (MM_size < 0 Or MM_size > MM_rsCount) Then
      MM_size = MM_rsCount
    End If
  End If

  ' if we walked off the end, set the offset based on page size
  If (MM_rs.EOF And Not MM_paramIsDefined) Then
    If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
      If ((MM_rsCount Mod MM_size) > 0) Then
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' reset the cursor to the beginning