UC知道Microsoft VBScript 编译器错误 (0x800A03F6)缺少 'End' /MD5/chuli.asp, 第 31 行
来源：百度知道 编辑：UC知道 时间：2024/09/25 00:33:58
<!--#include file="conn.asp" -->
<!--#include file="md5.asp"-->
<%
bbsuser=trim(request.form("UserName"))
password=md5(request.form("Pass"))
str="select * from user where clubuser_name='"&bbsuser&"' and clubuser_password='"&password&"'"
set rs=server.createobject("adodb.recordset")
rs.open str,conn,3,1
if rs.eof then
response.write "<script language='javascript'>"
response.write "alert('用户名或密码错误，请重新登录！');"
response.write "history.go(-1);"
response.write "</script>"
response.end
else if Trim(Request.Form("validatecode"))=Empty Or Trim(Session("cnbruce.com_ValidateCode"))<>Trim(Request.Form("validatecode")) Then
response.write "<script language='javascript'>"
<!--#include file="md5.asp"-->
<%
bbsuser=trim(request.form("UserName"))
password=md5(request.form("Pass"))
str="select * from user where clubuser_name='"&bbsuser&"' and clubuser_password='"&password&"'"
set rs=server.createobject("adodb.recordset")
rs.open str,conn,3,1
if rs.eof then
response.write "<script language='javascript'>"
response.write "alert('用户名或密码错误，请重新登录！');"
response.write "history.go(-1);"
response.write "</script>"
response.end
else if Trim(Request.Form("validatecode"))=Empty Or Trim(Session("cnbruce.com_ValidateCode"))<>Trim(Request.Form("validatecode")) Then
response.write "<script language='javascript'>"
else if Trim(Request.Form("validatecode"))=Empty ...
改成
elseif Trim(Request.Form("validatecode"))=Empty ...
基本语法
IF ... Then
ElseIF ... Then
Else
End IF
先要关闭rs记录集才能关闭conn,将
<%
conn.close
%>
改写为
<%
rs.close
set rs =nothing
conn.close
%>
else if
中间不要空格
ElseIf