login.asp

ASP+SQL Server动态网站开发从基础到实践教程

<!--#include file="config.asp" -->

<%
varTime = now()
varUsername = request("txtUsername")
varPassword = request("txtPassword")
varRoom = request("sltRoom")

'检查用户登录权限
call openDB

varSQL = "SELECT * FROM USERS WHERE Username = '" & varUsername & "' AND PASSWORD = '" & varPassword & "';"
rs.Open varSQL, conn
 '如果用户名和密码错误，则返回登录页面
if rs.EOF then
	response.redirect "home.asp?Error=badcomb" 
else  '初始化session变量
	session.contents("UserID") = rs("UserID")
	session.contents("Username") = varUsername
	session.contents("Loggedon") = "Yes"
	session.contents("Status") = "LoggingIn"
	varMSGTime = FormatDateTime(varTime, 4)
	session.contents("LastRoom") = varMSGTime 'so we can see when the last time changed room so only display things from that time
	'
	session.Contents("RoomID") = varRoom
	call closeDB
	'更新用户信息
	call writeDB("Update USERS SET RoomID='" & varRoom & "', [Time]='" & varTime & "', LastPost='" & varTime & "', Active='1' WHERE Username = '" & varUsername & "';")
	response.redirect "chat.asp"
end if

call closeDB
%>