vbscript_conn.asp

来自「flash如何连接后台的数据库开发」· ASP 代码 · 共 46 行

<%	
	''数据库连接变量定义
'	Dim conn , DB
'	
'	'数据库连接
'	Set conn = Server.CreateObject("ADODB.Connection") 
'	'数据库连接字符串                         
'  	conn.ConnectionString = "Provider=SQLOLEDB;Data Source=LSX;Initial Catalog=SEARCH;User ID=sa; PASSWORD=sa123"
'  	'打开数据库连接
'	conn.Open
	
	
	'__________________________________________
	'数据库连接变量定义
   
	'初始化数据库连接

	Set conn = Server.CreateObject("ADODB.Connection")                          
	conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/flashDB.mdb")
	'打开数据库连接
	conn.Open
	
	'由程序处理错误，而不是缺省的由解释器处理错误
	If Err Then
		'发生错误，进行错误处理
		'释放数据库连接对象，并提示用户连接数据库出错
		Err.Clear
		Set conn = Nothing
		Response.Write "数据库连接出错，请检查连接字串。"
		Response.End
	End If
	
	
'******************可以在客户端测试conn.asp是否链接上了！*********************
  ' dim objcmd,arr
'   set objcmd=server.CreateObject("ADODB.Command")
'   objcmd.ActiveConnection=conn
'   arr=split(objcmd.ActiveConnection,";")
'   response.Write("Command对象所述连接的信息：<br>")
'   response.write("提供者:"&arr(0)&"<br>")
'   response.write("数据库："&arr(3)&"<br>")
'   response.write("恭喜你，出现以上信息说明，你的数据库已经连接成功,conn.asp的页面 100% 没有错误 ！！！   ^_^   ")
 '****************************************************************************  
	
	
%>