if Name<>"" and Password <> "" then
SQLStr = "SELECT [id],[IP],[loginTime] FROM [User] WHERE Name='"&Name&"' AND [Password]='"&Password&"'"
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open SQLStr,Conn,3,1
if Rs.Bof and Rs.Eof then
Response.write "Error"
else
if Rs("IP") = GetIP() AND DateDiff("d",Nwo(),Rs("LoginTime")) < 1 then
'不符合加分要求
else
'加分
end if
end if
Rs.Close
Set Rs = Nothing
end if