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

crazypigandy

来　自：内蒙古
等　级：新手上路
帖　子：18
专家分：0
注　册：2011-5-10
结帖率：100%

楼主

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

新手求助！为什么少了个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　用户名　大学　工业　

2011-05-10 20:54

crazypigandy

来　自：内蒙古
等　级：新手上路
帖　子：18
专家分：0
注　册：2011-5-10

第 3 楼

得分: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>

麻烦你了

2011-05-11 08:41