📄 mes_login.asp

📁 在线考试系统
💻 ASP
字号:
<%@ Language=VBScript %>
<% option explicit %>
<% Response.Buffer = true %>
<!-- #include file="conn_webqq.asp" -->
<!-- #include file="conn_member.asp" -->
<!-- #include file="inc_session.asp" -->

<%

	dim uid
	dim pwd
	dim sErr
	dim bRelogin
	
	dim sReceiver
	
	uid=request("uid")
	pwd=request("pwd")
	sReceiver=Request("receiver")
	
	dim uid_cookie
	uid_cookie=Request.Cookies("r4cForumUserID")

	if Request("Relogin")="1" then
		bRelogin=1
	else
		bRelogin=0
	end if

	dim oldID
	oldID=GetSession()

	if oldID <>"" and bRelogin=0 then
		uid=oldId
		call GetOnLine

	elseif uid<>"" then

		'//delete old if first
		if bRelogin=1 and oldID<>"" then
			dim sSQL
			sSQL="DELETE * FROM tOnline WHERE uid='" & oldID & "'"
			connq.execute sSQL
		end if

		dim Rs
		set Rs=Server.CreateObject ("ADODB.Recordset")
		Rs.Open  "SELECT * FROM tmember WHERE uid='" & uid & "'" ,connm,3 ,3


		if Rs.BOF and Rs.EOF then
			sErr="用户名错误。（找不到用户名 " & uid & " ），请重新输入！"
		elseif Rs("Lock")=1 then
			sErr="该用户名已经被禁用：" & uid & "，请重新登录！"
		else
			if Rs("pwd")=pwd then

				Response.Cookies("r4cForumUserID")=uid
				Response.Cookies("r4cForumUserID").Expires=FormatDateTime(DateAdd("d",7,Date))

				Rs("logintimes")=clng(Rs("logintimes"))+1
				Rs("lastlogin")=Now()
				Rs.Update

				Rs.Close
				set Rs=nothing


				'//------------------- UPDATE Session
				call SetSession(uid)

				call GetOnLine

			else
				sErr="密码错误。请重新输入！"
			end if
		end if

		rs.Close
		set rs=nothing
		call closeconnm
		call closeconnq

	end if



	sub GetOnLine()

		'//Delete old message
		Dim dOld
		dim sSQL
		dOld = DateAdd("d", -15, Now()) '15 days age
		sSQL="DELETE * FROM tMessage WHERE time< #" & dOld & "#"
		connq.execute sSQL


		'//get the login user's gender
		dim memGender

		dim Rsm
		set Rsm=Server.CreateObject ("ADODB.Recordset")
		Rsm.Open  "SELECT * FROM tMember WHERE uid='" & uid & "'" ,connm,1 ,1
		if Rsm.BOF and Rsm.EOF then
			memGender=0
		else
			memGender=Rsm("sex")
		end if
		rsm.Close



		'//get the user's message count
		dim iMesCount

		Rsm.Open "SELECT receiver FROM tMessage WHERE receiver='" & uid & "'",connq,1,1

		if Rsm.BOF and Rsm.EOF then
			iMesCount=0
		else
			rsm.MoveLast
			iMesCount=Rsm.RecordCount
		end if
		rsm.Close



		'//add me to the ONLINE list
		rsm.Open "SELECT * FROM tOnline WHERE uid='" & uid & "'",connq,3,3

		if rsm.BOF and rsm.EOF then
			rsm.Close
			rsm.Open "tOnline",connq,3,3
			rsm.AddNew
		end if

		rsm("uid")=uid
		rsm("sex")=memGender
		rsm("activetime")=Now()
		rsm("ip")=Request.ServerVariables("REMOTE_ADDR")
		rsm("messagecount")=iMesCount
		rsm.Update

		rsm.Close
		set rsm=nothing

		call closeconnm
		call closeconnq

		'//-------------------- Redirect
	
		if sReceiver<>"" then
			Response.Redirect "mes_write.asp?receiver=" & sReceiver
		else
			Response.Redirect "mes_INDEX.ASP"
		end if

	end sub

%>
<html>
	<head>
		<meta http-equiv="Content-Language" content="zh-cn">
		<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
		<title>WebQQ 登录</title>
		<link rel="stylesheet" type="text/css" href="../main.css">
	</head>

	<body bgcolor="#D4D0C8">
		<table border="0" width="100%" height="330" bgcolor="#687088">
			<tr>
				<td width="100%" height="300" valign="top" bgcolor="#FFFFFF" align="center">
					<table border="0" width="100%">
						<tr>
							<td width="18%"><img border="0" src="images/logo_qq.gif"></td>
							<td width="47%"><b>WebQQ 登录</b></td>
							<td width="35%"></td>
						</tr>
						<tr>
							<td width="18%" height="1"><img border="0" src="images/dotline.gif" width="1" height="1"></td>
							<td width="47%" height="1" bgcolor="#FFCC00"><img border="0" src="images/dotline.gif" width="1" height="1"></td>
							<td width="35%" height="1" bgcolor="#ECE9AC"><img border="0" src="images/dotline.gif" width="1" height="1"></td>
						</tr>
					</table>
					<table border="0" width="100%">
						<tr>
							<td width="100%">&nbsp;</td>
						</tr>
					</table>
					<p align="center">
						<form method="POST" action="mes_LOGIN.ASP">
							<table border="0" width="200" bgcolor="#687088" cellspacing="1">
								<tr>
									<td width="100%" bgcolor="#FFFFFF">
										<table border="0" width="100%" cellspacing="1">
											<tr>
												<td bgcolor="#EFEFEF" align="right" height="30">用户名：</td>
												<td bgcolor="#EFEFEF" height="30"><input type="text" name="uid" size="14" value="<%=uid_cookie%>"></td>
											</tr>
											<tr>
												<td bgcolor="#EFEFEF" align="right" height="30">密码：</td>
												<td bgcolor="#EFEFEF" height="35">
												<input type="password" name="pwd" size="14">
												<input type="hidden" name="relogin" size="14" value="<%=bRelogin%>">
												<input type="hidden" name="receiver" size="14" value="<%=sReceiver%>">
												</td>
											</tr>
											<tr>
												<td align="center" colspan="2" height="30"><input type="submit" value="登 录" name="CmdLogin"></td>
											</tr>
										</table>
									</td>
								</tr>
							</table>
						</form>
					<p>
					</p>
					<table border="0" width="100%">
						<% if sErr<>"" then %>
						<tr>
							<td align="center" bgcolor="#000000">
								<font color="#FFFFCC"><b>
										<%=sErr%>
									</b></font>
							</td>
						</tr>
						<% else %>
						<% end if %>
						<tr>
							<td align="center">
								请使用论坛的会员帐号登录。<p>
									如果还没有成为会员请点击<a href="reg_index.asp" target="_blank">这里</a>注册。
							</td>
						</tr>
					</table>
				</td>
			</tr>
		</table>
	</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -