新手求助！为什么少了个end?! - ASP技术论坛

已结贴√ 问题点数：20 回复次数：5

新手求助！为什么少了个end?!

<body>
<table width="102%" height="446" border="0">
  <tr>
    <td width="27%" height="127"><img src="images/ST7.jpg" width="175" height="121" /></td>
    <td width="73%"><div align="right"><em><strong><span class="STYLE1">工业大学科研处欢迎您！</span></strong></em></div></td>
  </tr>

  <tr>
    <td><form id="form1" name="form1" method="post" action="">
      <p>用户名：
          <input name="username" type="text" size="18" />
    </p>
      <p>密码：
        <input name="password" type="password" size="18" />
      </p>
      <p>        
        <input type="submit" name="Submit" value="提交" />
        
      <input type="reset" name="Submit2" value="重置" />
      </p>
      <% if  rs.state=adstateopen  then
       rs.close
       %>
       <%
         set rs=server.CreateObject("adodb.recordset")
         rs.open "select * from users",conn,1,1
       %>
      <% dim username,pwd,permissions
         username = request.form("username")
         pwd = request.form("password")
         rs.Open "Select 用户名,密码 from users",Conn,1,1
         If rs("用户名") <> username Then
            Response.write "帐号错误!"
         ElseIf rs("密码") <> md5(pwd) Then
            Response.write "密码错误!"
         ElseIf rs("权限")<>"0" Then
            Response.Redirect("Index_qt.asp")
         Else
            Response.Redirect("Index_ht.asp")
            response.end

         end if
142行       rs.Close
       %>
    </form></td>
    <td style=""> </td>
  </tr>
</table>
</body>

错误类型：
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
/gxkyxm/login.asp, 第 142 行
这是怎么回事儿啊？！没发现少END啊？！！

而且<% if  rs.state=adstateopen  then
       rs.close
       %>
（不理解这句话）
这个删掉后会出现
错误类型：
ADODB.Recordset (0x800A0E79)
对象打开时，不允许操作。
/gxkyxm/login.asp, 第 128 行
这样的错误提示。

如果保留这句话。又在后面添加END IF又会出现这样的错误
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/gxkyxm/login.asp, 第 120 行

本人新手求各位大侠帮忙给解释一下。感激不尽

搜索更多相关主题的帖子: password　用户名　大学　工业　

第 2 楼

得分:0

拜托各位大侠了！！

第 3 楼

得分:0

你把报错行数的代码发上来，不然看不出来。
显示缺少end应该是你的if语句没有用end if结束

求上而得中，求中而得下。

第 4 楼

得分:0

回复 3楼 kangli_kl

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.



<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>工业大学欢迎您</title>
<style type="text/css">

</style></head>

<body>
<table width="102%" height="446" border="0">
  <tr>
    <td width="27%" height="127"><img src="images/ST7.jpg" width="175" height="121" /></td>
    <td width="73%"><div align="right"><em><strong><span class="STYLE1">工业大学科研处欢迎您！</span></strong></em></div></td>
  </tr>

  <tr>
    <td><form id="form1" name="form1" method="post" action="">
      <p>用户名：
          <input name="username" type="text" size="18" />
    </p>
      <p>密码：
        <input name="password" type="password" size="18" />
      </p>
      <p>        
        <input type="submit" name="Submit" value="提交" />
        
      <input type="reset" name="Submit2" value="重置" />
      </p>
      <% if  rs.state=adstateopen  then
       rs.close
       %>
       <%
         set rs=server.CreateObject("adodb.recordset")
         rs.open "select * from users",conn,1,1
       %>
      <% dim username,pwd,permissions
         username = request.form("username")
         pwd = request.form("password")
         rs.Open "Select 用户名,密码 from users",Conn,1,1
         If rs("用户名") <> username Then
            Response.write "帐号错误!"
         ElseIf rs("密码") <> md5(pwd) Then
            Response.write "密码错误!"
         ElseIf rs("权限")<>"0" Then
            Response.Redirect("Index_qt.asp")
         Else
            Response.Redirect("Index_ht.asp")
            response.end
        END IF
         end if
            rs.Close
       %>
    </form></td>
    <td style=""> </td>
  </tr>
</table>
</body>

</html>

麻烦你了

第 5 楼

得分:20

先说120行，在120行你用了rs.state,就是记录集的状态，但是在这之前你并没有创建rs这个对象，所以会报缺少对象，在后面的几行里你使用了两个rs.open，我没看明白是什么意思。

针对142行的错误我建议把那一堆if then elseif 语句够改写成写成一行的  if then 语句试试，我以前也遇到过这种问题，后来我把if then elseif 这个结构抛弃了，写成
  if ...  then ....
  if ...  then ....
  if ...  then ....
  ....

求上而得中，求中而得下。

第 6 楼

得分:0

回复 5楼 kangli_kl

谢谢你的耐心知道！！谢谢！！！我改改看！嘿嘿！！