ASP类的问题??

tianyinwolf · 2007-01-04

最近试着用ASP中的类写个数据库操作类，在调用的时候使用EXECUTE方法时程序不会提示错误信息，但是EXECUTE的语句却没有被执行，有时候又有被执行，不知道是怎么回事。

Class iron_dakai_sjk

Private strSource
Private strConnectionString

'获得数据库地址
'参数：数据库地址
'返回值：数据库地址（字符串）
Public Property Get Source()
Source = strSource
End Property
Public Property Let Source(ByVal strdbsource)
strSource = strdbsource
End Property

'获取数据库链接字符串
'参数：数据库链接字符
'返回值：数据库链接字符串
Public Property Get ConnectionString()
ConnectionString = strConnectionString
End Property
Public Property Let ConnectionString(ByVal StrdbConnectionString)
strConnectionString = StrdbConnectionString
End Property

'获得connection的对象
Public Property Get dx()
Set dx = Conn
End Property

'直接打开数据库
Public Function Connect()
On Error Resume Next

If Not isObject(Conn) Then
set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = ConnectionString
Conn.ConnectionTimeout = 15
Conn.Open
End If

If Err Then

if Not Conn Is Nothing Then
Response.Write "ADO 版本："& Conn.Version &"<br />"
if Conn.state = &H00000001 Then Conn.close
End If
Set Conn = Nothing

Response.Write (Err.Source &" - "& Err.Description)
Err.Clear()
Response.End()
End If

End Function

'关闭数据接口
Public Function DisConnect()
On Error Resume Next

If IsObject(Conn) Then
Conn.Close
Set Conn = Nothing
End If
End Function
END CLASS
点击展开...

调用该类：

dim addObj,Conn

Set addObj = New iron_dakai_sjk
addObj.Source = Server.Mappath(dbDirTemplete) 'dbDirTemplete为数据库地址字符串，以在文件头部包含；
addObj.Connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& addObj.Source
addObj.Connect

Conn = addObj.dx

'执行语句
sql = "Update message set is_re = true where bk_ID="& bkid 'bkid的值已经取得且可用；
Conn.execute(sql)

执行这条语句后，message表中的 is_re 字段并没有变为TRUE。其它的操作也一样，但是偶尔一两次执行插入语句又可以。
不知道这是为什么，请和位帮个忙。谢谢！

论坛

ASP类的问题??

tianyinwolf New Member

快捷检索

ASP类的问题??

tianyinwolf New Member