写有个插入的吗?
好吧
<%
dim db,conn,connstr
db="#chenhao1000hqit.asp"
'数据库名
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
'断开连接
sub close_conn()
conn.close
set conn=nothing
end sub
'添加新记录
Function Add_Pic()
sql="select * from 表名"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("site")=request("site")
rs("pic")=request("pic")
rs("jian")=request("jian")
rs.update
response.write "<script language=javascript>alert('演示添加图片成功!');</script>"
Call close_conn()
End Function
就这样拉