日期:2014-05-17 浏览次数:21032 次
<%
response.buffer=true '启用缓冲处理
dim conn,db
dim connstr
db="database/test.mdb"'数据库链接路径
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查数据库连接文件中的数据库参数设置。"
Response.End
End If
id=1
conntent="测试数据"
sql="insert into newtable(ID,Content) values('"&id&"','"&conntent&"')"
conn.Execute(sql)
%>