📄 login.asp

📁 在线考试系统
💻 ASP
字号:
<%@ Language=VBScript %>
<% option explicit %>
<% Response.Buffer = true %>
<!-- #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

		dim lScore
		dim lLevel

		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))

				lScore=clng(Rs("score"))
				lScore=lScore+1

				if lScore>= 0 and lScore<100 then
					lLevel=1
				elseif lScore>= 100 and lScore<500 then
					lLevel=2
				elseif lScore>= 500 and lScore< 1000 then
					lLevel=3
				elseif lScore>= 1000 and lScore< 1500 then
					lLevel=4
				elseif lScore>= 1500 and lScore< 2500 then
					lLevel=5
				elseif lScore>= 2500 and lScore< 3000 then
					lLevel=6
				elseif lScore>= 3000 and lScore< 3500 then
					lLevel=7
				elseif lScore>= 3500 and lScore< 4000 then
					lLevel=8
				elseif lScore>= 4000 and lScore< 5000 then
					lLevel=9
				elseif lScore>= 5000 then
					lLevel=10
				end if

				if lScore>=10000 then lscore=10000

				Rs("score")=lScore
				Rs("logintimes")=clng(Rs("logintimes"))+1
				Rs("lastlogin")=Now()
				Rs("level")=lLevel
				Rs.Update

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

				rs.Close
				set rs=nothing
				call closeconnm
				Response.Redirect "index.asp"

			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">
		<SCRIPT language="JavaScript" src="../include/header.inc" type="text/javascript"></SCRIPT>
		<!-- #include file="inc_forumheader.asp" -->
		<div align="center">
			<center>
				<table border="0" width="760" cellspacing="0">
					<tr>
						<td align="middle"><font size="3">论 坛 登 录</font></td>
					</tr>
					<tr>
						<td align="middle">&nbsp;</td>
					</tr>
					<tr>
						<td>

							<form method="post" action="login.asp">
								<div align="center">
									<center>
										<table border="0" width="244" bgcolor="#687088" cellspacing="1">
											<tr>
												<td width="236" bgcolor="#687088" height="25">
                                                    &nbsp;
												</td>
											</tr>
											<tr>
												<td width="236" bgcolor="#ffffff">
													<table border="0" width="242" cellspacing="1" height="120">
														<tr>
															<td bgcolor="#efefef" align="right" width="65">用户名：</td>
															<td bgcolor="#efefef" width="163"><input type="text" name="uid" size="18" value="<%=uid_cookie%>" style="border-style: solid; border-width: 1"></td>
														</tr>
														<tr>
															<td bgcolor="#efefef" align="right" width="65">密码：</td>
															<td bgcolor="#efefef" width="163"><input type="password" name="pwd" size="18" style="border-style: solid; border-width: 1"></td>
														</tr>
														<tr>
															<td align="center" colspan="2" height="51" width="234"><input type="submit" value="登 录" name="CmdLogin">&nbsp;  
                                                              <a href="reg/index.asp">注册成为会员</a></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>
					<tr>
						<td align="middle"></td>
					</tr>
				</table>
			</center>
		</div>
		<p>
		</p>
		<SCRIPT language="JavaScript" src="../include/buttom.inc" type="text/javascript"></SCRIPT>
	</body>
</HTML>
⌨️ 快捷键说明

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