今天晚上正式学习ASP特来求助!!!
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<%
dim conn
set conn =server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("source.mdb")
conn.open connstr
set rs = Server.CreateObject("ADODB.Recordset")
SQLstr = "select id from member where power =1 and login like'"&request("login")&"'and password like '"&request("password")&"'"
set rs = conn.Execute(SQLstr)
if rs.EOF = true then
session("Confirm") ="FAIL"
%>
<script language="javascript">
alert("帐号和密码输入错误请重新输入")
location.href = "index.htm"
</script>
<%
else
session("Confirm")="OK"
%>
<script language="javascript">
alert("登陆成功")
location.href("main.asp")
</script>
<%
end if
%>
</body>
</html>
--------------------------
错误提示
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp,行242
Microsoft JET Database Engine 错误 '80040e07'
标准表达式中数据类型不匹配。
/login.asp,行15
--------------------------
不知道那错了,那个兄弟棒下忙,我的数据库什么的验证了没错!