<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2009 佛山市动易网络科技有限公司 版权所有
'**************************************************************

Dim Conn_Sdms
Call OpenSdmsConn
Sub OpenSdmsConn()
    'On Error Resume Next
    Dim ConnStr
	ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../SDMS/Sdms.mdb")

    Set Conn_Sdms = Server.CreateObject("ADODB.Connection")
    Conn_Sdms.open ConnStr
    If Err Then
        Err.Clear
        Set Conn_Sdms = Nothing
        Response.Write "数据库连接出错，请检查StudentConn.asp文件中的数据库参数设置。"
        Response.End
    End If
End Sub

Sub CloseSdmsConn()
    On Error Resume Next
    If IsObject(Conn_Sdms) Then
        Conn_Sdms.Close
        Set Conn_Sdms = Nothing
    End If
End Sub
%>