<!-- #include file="adovbs.inc" -->
<%
Dim objConn
Function GetRecordset(FileName, TableName)
'使用Connection对象打开数据库文件
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath(FileName)
objConn.Open
'从数据表中读取记录并存放在Recordset对象中
Set GetRecordset = Server.CreateObject("ADODB.Recordset")
GetRecordset.Open TableName, objConn, adOpenKeyset, adLockOptimistic, adCmdTable
End Function
Function GetSQLRecordset(strSQL, FileName, TableName)
'使用Connection对象打开数据库文件
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath(FileName)
objConn.Open
'从数据表中读取符合SQL语句的记录并存放在Recordset对象中
Set GetSQLRecordset = Server.CreateObject("ADODB.Recordset")
GetSQLRecordset.Open strSQL, objConn, adOpenKeyset, adLockOptimistic, adCmdText
End Function
Function GetSecureRecordset(FileName, TableName, Password)
'使用Connection对象打开数据库文件
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath(FileName) & _
";Jet OLEDB:Database Password=" & Password
objConn.Open
'从数据表中读取记录并存放在Recordset对象中
Set GetSecureRecordset = Server.CreateObject("ADODB.Recordset")
GetSecureRecordset.Open TableName, objConn, adOpenKeyset, adLockOptimistic, adCmdTable
End Function
%>
这是光盘上面的定义好的可以添加新闻删除新闻就是不能更亲
这个程序表面来看因该是没有错误，问题是每个函数没有析构或释放变量。
所以上面几个函数不能在一个页面同时执行两次或一个页面同时执行不同的函数，因为这样就会出错。
