为什么调用logincheck.asp文件会出错，恳请高手帮忙解决思路
日期：2014-05-17 浏览次数：20944 次
为什么调用logincheck.asp文件会出错，恳请高手帮忙
大家好，本人是新手，正在学习用ACCESS+ASP制作网站。代码都是网上下载的教程里面的，按照教程我跟着做了一遍，当我输入http://192.168.1.4/login.asp时，就会显示登陆界面。配置IIS时，物理路径D:\website\ProcessControl\login,login文件夹内有login.asp文件。如果物理路径不带login文件夹，网页显示的登陆界面是目录结构的形式，所以配置IIS，我延伸到了login文件夹。当我输入用户名，密码和提示码点击登录的时候，就会出错，不能进入已经定义好的界面。我用的数据库是access2010，但是数据库文件是我以前用2003做成的，不知道有没有影响。
恳请高手帮忙看一下，谢谢了。
错误信息如下:
Microsoft VBScript 运行时错误 错误 '800a01b6'
对象不支持此属性或方法: 'Server.CreatObject'
/logincheck.asp，行 19
======================================================================================================
loginchek.asp代码如下：
<html>
<head>
<title>公司</title>
</head>
<!--#include file="../include/conn.asp" -->
<!--#include file="md5.asp" -->
<body>
<%
'获取用户提交的验证码
code=trim(request("checkcode"))
if code<>trim(Session("ProcessControl/login.com_ValidateCode")) then %>
<script language="javascript">
alert("请输入正确的验证码！");
location.href="javascript:history.go(-l);" ;
</script>
<% end if
%>
<%'查询数据库中adminname为用户所输入的用户名的所有信息
set rs=Server.CreatObject("ADODB.Recordset")
sql="Select * Form admin Where adminname='"&user&"'"
rs.open sql,conn,1,3
'检查输入的用户名是否存在，不存在，给出提示信息，并使页面后退
if rs.bof and rs.eof then%>
<script language='javascript'>
alert("错误：此用户名不存在！");
location.href=”javascript：history.go(-1);";
</script>
<%else
'检查输入的密码是否正确，不正确，给出提示信息，并使页面后退
if md5(pwd)<>rs("adminpwd") then%>
<script language="javascript">
alert("错误：您的密码不正确！");
location.href=”javascript：history.go(-1);";
</script>
<%'用户名和密码都正确，将页面跳转到brand.asp
else%>
<script language="javascript">
window.navigate("../web/brand.asp");
</script>
<%end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>
========================================================================
conn文件代码如下：
<%
dim conn,DbPath
set conn=Server.CreateObject("ADODB.Connection")
DbPath=Server.MapPath("../classdata/class.mdb")
Conn.open "provider=Microsoft.Jet.OLEDB.4.0;data source="&DbPath
%>
------解决方案--------------------
sql="Select * Form [admin] Where adminname='"&user&"'"
改成
sql="Select * From [admin] Where adminname='"&user&"'"
------解决方案--------------------
这2句实现相同的功能，2个都写就重复了
大家好，本人是新手，正在学习用ACCESS+ASP制作网站。代码都是网上下载的教程里面的，按照教程我跟着做了一遍，当我输入http://192.168.1.4/login.asp时，就会显示登陆界面。配置IIS时，物理路径D:\website\ProcessControl\login,login文件夹内有login.asp文件。如果物理路径不带login文件夹，网页显示的登陆界面是目录结构的形式，所以配置IIS，我延伸到了login文件夹。当我输入用户名，密码和提示码点击登录的时候，就会出错，不能进入已经定义好的界面。我用的数据库是access2010，但是数据库文件是我以前用2003做成的，不知道有没有影响。
恳请高手帮忙看一下，谢谢了。
错误信息如下:
Microsoft VBScript 运行时错误 错误 '800a01b6'
对象不支持此属性或方法: 'Server.CreatObject'
/logincheck.asp，行 19
======================================================================================================
loginchek.asp代码如下：
<html>
<head>
<title>公司</title>
</head>
<!--#include file="../include/conn.asp" -->
<!--#include file="md5.asp" -->
<body>
<%
'获取用户提交的验证码
code=trim(request("checkcode"))
if code<>trim(Session("ProcessControl/login.com_ValidateCode")) then %>
<script language="javascript">
alert("请输入正确的验证码！");
location.href="javascript:history.go(-l);" ;
</script>
<% end if
%>
<%'查询数据库中adminname为用户所输入的用户名的所有信息
set rs=Server.CreatObject("ADODB.Recordset")
sql="Select * Form admin Where adminname='"&user&"'"
rs.open sql,conn,1,3
'检查输入的用户名是否存在，不存在，给出提示信息，并使页面后退
if rs.bof and rs.eof then%>
<script language='javascript'>
alert("错误：此用户名不存在！");
location.href=”javascript：history.go(-1);";
</script>
<%else
'检查输入的密码是否正确，不正确，给出提示信息，并使页面后退
if md5(pwd)<>rs("adminpwd") then%>
<script language="javascript">
alert("错误：您的密码不正确！");
location.href=”javascript：history.go(-1);";
</script>
<%'用户名和密码都正确，将页面跳转到brand.asp
else%>
<script language="javascript">
window.navigate("../web/brand.asp");
</script>
<%end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>
========================================================================
conn文件代码如下：
<%
dim conn,DbPath
set conn=Server.CreateObject("ADODB.Connection")
DbPath=Server.MapPath("../classdata/class.mdb")
Conn.open "provider=Microsoft.Jet.OLEDB.4.0;data source="&DbPath
%>
------解决方案--------------------
sql="Select * Form [admin] Where adminname='"&user&"'"
改成
sql="Select * From [admin] Where adminname='"&user&"'"
------解决方案--------------------
这2句实现相同的功能，2个都写就重复了
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
