在asp后台运行一个添加产品的功能,报错如下:
Microsoft JET Database Engine '80040e14'
INSERT INTO 语句的语法错误。
\wwwroot\safe\product_class.asp, line 179
找到该处代码如下:
<%
end if
rsm.movenext
i=i+1
wend
response.write("</table>")
rsm.close
set rsm=nothing
end function
'删除节点
function delclass(classid)
Dim rsm
set rsm=conn.execute("select classid from cnk_ProductClass where upclassid="&classid)
while not rsm.eof
delclass rsm("classid")
rsm.movenext
wend
conn.execute("delete from cnk_ProductClass where classid="&classid)
conn.execute("delete from cnk_products where classid="&classid)
end function
'保存节点
function saveclass()
Dim rsm,classid,upclassid,paixu,classname,image,ChildCount,url
action=request.Form("action")
classid=request.Form("classid")
upclassid=request.Form("upclassid")
paixu=request.Form("paixu")
classname=request.Form("classname")
classname_en=request.Form("classname_en")
image=request.Form("image")
select case action
case "edit"
ChildCount=conn.execute("select count(*) from cnk_ProductClass where upclassid="&classid)(0)
if ChildCount>0 then url=""
conn.execute("update cnk_ProductClass set upclassid="&upclassid&",paixu="&paixu&",classname='"&classname&"',classname_en='"&classname_en&"',[image]='"&image&"' where classid="&classid)
case "add"
'conn.execute("update cnk_ProductClass set url='' where classid="&upclassid)
179行——————————————————————在下
conn.execute("insert into cnk_ProductClass (upclassid,paixu,classname,classname_en,[image]) values ("&upclassid&","&paixu&",'"&classname&"','"&classname_en&"','"&image&"')")
end select
end function
'添加节点
function addclass()
dim classid,upclassid
classid=request.QueryString("classid")
if classid="" then classid=0
action="add"
classform 0,classid,action
end function
'修改节点
function editclass()
dim classid,upclassid
classid=request.QueryString("classid")
upclassid=request.QueryString("upclassid")
action="edit"
classform classid,upclassid,action
end function
'菜单表单
function classform(classid,upclassid,action)
Dim rsm,classname,image,paixu
if action="edit" then
set rsm=conn.execute("select * from cnk_ProductClass where classid="&classid)
paixu=rsm("paixu")
classname=rsm("classname")
classname_en=rsm("classname_en")
image=rsm("image")
end if
if paixu="" then paixu=0
%>
如果不够详细,请留下邮箱我把整个源代码发过去,帮忙给调试一下,同时提高悬赏,等待高人前来