Dim db,ConnStr,DBPath
DBPath = "pic.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "&Server.MapPath(DBPath)
'当数据库设置过密码时用以下语句
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "& Server.MapPath(DBPath)
On Error Resume Next
Set db = Server.CreateObject("ADODB.Connection")
db.Open ConnStr
If Err Then
Err.Clear
Conn.Close
Set Conn = Nothing
Response.Write("数据库链接出错,请检查链接字符串。")
Response.End()
End If
dim rs,strsql
set rs=server.CreateObject("adodb.recordset")
strsql="select * from image"
rs.open strsql,db,1,2
rs.addnew
rs("FileName")=now()
rs("subdate")=now()
response.Write "djsadjf"
rs.update
对,就是插入字段.