我做了一个更新数据库的代码,代码如下:
<%
dim id
id=request.QueryString("id")
dim db,connstr
connstr= "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("Database\SiteContentData\Content.mdb")
set db = server.createobject("adodb.connection")
db.open connstr
dim strsql,rs
strsql="select * from tupian where id="& id""
set rs=db.execute(strsql)
%>
<div align="center">
<p>更新信息
</p>
<form name="form1" method="post" action="">
<p>图片信息:
<input type="text" name="textfield"value="<%=rs("info")%>">
</p>
<p>图片路径:
<input name="textfield" type="text" value="<%=rs("pic")%>">
</p>
<p>
<input type="submit" name="Submit" value="确定">
</p>
</form>
</div>
<%
if request("info")<>""and request("pic")<>"" then
info=request("info")
pic=request("pic")
strsql="update tupian set info='"& info &"'pic='"& pic &"'where di="& id
db.execute(strsql)
response.Redirect"aaa.asp"
else
response.Write"请将所有信息填写完整。"
end if
%>
当我运行的时候IE提示说"错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/system/aaa2.asp, line 20, column 43
strsql="select * from tupian where id="& id""
这是 什么原因呀,我没有找出错来呀,请各位帮忙看看呀! 谢谢各位了 !
