| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1011 人关注过本帖
标题:求助 Microsoft VBScript 编译器错误 '800a03ea' 语法错误
只看楼主 加入收藏
warst
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2011-4-16
结帖率:0
收藏
已结贴  问题点数:20 回复次数:5 
求助 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
搜索更多相关主题的帖子: taobao 编译器 where 
2011-04-16 12:36
warst
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2011-4-16
收藏
得分:0 
大神啊。出来教教吧
2011-04-16 12:53
dzt0001
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:蒙面侠
威 望:5
帖 子:1281
专家分:4998
注 册:2005-10-12
收藏
得分:10 
把elseif action="del" then这句前面那句end if删除

----我怎能在别人的苦难面前转过脸去----
2011-04-16 13:28
ywyql_84
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:54
专家分:180
注 册:2011-4-4
收藏
得分:10 
确实是多了个end if
2011-04-16 22:00
warst
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2011-4-16
收藏
得分:0 
删除了那个END  但是我现在点删除,刷新一下就是一样的了
2011-04-18 10:40
warst
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2011-4-16
收藏
得分:0 
我这个表在查询分离器里面不能改  。不知道怎么办。别的都行
2011-04-18 10:48
快速回复:求助 Microsoft VBScript 编译器错误 '800a03ea' 语法错误
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.033981 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved