sqldb.asp

来自「Sql数据库的应用」· ASP 代码 · 共 63 行

<!--#include file="adovbs.inc"-->
<%
'类名：DBConn
'功能：完成与SQL数据库的连接
Class DBConn	
	'Conn为数据连接池，Rs为数据集，Cmmd为连接命令
	'Conn为数据库连接配置，其中的SERVER为服务器网络名
	'UID为数据库用户名，PWD为用户密码
	'DataBase为数据库实例，可根据实际情况更改
	Private Conn,ConnStr
	Public Rs,Cmmd
	
	'功能：打开数据库连接
	Private Sub OpenConn()
		Set Conn = Server.CreateObject("ADODB.Connection")	
		Set Rs = Server.CreateObject("ADODB.Recordset")
		Set Cmmd = Server.CreateObject("ADODB.Command")		
		ConnStr  = "DRIVER={SQL Server};SERVER=crazy;UID=admin;PWD=123;DataBase=score"
		Conn.Open ConnStr				
	End Sub 
	
	'功能：关闭数据库连接		
	Public Sub CloseConn()
		If Conn <> null then
			Conn.Close()
			Rs.Close()
			Set Conn = Nothing
			Set Rs = Nothing
			Set Cmmd = Nothing 
		End If
	End Sub	
	
	'功能：创建一个SqlCommand对象以此来执行存储过程	
	'参数：procName存储过程的名称(ByVal表procName变量在过程中不能修改)
	'      Parameter传入的参数数组(ByRef表变量可在过程中修改)
	'返回值：将返回的值放入记录集Rs中
	Public Sub CreateCommandProc(Byval procName, ByRef Parameter)
		
		'确认打开连接
		OpenConn()	 	
		Set Cmmd = Parameter
		Set Cmmd.ActiveConnection = Conn		
		Cmmd.CommandType = adCmdStoredProc
		Cmmd.CommandText = procName		
		
		'执行存储过程
		Set Rs = Cmmd.Execute()		
	End Sub
	
	'功能：直接执行一个SQL语句	
	'参数：strSQL为SQL语句
	'返回值：将返回的值放入记录集Rs中
	Public Sub runSQL(Byval strSQL)
		
		'确认打开连接
		OpenConn()	
		Set Rs.ActiveConnection = Conn		
		Rs.Open strSQL,Conn,adOpenKeyset
	
	End Sub
End Class%>