<% sub OpenDatabase(conn) IsSqlData = 0 '定义数据库类别，0为Access数据库，1为SQL数据库 if IsSqlData = 0 then 'Access数据库 Datapath = "data/" '数据库目录的相对路径 Datafile = "data.mdb" '数据库的文件名 Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(""&Datapath&""&Datafile&"") Connstr = "DBQ="&server.mappath(""&Datapath&""&Datafile&"")&";DRIVER={Microsoft Access Driver (*.mdb)};" else 'SQL数据库 SqlLocalName = "(local)" '连接IP [ 本地用 (local) 外地用IP ] SqlUsername = "sa" '用户名 SqlPassword = "1" '用户密码 SqlDatabaseName = "data" '数据库名 Connstr = "Provider=Sqloledb;User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";" end if on error resume next set Conn = Server.createobject("ADODB.Connection") Conn.open Connstr if err then err.clear set Conn = nothing Response.write "数据库连接出错，请检查连接字串。" Response.end end if on error goto 0end sub
%>
用的时候 改下里面的 相应设置
然后 在需要的地方
<%call OpenDatabase(conn)%>
更新数据 有2种方式 一是ado 的recordset对象的 update方法
set rs = server.createobject("adodb.recordset")
sqlstr = "sql语句"
rs.open sqlstr, conn, 1, 3
rs.update'更新记录集
二是 直接 sql更新
conn.execute("UPDATE [表名] SET [字段一] = '" & 值一 & "', [字段二] = '" & 值二 & "' where id=自己设置")
