错误类型：
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
/asp/班级主页系统(新)/post.asp, 第 31 行



<%@language="vbscript"%>
<% Option Explicit %>
<% 
<!--#include file="ADOFUNCTIONS.ASP"-->
function login(userid,userpassword)
   dim sql
   sql="select userid from user where userid='" & (userid) & "'"
   dim objrs
   set objrs=opensql(sql,"jsjdb","user")
   if  objrs.bof then
           if uspassword=objrs("userpassword") then
           login=true
           end if
   else 
   login=false
   end if
   objrs.close
    set objrs=nothing
   objconn.close
   set objconn=nothing
 %>
 <%    
         userid=request("userid") 
        userpassword=request("userpassword")
           if login(userid,userpassword)=true then
            response.redirect "index.asp"
            session("userid")=userid
            session("username")=objrs("username")
        else
            response.redirect "wrong.html"
        end if    
%>