login.asp

来自「数据库 ODBC注册文件 数据库MeetingManage 本案例S」· ASP 代码 · 共 27 行

<!--#include file="include/common.inc"-->
<%

	dim adoRS
	dim strQuery
	dim username
	dim passwd
	username = "" & Trim(request.Form("name"))
	passwd = "" & Trim(request.Form("passwd"))
	strQuery="select * from userinfo where userid='" & username & "'" 
	set adoRS=server.createobject("ADODB.Recordset")
	adoRS.Open strQuery, getConnection(), , , adCmdText
	if adoRS.EOF then
		closeConnection
		response.Redirect  "err.asp?err=无此用户"
		response.End()
	elseif passwd <> "" & adoRS("passwd") then
		closeConnection
		response.Redirect  "err.asp?err=密码错误"
		response.End()
	else
		session("user") = adoRS("userid")
		session("userrank") = adoRS("purview")
		response.redirect "index.htm"
	end if
	closeConnection
%>