exam_index.asp

数值计算方法网络课件系统是浙江大学过程装备与控制工程专业2001级本科生毕业设计成果。本系统采用ASP＋ACCESS架构

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/func.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="inc/sqlin.asp"-->

<%
'**************** 用户注册页面 *************
'* File: register.asp V1.0 2005.05.07
'* Author: wwxbei
'*******************************************

dim examTxt, txtL, txtR, strEdit, temp
dim i
txtL = FSOFileRead("html/exam_left.txt")
txtR = FSOFileRead("html/exam_index.txt")

Call DBConnBegin()
Sql="select * from notice where cupid=1 order by id desc"
Rs.Open Sql,conn,1,1
if Rs.BOF and RS.EOF then
	txtR = Replace(txtR, "{theHomeWorkList}", "暂时没有作业")
else
temp = ""
for i = 0 to 5
	strEdit = "<li><a href='notice.asp?id={theID}'>{theTitle}</a></li>"
	strEdit = Replace(strEdit,"{theID}",Rs("id"))
	strEdit = Replace(strEdit,"{theTitle}",Rs("title"))
	temp = temp & strEdit
	RS.movenext 
	if RS.eof then
		i = i + 1
		exit for
	End If
next
txtR = Replace(txtR, "{theHomeWorkList}", temp)
End if
Call DBConnEnd()

Call DBConnBegin()
Sql="select * from notice where cupid=2 order by id desc"
Rs.Open Sql,conn,1,1
if Rs.BOF and RS.EOF then
	txtR = Replace(txtR, "{theExampleList}", "暂时没有实例分析")
else
temp = ""
for i = 0 to 5
	strEdit = "<li><a href='notice.asp?id={theID}'>{theTitle}</a></li>"
	strEdit = Replace(strEdit,"{theID}",Rs("id"))
	strEdit = Replace(strEdit,"{theTitle}",Rs("title"))
	temp = temp & strEdit
	RS.movenext 
	if RS.eof then
		i = i + 1
		exit for
	End If
next
txtR = Replace(txtR, "{theExampleList}", temp)
end if
Call DBConnEnd()

examTxt = FSOFileRead("html/exam_common1.txt")
examTxt = replace(examTxt, "{theRightFrmContent}", txtR)
examTxt = replace(examTxt, "{theLeftFrmContent}", txtL)
Response.write examTxt


%>