<%
dim username
dim password
username=request.Form("nametext")
password=request.Form("pwtext")
dim conn
dim rs
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("usermanager.mdb")
rs.open "select * from userlogin where username="&username&" and password="&password&"",conn,1,1
if rs.bof=true then
session("statu")="ok"
%>
<script language="vbscript">
alert("登陆成功")
location.href="index.html"
</script>
<% else %>
<script language="vbscript">
alert("不存在此用户!!!")
location.href="index.html"
</script>
<% end if
conn.close
rs.close
set conn=nothing
set rs=nothing
%>
提示是:
Microsoft JET Database Engine 错误 '80040e10'
至少一个参数没有被指定值。
/asp/login.asp,行19