conn.asp

邮件发送系统 sql与vb实现的 能完成在线的邮件发送与管理

<%	
	'数据库连接变量定义
	Dim conn
	
	'初始化数据库连接
	DB="./database/SMS.mdb"
	Set conn = Server.CreateObject("ADODB.Connection")                          
	conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
	'打开数据库连接
	conn.Open
	
	'由程序处理错误，而不是缺省的由解释器处理错误
	If Err Then
		'发生错误，进行错误处理
		'释放数据库连接对象，并提示用户连接数据库出错
		Err.Clear
		Set conn = Nothing
		Response.Write "数据库连接出错，请检查连接字串。"
		Response.End
	End If
	
	'关闭数据库连接，并释放数据库连接对象
	Sub EndConnection
		conn.close
		Set conn=Nothing
	End Sub	
%>