Session_OnEnd 中保存数据的问题
Sub Session_OnEnd
Dim MM_test_STRING
Dim mminfo
MM_test_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("test.mdb")
Set mminfo = Server.CreateObject("ADODB.Recordset")
mminfo.ActiveConnection = MM_test_STRING
mminfo.Source = "SELECT * FROM MMemberInfo"
mminfo.CursorType = 0
mminfo.CursorLocation = 2
mminfo.LockType = 3
mminfo.Open()
mminfo.Fields.Item("userpassword").Value=session("userpassword")
mminfo.update()
mminfo.Close()
Set mminfo = Nothing
End Sub
写数据到数据库中失败,实在不明白了
请教各位