sql="update UserInfor set DisRows='" & rows & "',TitleLength='" & titlelength &"',DisAuthor='"& displaystyle &"',TextWidth='"& textwidth &"' where UserID='" & user_ID &"'"
Response.Write(sql)
con.Execute(sql)
这里是update的,
OpenDB函数为
Sub OpenDB (ByRef con)
strPhysicalPath = Server.Mappath(".")
strDBName = "db.mdb"
Set con = Server.CreateObject("ADODB.Connection")
con.Open "DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;UserCommitSync=Yes;Threads=3;SafeTransactions=0;PageTimeout=5;MaxScanRows=8;MaxBufferSize=2048;FIL=MS Access;DriverId=25;DefaultDir=" & strPhysicalPath & ";DBQ=" & strPhysicalPath & "\" & strDBName
End Sub