语句错在哪里？

Question

<% if request.form("sub)"="sub" then
   admin=trim(reuest.form("admin"))
   admin=replace(admin,"'","")
   pwd=trim(reqest.form("pwd"))
   pwd=replace(pwd,"'","") 
   if admin="" or pwd="" then
    response.redirect("login.asp")
else
 Set Rs=Server.CreateObject("ADODB.Recordset")
 sql="select * from admin where admin='"&admin&"' and pwd='"&pwd&"'"
 rs.open sql,conn,1,1
  if not rs.eof then
   if session("admin")="admin123"
    response.redirect("addkc.asp")
   else
     session("admin")="user456"
 response.redirect("addxs.asp")
end if 
  else
    response.redirect("login.asp") 
end if
response.End()
end if      
 %>

Answer 1

admin=admin.replace("'","") 是这样吧!!

Answer 2

错误类型：
Microsoft VBScript 编译器错误 (0x800A03EE)
缺少 ')'
/login.asp, line 2, column 29
if request.form("sub)"="sub" then
----------------------------^

Answer 3

if request.form("sub)"="sub" then 
==>
if request.form("sub")="sub" then 

Answer 4

引号放里面去if request.form("sub")="sub" then 

Answer 5

谢谢，还是有问题
<% if request.form("sub")="sub" then
   admin=trim(reuest.form("admin"))
   admin=replace(admin,"'","")
   pwd=trim(reqest.form("pwd"))
   pwd=replace(pwd,"'","") 
   if admin="" or pwd="" then
    response.redirect("login.asp")
else
 Set Rs=Server.CreateObject("ADODB.Recordset")
 sql="select * from admin where admin='"&admin&"' and pwd='"&pwd&"'"
 rs.open sql,conn,1,1
  if not rs.eof then
   if session("admin")="admin123" then
    response.redirect("addkc.asp")
   else
     session("admin")="user456"
 response.redirect("addxs.asp")
end if 
  else
    response.redirect("login.asp") 
end if
response.End()
end if      
 %>错误类型：
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
/login.asp, 第 24 行

Answer 6

if request.form("sub)"="sub" then 
  admin=trim(reuest.form("admin")) 
  admin=replace(admin,"'","") 
  pwd=trim(reqest.form("pwd")) 
  pwd=replace(pwd,"'","") END两个都得补上END

Answer 7

最后 一个end if 下面加end
<% if request.form("sub")="sub" then 
  admin=trim(reuest.form("admin")) 
  admin=replace(admin,"'","") 
  pwd=trim(reqest.form("pwd")) 
  pwd=replace(pwd,"'","") 
  if admin="" or pwd="" then 
    response.redirect("login.asp") 
else 
Set Rs=Server.CreateObject("ADODB.Recordset") 
sql="select * from admin where admin='"&admin&"' and pwd='"&pwd&"'" 
rs.open sql,conn,1,1 
  if not rs.eof then 
  if session("admin")="admin123" then 
    response.redirect("addkc.asp") 
  else 
    session("admin")="user456" 
response.redirect("addxs.asp") 
end if 
  else 
    response.redirect("login.asp") 
end if 
response.End() 
end if 
end    
%> 

Answer 8

有end if 的地方就有 end 这个仿佛是VB的语法吧

Answer 9

有3个end if  刚才没看清楚 都加上

Answer 10

这样就不会有错了
<% if request.form("sub")="sub" then 
      admin=trim(reuest.form("admin")) 
      admin=replace(admin,"'","") 
      pwd=trim(reqest.form("pwd")) 
      pwd=replace(pwd,"'","") 
      if admin="" or pwd="" then 
        response.redirect("login.asp") 
      end if
   else 
      Set Rs=Server.CreateObject("ADODB.Recordset") 
      sql="select * from admin where admin='"&admin&"' and pwd='"&pwd&"'" 
      rs.open sql,conn,1,1 
      if not rs.eof then 
         if session("admin")="admin123" then 
            response.redirect("addkc.asp") 
         else 
            session("admin")="user456" 
            response.redirect("addxs.asp") 
         end if 
      else 
        response.redirect("login.asp")  
      end if 
      response.End() 
   end if   
%>