courseview.asp

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

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

<%
dim examTxt,txtR,temp,flashStr
	examTxt = FSOFileRead("html/exam_common.txt")

temp="<table><tr><td>标题：</td><td>{theTitle}</td><td>所属章节：</td><td>{theChapter}</td></tr><tr><td>加入时间：</td><td>{theDay}</td><td>点击次数：</td><td>{theHits}</td></tr><tr><td>备注：</td><td colspan=2>{theDescribe}</td></tr><tr><td>下载地址：</td><td colspan=2><a href={theFileurl}>点击下载</a></td></tr></table><br>"
txtR = "<div id='content1'><h4>查看课件</h4>"


Call DBConnBegin()
sql="select * from courseware where id="&Trim(Request.QueryString("id"))
rs.open sql,conn,1,1
if Rs.BOF and RS.EOF then
	GoError "错误的参数！"
	response.End
else
	Conn.Execute("update courseware set hits=hits+1 where id="&Trim(Request.QueryString("id")))
	temp = replace(temp,"{theTitle}", rs("title"))
	temp = replace(temp,"{theChapter}", rs("chapter"))
	temp = replace(temp,"{theDay}", rs("theday"))
	temp = replace(temp,"{theHits}", rs("hits"))
	temp = replace(temp,"{theDescribe}", rs("describe"))
	temp = replace(temp,"{theFileurl}", rs("fileurl"))

	Select Case trim(rs("filetype"))
	Case "FLASH"
		flashStr= FSOFileRead("html/flash.txt")
		flashStr=replace(flashStr,"{theFileurl}",rs("fileurl"))
		txtR= txtR & temp & flashStr
	Case "CCODE"
		Dim csource
		csource = FSOFileRead(rs("fileurl"))
		txtR= txtR & temp & "<textarea cols=80 rows=30>"& csource &"</textarea>"
	Case Else
		txtR= txtR & temp
	End Select
end if

examTxt = replace(examTxt, "{theRightFrmContent}", txtR&"<p/></div>")

Response.write examTxt

%>