<%
'==================================
'=FILE NAME：LOGIN.ASP
'=USE：to login
'=author:David-yeah
'==================================
%>
<!--#include file="conn.asp"-->
<%
dim loginname,loginpass
loginname=request.form("name")
loginpass=request.form("pass")
sql="select * from userlogin where user_name='"&loginname&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write"<li>没有此用户！"
elseif loginpass<>rs("login_password") then
response.write"<li>用户密码不正确！"
elseif DateDiff("h",rs("last_time"),now())<1 and Request.ServerVariables("REMOTE_ADDR")=rs("last_ip") then
response.write"<li>对不起，您现在无法登陆……"
else
dim old_time,old_ip
old_time=rs("last_time")
old_ip=rs("last_ip")
rs("last_time")=now()
rs("last_ip")=Request.ServerVariables("REMOTE_ADDR")
rs.update
session("user_data")=loginname&"||"&old_time&"||"&old_ip
session("userlogins")=havelogin
session.timeout=60
'记录登录情况
response.redirect"indhex.asp"
end if
%>
为什么运行的结果老是 没有此用户 啊 我数据库里明明有这个用户啊33
參考答案:sql="select * from userlogin where user_name="&loginname
