求助 Microsoft VBScript 编译器错误 '800a03ea' 语法错误
Microsoft VBScript 编译器错误 '800a03ea' 语法错误
\taobao\myww.asp, line 67
<%
keeper=Replace(Trim(Request.Form("keeper")),"'","''")
action=Replace(Trim(Request.Form("action")),"'","''")
if action="ok" then
if Replace(Trim(request("code")),"'","''")<>czm then
Response.Write("<script>alert('操作码错误!');window.location.href='myww.asp';</script>")
response.End()
end if
Sql = "select count(*) as yu from "&jieducm&"_keeper where username='"&session("useridname")&"' and class=1"
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.Open Sql,conn,1,1
IF not(Rs.Eof) Then
coun=rs("yu")
end if
if jifei<2000 and coun>=2 then
Response.Write("<script>alert('2000积分以下,最多可绑定2个店铺!');window.location.href='myww.asp';</script>")
response.End()
elseif jifei>2000 and jifei<5000 and coun>=4 then
Response.Write("<script>alert('2000-5000积分,最多可绑定4个店铺!');window.location.href='myww.asp';</script>")
response.End()
elseif jifei>5000 and jifei<8000 and coun>=8 then
Response.Write("<script>alert('5000-8000积分,最多可绑定8个店铺!');window.location.href='myww.asp';</script>")
response.End()
elseif jifei>9000 and coun>=10 then
Response.Write("<script>alert('9000积分以上,最多可绑定10个店铺!');window.location.href='myww.asp';</script>")
response.End()
end if
Set rs=server.createobject("ADODB.RECORDSET")
rs.open "Select * From "&jieducm&"_keeper where keeper='"&keeper&"'" ,Conn,3,3
if rs.eof then
rs.addnew
rs("username")=session("useridname")
rs("keeper")=keeper
rs("now")=now()
rs("class")=1
rs.update
rs.close
Response.Write("<script>alert('绑定成功!');window.location.href='myww.asp';</script>")
response.End()
else
Response.Write("<script>alert('此帐号已被其它用户绑定!');history.back();</script>")
response.End()
end if
end if
elseif action="del" then
id=request.QueryString("id")
Set rs=server.createobject("ADODB.RECORDSET")
rs.open "delete from "&jieducm&"_keeper where id="&id&" and username='"&session("useridname")&"'",conn,3,3
rs.close
Response.Write("<script>window.location.href='MyWw.asp';</script>")
response.End()
end if
%>
这段代码是我添加的
elseif action="del" then '问题出在这一行。求大神教教吧
id=request.QueryString("id")
Set rs=server.createobject("ADODB.RECORDSET")
rs.open "delete from "&jieducm&"_keeper where id="&id&" and username='"&session("useridname")&"'",conn,3,3
rs.close
Response.Write("<script>window.location.href='MyWw.asp';</script>")
response.End()
end if