'<% 'Set Conn=Server.CreatObject("ADODB.Connection") 'Conn.Open "bbs" '%> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>无标题文档</title> <style type="text/css"> <!-- a:link { text-decoration: none; } a:visited { text-decoration: none; } a:hover { text-decoration: none; } a:active { text-decoration: none; } --> </style></head>
<body> <%
Set Conn=Server.CreatObject("ADODB.Connection") cons="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("bbs.mdb") Conn.Open cons
LogonSytle=Request("LogonSytle") If LogonSytle="登录"Then sql="SELECT*FROM ever-user WHERE UID='"& Request("UID")&"'" '注意'和" Set LogUsers=conn.Execute(sql) If LogUsers.Bof OR LogUsers.Eof Then Response.Write"请检查是否输错密码，登录失败。<br>" Else If Request("PWD")<>LogUsers("PWD")Then Response.Write"密码错误，请检查大，小写。<br>" Else Response.Redirect "bbs.asp" End If End If End If %>
<form action="" method="post"> <div align="center"><strong><h1> </h1> <h1>华庆实业有限公司BBS</h1> </strong> <p>用户名： <input type="text" name="UID" value="<%=Request("UID") %>"> </p> <p>密 码： <input type="password" name="PWD"> </p> <p> <input type="submit" name="LogonSytle" value="登录" > </p> <hr> <p>第一次造访的朋友<a href="registe.asp" target="_blank">请点击这里注册</a> </p> <strong></strong></div> </form> </body> </html>
IE提示错误
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft VBScript 运行时错误
对象不支持此属性或方法: 'CreatObject'
/blue/login.asp，行4
怎么修改啊?
[此贴子已经被regedit于2004-12-18 17:15:31编辑过]
