ASP代码编译出错

来源：百度知道 编辑：UC知道 时间：2024/05/05 14:13:13
错误信息
请尝试执行下列操作：

单击刷新按钮，或稍后重试。

打开 localhost 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

--------------------------------------------------------------------------------

技术信息（用于支持人员）

错误类型：
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
/query1.asp, 第 42 行

<!--#include file="conn.asp"-->
<%
dim c,d,rel,a,b,m,id
c="涨"
d="跌"
rel=request.QueryString("rel")
a=request.QueryString("pionts")
id=request.QueryString("id")
if rel="update" then
set rs=rsfun("select pionts from gupiao where id="&id,1)
b=rs("pionts")
m=a-b
set rs=rsfun("update gupiao set pionts='"&a&"' where id="&id,3)
set rs=rsfun("update gupiao set oldpionts='"&b&"' where

if rel="update" then
set rs=rsfun("select pionts from gupiao where id="&id,1)
b=rs("pionts")
m=a-b
set rs=rsfun("update gupiao set pionts='"&a&"' where id="&id,3)
set rs=rsfun("update gupiao set oldpionts='"&b&"' where id="&id,3)
if m>0 then
set rs=rsfun("update gupiao set wave='"&c and m&"' where id="&id,3)
elseif m=0 then
set re=rsfun("update gupiao set wave='"-"' where id"&id,3)
elseif m<0 then
set re=rsfun("update gupiao set wave='"&d and m&"' where id"&id,3)
end if
response.Write("<script language='javascript'>alert('保存成功

');window.document.location.href='Defult.asp'</script>")
end if

elseif 不能分开