📄 relogin.asp

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

	dim uid
	dim pwd
	dim sErr

	uid=Request("uid")
	pwd=Request("pwd")

	dim uid_cookie
	uid_cookie=Request.Cookies("r4cForumUserID")


	if uid<>"" then

		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

				'//-------------------
				Call SetSession (uid)

				Response.Write "<p></p>"
				Response.Write "<p align='center'>"
				Response.Write "登录成功！请关闭本窗口，然后继续提交你的文章。"
				Response.Write "<br><br>"
				Response.Write "<a href='javascript:void(0);' onclick='window.close();'>关 闭</a>"
				Response.Write "</p>"
				Response.End
			else
				sErr="密码错误。请重新输入！"
			end if
		end if

		rs.Close
		set rs=nothing
		call closeconnm()
	end if

%>
<HTML>
	<HEAD>
		<title>r4c 论坛登录</title>
		<meta http-equiv="Content-Language" content="zh-cn">
		<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
		<link rel="stylesheet" type="text/css" href="../main.css">
	</HEAD>
	<body bgcolor="#ffffff">
		<div align="center">
			<center>
				<table border="0" width="100%" cellspacing="0" ID="Table1">
					<tr>
						<td align="middle"><font size="3">由于网络超时，请重新登录</font></td>
					</tr>
					<tr>
						<td align="middle">&nbsp;</td>
					</tr>
					<tr>
						<td>
							<form method="post" action="relogin.asp">
								<div align="center">
									<center>
										<table border="0" width="220" bgcolor="#687088" cellspacing="1" ID="Table2">
											<tr>
												<td width="100%" bgcolor="#ffffff">
													<table border="0" width="100%" cellspacing="1" ID="Table3">
														<tr>
															<td bgcolor="#efefef" align="right" height="30">用户名：</td>
															<td bgcolor="#efefef" height="30"><input type="text" name="uid" size="15" value="<%=uid_cookie%>" ID="Text1"></td>
														</tr>
														<tr>
															<td bgcolor="#efefef" align="right" height="30">密码：</td>
															<td bgcolor="#efefef" height="35"><input type="password" name="pwd" size="15" ID="Password1"></td>
														</tr>
														<tr>
															<td align="middle" colspan="2" height="30"><input type="submit" value="登 录" name="CmdLogin" ID="Submit1"></td>
														</tr>
													</table>
												</td>
											</tr>
										</table>
									</center>
								</div>
							</form>
							<p></p>
							<p align="center"><font size="3" color="#8b4513"><b><%= sErr %></b></font></p>
						</td>
					</tr>
				</table>
			</center>
		</div>
		<p>
		</p>
	</body>
</HTML>
⌨️ 快捷键说明

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