<% Dim conn,rs,sql Set conn=Server.CreateObject('ADODB.Connection') Conn.Open 'myodbc' Response.Write (Server.MapPath('/mdb/webdata.mdf') & '
') Response.Write ('数据库连接成功:' & conn.state & '
') Set rs=Server.CreateObject('ADODB.RecordSet') sql='Insert into users(ID,muser,mage,msalary)Values(1,'王丽',25,3000)' Response.Write('插入成功!'&'
') Conn.Close Set conn=Nothing %>