dbconn.asp

ASP+sql 组成的系统．功能强大

<!--#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=wzgl"
		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
	
End Class

'dim dbc_Class
'Set dbc_Class = New DBConn 
%>