<% Dim tableName,strSQL,rsFields,fieldsCount,totalCount Dim insertSQL,iFields,iDataFields,updateSQL,deleteSQL Dim keyFieldName,funQuote Dim conn dim dbPath ''''SQL SERVER 连接字符串 ''''conn.Open("Driver={sql server};server=sundy;database=test;uid=sa;pwd=;") Set conn = Server.CreateObject("ADODB.Connection") ''''下面以Access数据库为例 dbconn = "driver={Microsoft Access Driver (*.mdb)};dbq=" & SERVER.MapPath("data/db.mdb") conn.open dbconn