dataconn.asp

在线教育

<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Response.Buffer = True
Dim Startime
dim ConnStr,conn
Startime = Timer()
Dim Db
'第一次使用请修改本处数据库地址并相应修改data目录中数据库名称，如将oblog2.mdb修改为oblog2.asp
Db = "../../data/conn2.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
'On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr

sub closeconn()
	conn.close
	set conn=nothing
end sub

If Err Then
	err.Clear
	Set Conn = Nothing
	Response.Write "数据库连接出错，请检查连接字串。"
	Response.End
End If
%>