一个简单,但还没解决的问题,关于sql的?

Question

检查一下你的conn.asp<%@LANGUAGE="VBSCRIPT"%>
<%
option explicit
dim startime,endtime,conn,connstr,db
startime=timer()
'&#65400;&#12539;&#65412;&#65418;&#63729;&#65406;&#65437;&#65407;篥錥&#65430;
db="data/dvbbs6.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'&#65416;郢鈺羞&#65412;&#65399;&#63730;&#65422;&#65417;&#65427;&#65411;&#65405;&#65423;&#65408;&#65423;&#65392;豎&#65406;Access&#65415;&#63729;&#65398;&#65391;&#65379;&#65388;&#65415;&#12539;&#65411;&#65423;&#65410;&#65411;戝&#65388;&#65405;&#65427;&#65399;&#65405;&#65399;&#65384;
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%>

Answer 1

sql1是什么？!<!--include file="conn.asp"-->
<%
dim sql
sql="delete from duty"
conn.execute sql
%>

Answer 2

<!--include file="conn.asp"-->
<%
dim sql
sql="delete from duty"
conn=server.createobject("adodb.connection")
conn.open 在conn.asp中的数据库连接字符串
conn.execute sql1
%>

Answer 3

Faint~~~居然有乱码。
用下面的。<%@LANGUAGE="VBSCRIPT"%>
<%
option explicit
dim startime,endtime,conn,connstr,db
startime=timer()db="data/dvbbs6.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%>

Answer 4

conn.execute sql1
改为
conn.execute(sql)

Answer 5

<!--include file="conn.asp"-->
<%
dim sql
sql="delete from duty"
conn.execute sql
%>

Answer 6

数据库里的内容:
<%
dim conn,connstr
Set conn=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/#massage.mdb")
conn.Open connstr
%>
Microsoft VBScript 运行时错误 错误 '800a01a8' 缺少对象: '' /1/update.asp，行 5
<!--include file="conn.asp"-->
<%
dim sql
sql="delete from duty"
conn.execute sql
%>
无论我怎么改,它都提示   缺少对象: '' 为什么呢?

Answer 7

try:
<%
dim conn,connstr
Set conn=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/massage.mdb")
conn.Open connstr
dim sql
sql="DELETE FROM duty"
conn.EXECUTE(sql)
%>

Answer 8

try:
<%
dim conn,connstr
Set conn=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/massage.mdb")
conn.Open connstr
dim sql
sql="DELETE FROM duty"
conn.EXECUTE(sql)
%>