Question

怎么总是提示缺少语句？？？？？？？

无法显示网页
试图访问的网页出现问题，无法显示。

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

请尝试执行下列操作：

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

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

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

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

错误类型：
Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/user_mark.asp, line 40
end if

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; MAXTHON 2.0)

网页：
POST 37 ??? /user_mark.asp

POST Data:
user=zhu&xinyu=1&Submit3=%CC%E1%BD%BB

时间：
2007年5月4日, 上午 12:57:32

详细信息：
Microsoft 支持
<!--#include file="Conn.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="inc/bloginfo.asp"-->

<% dim sql,rs,ql

dim xinyu,user
xinyu=request("xinyu")
user=request("user")

set rs=server.createobject("adodb.recordset")
sql="select mark from [user] where username='"&user&"' "

rs.open sql,Conn,1,3

if(xinyu=1) then
rs("mark")=rs("mark")+2
rs.update
rs.close
set rs=nothing
else if(xinyu=2) then
rs("mark")=rs("mark")-10
rs.update
rs.close
set rs=nothing
end if
end if
set rs=server.createobject("adodb.recordset")
ql="select lockuser from [user] where username='"&user&"' "
rs.open ql,Conn,1,3
if(rs("mark")<0) then rs("lockuser")=true
rs.update
rs.close
end if

%>

Answer 1

'xxpniu - 正解 给你改的 更明白点
<!--#include file="Conn.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="inc/bloginfo.asp"-->

<% dim sql,rs,ql

dim xinyu,user
xinyu=request("xinyu")
user=request("user")

set rs=server.createobject("adodb.recordset")
sql="select mark from [user] where username='"&user&"' "

rs.open sql,Conn,1,3

if(xinyu=1) then
rs("mark")=rs("mark")+2
rs.update
rs.close
set rs=nothing
else if(xinyu=2) then '这里改为 elseif(xinyu=2) then
rs("mark")=rs("mark")-10
rs.update
rs.close
set rs=nothing
end if
end if '这里 去掉 end if
set rs=server.createobject("adodb.recordset")
ql="select lockuser from [user] where username='"&user&"' "
rs.open ql,Conn,1,3
if(rs("mark")<0) then rs("lockuser")=true
'这里改为(非必要但是最好注意格式) if(rs("mark")<0) then
'rs("lockuser")=true
rs.update
rs.close
end if

%>

Answer 2

你的语句书写不太规范。

多写了一个end if, 并且在VBScript中if语句嵌套格式为：
If 条件1 then
语句体1
Elseif 条件2 then
语句体2
.
.
Elseif 条件n then
语句体n
Else
语句体n+1
End if

即elseif 中间不能空格，且if后不带括号。

另外你的最后4句的if语句写法也不规范。

通常为：
if 条件 then
语句体
end if

或当if中只执行一条语句时写为：

if 条件 then 一条语句

Answer 3

end if
end if
多了个