oconn.asp

轩圆学生信息管理系统 081029修正了成绩数据浏览时查看单个学生成绩时总分排名显示表格问题。 //===============================================

<%
Dim oConn
If Not IsObject(oConn) Then Call DBConnBegin()

Sub DBConnBegin()
	If IsObject(oConn) Then Exit Sub
	Dim  dbFilePath,dbFileName
	dbFileName = DBP
	dbFilePath = Server.MapPath(dbFileName)

	Set oConn = Server.CreateObject("ADODB.Connection")
	On Error Resume Next
	oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbFilePath
	If Err Then
		Err.Clear
		Response.Write "数据库连接错误！！"
		Response.End
		'Call ShowErrs()
	End If
End Sub

Sub CloseConn()
	on error resume next
	if isobject(MyPage) then
		set MyPage = Nothing
	end if 
	if Isobject(objrs) then
		objrs.close()
		set objrs = nothing
	end if 
	If IsObject(oConn) Then
		oConn.Close
		Set oConn = Nothing
	End If
	if err then err.clear
End Sub
%>