📄 login.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="admin/BBSConfig.asp"-->
<!--#include file="INC/online.asp"-->
<!--#include file="INC/ShowMsg.asp"-->
<!--#include file="INC/header.asp"-->
<!--#include file="INC/style.asp"-->
<!--#include file="admin/md5.asp"-->
<%
'****************************************************************
'* joinboard BBS Ver2.3.0/友盟论坛 Ver2.3.0
'*
'* 版权所有: JoinBoard V2.3
'*
'* 程序制作: 友盟工作室
'*
'* 主页地址: http://joinboard.com 友盟论坛
'*
'* 论坛地址: http://bbs.joinboard.com/、http://youmeng.com
'*
'****************************************************************
'* Powered by: JoinBoard V2.3
'* Copyright 2003－2004. - All Rights Reserved.
'* JoinBoard is a trademark of YouMeng Studio.
'****************************************************************
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="joinboard,forum,bbs,youmeng,友盟论坛">
<title><%=BBS_Config(0)%> - 登录论坛</title>
<link href="<%=Css_path%>" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<%
Call onlineuser()
call top()
action = trim(request.QueryString("action"))
response.Write "<table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""path-table"">"
response.Write "<tr><td>"
response.Write "<img src="""& BBS_Skin(3) &"JBB_bullet.gif""> <a href="""&BBSHomeUrl&""">"& BBS_Config(0) &"</a> <img src="""& BBS_Skin(3) &"JBB_bullet.gif""> "
if action="logout" then
response.Write("退出")
else
response.Write("登录")
End if
response.Write " 论坛</td></tr></table>"
select case action
case "logout"
Call logout()
case "check"
Call check()
case else
Call login()
end select
'===============================================
Sub logout()
Conn.ExeCute("Delete From JBB_online where Uname='"&username&"' and userIP='"&userIP&"'")
response.Cookies(JBBMasterCookies)("userid") = ""
response.Cookies(JBBMasterCookies)("username") = ""
response.Cookies(JBBMasterCookies)("userpass") = ""
response.Cookies(JBBMasterCookies)("usergroup") = ""
response.Cookies(JBBMasterCookies)("styleid") = ""
session.Abandon()
ShowMsg "所有的cookies都已经清除!系统正以游客身份返回首页. 如果您不要等待,请<a href="""&BBSHomeUrl&""">点 这里 返回论坛首页</a>."
response.Write("<META HTTP-EQUIV='REFRESH' CONTENT='3; URL="&BBSHomeUrl&"'>")
End Sub
'===============================================
Sub login()
Call loginform("登录论坛")
End Sub
'==============================================================
Sub check()
username = replace(trim(request.Form("username")),"'","")
userpass = replace(trim(request.Form("userpass")),"'","")
if username = "" Or userpass = "" then
loginform "<font color=""#ff0000"">用户名与密码均不可为空！</font>"
Call bottom()
response.end
End if
userhidden = request.Form("userhidden")
if userhidden <> 1 then userhidden = 0
set rs = Conn.ExeCute("select userid,usergroup,styleid From JBB_user where username ='"& username &"' and userpass = '"& md5(userpass) &"'")
if rs.eof or rs.bof then
loginform "<font color=""#ff0000""><b>用户名或密码均错误！请重新登录!</b></font>"
else
response.Cookies(JBBMasterCookies)("userid") = trim(rs(0))
response.Cookies(JBBMasterCookies)("username") = username
response.Cookies(JBBMasterCookies)("userpass") = Md5(userpass)
response.Cookies(JBBMasterCookies)("usergroup") = trim(rs(1))
response.Cookies(JBBMasterCookies)("styleid") = trim(rs(2))
response.Cookies(JBBMasterCookies)("userhidden") = userhidden
CookieDate = trim(request.form(("CookieDate")))
if IsNumeric(CookieDate) then
CookieDate = clng(CookieDate)
else
CookieDate = 0
end if
if CookieDate > 0 then
response.Cookies(JBBMasterCookies).expires = dateadd("d", CookieDate, date())
End if
ShowMsg "登录成功!~ <a href=""index.asp"">返回首页</a>"
comeurl = trim(request.Form("comurl"))
if instr(comeurl,"register.asp") > 0 or instr(comeurl,"login.asp") > 0 or instr(comeurl,"lostpass.asp") > 0 or comeurl="" then
comeurl = "index.asp"
End if
response.Write("<meta HTTP-EQUIV=REFRESH CONTENT='2; URL="& comeurl &"'>")
End if
set rs = nothing
End Sub
'==============================================================
Call Bottom()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -