login_check.asp

北京商务网

<%@ Language=VBScript codepage ="936" %>
<%
Response.Expires=true
Response.Buffer = true 
%>
<!--#include file="../conn/dbconn1.asp" -->
<%
dim UserId,Password
dim rs,sql
UserId=Request.Form("UserId")
Password=Request.Form("Password")
sql="select * from Manage_User where Username='" & UserId & "' and PassWord='" & Password & "'"
set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
If rs.EOF or rs.bof Then
   response.write"<SCRIPT language=JavaScript>alert('您输入的用户名和密码不正确。');"
   response.write"this.location.href='javascript:history.back();'</SCRIPT>" 
   rs.close
   set rs=nothing
else 
%>
<%
session("username")=rs("username")
session("password")=rs("password")
session("LastLogin")=rs("LastLogin")
session("flag")=rs("flag")
session("del")=rs("del")
session.timeout=45
conn.execute("update Manage_user set LastLogin=Now(),LastLoginIP='"&Request.ServerVariables("REMOTE_ADDR")&"' where username='"&uid&"'")
rs.close
set rs=nothing
response.redirect "default.asp"
end if
%>