login.asp

来自「一套石油公司内部的运营管理系统」· ASP 代码 · 共 20 行

<!--#include virtual="/include/DBCon.inc"-->
<%
	userid = request.form("userid")
	password = request.form("passwd")
	
	SQL = "select * from oil.oil_user where user_id='" &userid& "' and user_password='" &password& "'"
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	Rs.Open SQL, conn

	if not Rs.EOF then
		session("oil.user_id") = Rs("user_id")
		session("oil.user_name") = Rs("user_name")
		session("oil.user_priv") = Rs("user_priv")
		session("oil.menuId")=""
		response.redirect "/function/main.asp"
	else
		Response.Redirect "/profile/errorpage_b.asp?title=登录&msg=用户名或密码错误，请重新登录。"
	end if
%>
<!--#include virtual="/include/DBClose.inc"-->