|
#2
tianyu1232007-12-28 11:53
自己看看错误在哪
|
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<p>
<% xm=request.Form("yhm")
mm=request.Form("mm")
if xm="" or mm="" then
%>
<script language="vbscript">
alert("你输入的信息不完整")
history.back
</script>
<% response.End()
end if
set conn=server.createobject("adodb.connection")
a= server.mappath(" denglu.mdb")
conn.open"Provider=Microsoft.jet.oledb.4.0;Data Source="&a
sql="select * form denglu where yhm='"&xm&"' and mm='"&mm&"'"
set rs=conn.execute(sq1)
if rs.eof then
%>
<script language="vbscript">
alert("您还没有注册！")
history.back
</script>
<%
else
response.write "欢迎您的登录,您的个人信息如下"
%>
</p>
<p>用户名：
<% response.Write xm %>
</p>
<p>密码：
<%
end if
response.Write mm %>
<p><a href="liuyan1.asp">进入留言板</a>
</a>
<p>
</body>
</html>
错误类型：
Microsoft JET Database Engine (0x80040E0C)
没有为命令对象设置命令。
/hanzhu3366/登陆框/denglu1.asp, 第 29 行→set rs=conn.execute(sq1)
