写入数据库的ASP程序,!!
代码如下:
<%
dim taisu,p1,p2,p3,p4,p5
dim p6,p7,p8,p9,p10,jh
taisu=request.form("taisu")
jh=request.form("jh")
p1=request.form("p1")
p2=request.form("p2")
p3=request.form("p3")
p4=request.form("p4")
p5=request.form("p5")
p6=request.form("p6")
p7=request.form("p7")
p8=request.form("p8")
p9=request.form("p9")
p10=request.form("p10")
set conn=server.createobject("adodb.connection")
conn.provider="microsoft.jet.oledb.4.0"
conn.open"F:\My Web Sites\ch4\db1.mdb"
strsql1="insert into 订货信息(taisu,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,jh)"
strsql=strsql1&"values('"&taisu&"','"&p1&"','"&p2&"','"&p3&"','"&p4&"','"&p5&"','"&p6&"','"&p7&"','"&p8&"','"&p9&"','"&p10&"','"&jh&"')"
conn.execute strsql
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect"更多.htm"
%>
我之前这个程序是可以运行的,可是重装系统以后就不行了!!!
dim taisu,p1,p2,p3,p4,p5
dim p6,p7,p8,p9,p10,jh
taisu=request.form("taisu")
jh=request.form("jh")
p1=request.form("p1")
p2=request.form("p2")
p3=request.form("p3")
p4=request.form("p4")
p5=request.form("p5")
p6=request.form("p6")
p7=request.form("p7")
p8=request.form("p8")
p9=request.form("p9")
p10=request.form("p10")
set conn=server.createobject("adodb.connection")
conn.provider="microsoft.jet.oledb.4.0"
conn.open"F:\My Web Sites\ch4\db1.mdb"
strsql1="insert into 订货信息(taisu,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,jh)"
strsql=strsql1&"values('"&taisu&"','"&p1&"','"&p2&"','"&p3&"','"&p4&"','"&p5&"','"&p6&"','"&p7&"','"&p8&"','"&p9&"','"&p10&"','"&jh&"')"
conn.execute strsql
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect"更多.htm"
%>
我之前这个程序是可以运行的,可是重装系统以后就不行了!!!
运行后就出现~~~~错误类型:
Microsoft JET Database Engine (0x80004005)
操作必须使用一个可更新的查询。
/web/luru.asp, 第 21 行
Microsoft JET Database Engine (0x80004005)
操作必须使用一个可更新的查询。
/web/luru.asp, 第 21 行
第21行是 conn.execute strsql
我感觉可能是什么功能设置的有问题或者是少装了东西。如果不涉及到数据库的ASP程序可以执行,可是连接到数据库的ASP就不行了。