conn.asp

来自「邮件发送系统 sql与vb实现的 能完成在线的邮件发送与管理」· ASP 代码 · 共 21 行

<%	
	'数据库连接变量定义
	Dim conn
	
	'数据库连接
	Set conn = Server.CreateObject("ADODB.Connection") 
	'数据库连接字符串                         
  	conn.ConnectionString = "Provider=SQLOLEDB;Data Source=ylof;Initial Catalog=SMS;User ID=sa; PASSWORD=sa"
  	'打开数据库连接
	conn.Open
	
	'由程序处理错误，而不是缺省的由解释器处理错误
	If Err Then
		'发生错误，进行错误处理
		'释放数据库连接对象，并提示用户连接数据库出错
		Err.Clear
		Set conn = Nothing
		Response.Write "数据库连接出错，请检查连接字串。"
		Response.End
	End If
%>