📄 loginout.asp

📁 此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.
💻 ASP
字号:
<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	      http://www.ChinaXP.Net/bbs/    中国在线--极酷论坛
'#
'#############################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_functions.asp" -->
<!--#INCLUDE FILE="inc_top.asp" -->
<% '################################## %>
	<TD width="70%" align="left" valign="top">
<TABLE border="0" width="85%" align=center>
  <TR>
    <TD width="33%" align="left" nowrap><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><a href="default.asp"><img src="<% =strImageURL %>icon_folder_open.gif" alt="返回论坛首页" border="0">&nbsp;<% =strForumTitle %></a>
	<BR><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open_topic.gif" border="0">&nbsp;论坛登录
</FONT></TD>
  </TR>
</TABLE>
</TD>
</TR>
</TABLE>
<% '################################## %>

<%
sub DoCookies2(fSavePassWord)
	if strSetCookieToForum = 1 then
		Response.Cookies(strUniqueID & "User").Path = strCookieURL
	else
		Response.Cookies(strUniqueID & "User").Path = "/"
	end if
	Response.Cookies(strUniqueID & "User")("Name") = strDBNTFUserName
	Response.Cookies(strUniqueID & "User")("Pword") = Request.Form("Password")
	Response.Cookies(strUniqueID & "User")("Cookies") = Request.Form("Cookies")
	if fSavePassWord <> "" then
		Response.Cookies(strUniqueID & "User").Expires = DateAdd("d", fSavePassWord, strForumTimeAdjust)
'	else
'		Response.Cookies(strUniqueID & "User").Expires = DateAdd("h", 1, strForumTimeAdjust)
	end if
	Session(strCookieURL & "last_here_date") = ReadLastHereDate(strDBNTFUserName)	
end sub


strDBNTUserName = Request.Cookies(strUniqueID & "User")("Name")
strDBNTFUserName = Request.Form("Name")
if strAuthType = "nt" then
	strDBNTUserName = Session(strCookieURL & "userID")
	strDBNTFUserName = Session(strCookieURL & "userID")
end if
if lCase(Request("Mode")) <> "logout" then

	if Request.ServerVariables("REQUEST_METHOD") = "POST" then

		SELECT CASE ChkUser2(strDBNTFUserName, Request.Form("Password"))
			CASE 1, 2, 3, 4
				Call DoCookies2(Request.Form("CookieDate"))
				strLoginStatus = 1
			CASE ELSE
				strLoginStatus = 0
		END SELECT

		if strLoginStatus = 0 then %>
<BR><BR><BR>
  <table cellpadding=0 cellspacing=0 border=0 width="<% =strTableWidth %>" bgcolor="<% =strPopUpBorderColor %>" align=center>
    <tr>
      <td>
      <table cellpadding=6 cellspacing=1 border=0 width=100%>
	<tr>
	<td bgcolor="<% =strHeadCellColor %>" valign=middle align=center><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strHeaderFontSize %>"><b>论坛登陆失败！</b></font></td></tr>
	<tr>
	<td bgcolor="<% =strForumCellColor %>" valign=middle><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strHeaderFontSize %>">如果浏览器没有自动返回，请点击下面的链接！</FONT>
	<ul>
	<li><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strHeaderFontSize %>"><a href="default.asp">返回论坛</a></font>
	<li><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strHeaderFontSize %>"><a href="javascript:history.back(-1)">你的用户名或密码错误！</a></font>
	<li><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strHeaderFontSize %>"><a href="javascript:history.back(-1)">请重新输入或注册成为新会员！</a></font>
	</ul>
	</td></tr>
	</table>
      </td>
    </tr>
  </table>
<Script Language="JavaScript">
	setTimeout("javascript:history.back(-1);",3000);
</Script>
<BR><BR><BR>
<%		else %>
<BR><BR><BR>
  <table cellpadding=0 cellspacing=0 border=0 width="<% =strTableWidth %>" bgcolor="<% =strPopUpBorderColor %>" align=center>
    <tr>
      <td>
      <table cellpadding=6 cellspacing=1 border=0 width=100%>
	<tr>
	<td bgcolor="<% =strHeadCellColor %>" valign=middle align=center><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strHeaderFontSize %>"><b>恭喜，您已经成功地登陆到论坛！</b></font></td></tr>
	<tr>
	<td bgcolor="<% =strForumCellColor %>" valign=middle><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strHeaderFontSize %>">如果浏览器没有自动返回，请点击下面的链接！</FONT>
	<ul>
	<li><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strHeaderFontSize %>">登陆成功！</font>
	<li><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strHeaderFontSize %>">感谢你的参与及支持！</font><BR>
	<li><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strHeaderFontSize %>"><a href="<% Response.Write Request.Form("inPath") %>">返回论坛</a></font>
	<meta http-equiv="refresh" content="3; url=<% Response.Write Request.Form("inPath") %>">
	</ul>
	</td></tr>
	</table>
      </td>
    </tr>
  </table>
<BR><BR><BR>
<%		end if %>
		<!--#INCLUDE FILE="inc_adv.asp" -->
		<!--#INCLUDE FILE="inc_footer.asp" -->
<%		Response.End %>
<%	end if %>
<P>
<TABLE cellpadding="0" cellspacing="0" border="0" width="<% Response.Write strTableWidth %>" align="center" bgcolor="<% =strPopUpBorderColor %>">
<TR>
<TD>
<TABLE bgcolor="<% =strTableBorderColor %>" cellpadding="6" cellspacing="1" border="0" width="100%">
<TR>
<TD bgcolor="<% =strHeadCellColor %>" valign="middle" colspan="2">
<FORM action="<% Response.Write Request.ServerVariables("URL") %>" method="POST" id=form1 name=form1>
<INPUT type="hidden" name="Mode" value="login">
<%	if Request.ServerVariables("HTTP_REFERER")<>"" then %>
<INPUT type="hidden" name="inPath" value="<% Response.Write Request.ServerVariables("HTTP_REFERER") %>">
<%	else %>
<INPUT type="hidden" name="inPath" value="default.asp">
<%	end if %>
<font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strHeaderFontSize %>"><B>请输入您的用户名、密码登陆</B></FONT></TD>
</TR>
<TR bgcolor="<% =strForumCellColor %>">
<TD valign="middle"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strCategoryFontColor %>">请输入您的用户名</FONT></TD>
<TD valign="middle"><INPUT type="text" name="Name" value="<% =Request.Cookies(strUniqueID & "User")("Name") %>" 0 size="20"> &nbsp; <A href="policy.asp"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strCategoryFontColor %>">您没有注册？</FONT></A></TD>
</TR>
<TR bgcolor="<% =strForumCellColor %>">
<TD valign="middle"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strCategoryFontColor %>">请输入您的密码</FONT></TD>
<TD valign="middle"><INPUT type="password" name="Password" value="<% =Request.Cookies(strUniqueID & "User")("Pword") %>" 0 size="20"> &nbsp; <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strCategoryFontColor %>"><a href="JavaScript:openWindow('pop_pword.asp')">忘记密码？</A></FONT></TD>
</TR>
<% if strNoCookies<>"1" then %>
<TR bgcolor="<% =strHeadCellColor %>">
<TD colspan="2" valign="middle"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strCategoryFontColor %>"><B>论坛登陆选项</B></FONT></TD>
</TR>
<TR bgcolor="<% =strForumCellColor %>">
<TD valign="top" width="30%"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strCategoryFontColor %>"><B>Cookie</B> 请选择你的Cookie保存时间，下次访问可以方便输入。</FONT></TD>
<TD valign="middle"><FONT class="misc"><INPUT type="radio" name="CookieDate" value="1"> 保存一天<BR>
<INPUT type="radio" name="CookieDate" value="30"> 保存一月<BR>
<INPUT type="radio" name="CookieDate" value="365"> 保存一年<BR>
<INPUT type="radio" name="CookieDate" value checked> 不要保存</FONT></TD>
</TR>
<% end if %>
<TR>
<TD bgcolor="<% =strHeadCellColor %>" valign="middle" colspan="2" align="center"><INPUT type="submit" name="submit" value="登 陆"></TD>
</form>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<% else
		if strDBNTUserName<>"" then
			Call ClearCookies()
			'delete user if exists
			SQL = "DELETE FROM " & strTablePrefix & "ONLINE WHERE " & strTablePrefix & "ONLINE.UserID = '" & strDBNTUserName & "'"
			my_conn.Execute SQL
			SQL = "DELETE FROM " & strTablePrefix & "ONLINE WHERE " & strTablePrefix & "ONLINE.UserID = '" & remoteIP() & "Guest" & "'"
			my_Conn.Execute SQL
		end if %>
<BR><BR><BR>
  <table cellpadding=0 cellspacing=0 border=0 width="<% =strTableWidth %>" bgcolor="<% =strPopUpBorderColor %>" align=center>
    <tr>
      <td>
      <table cellpadding=6 cellspacing=1 border=0 width=100%>
	<tr>
	<td bgcolor="<% =strHeadCellColor %>" valign=middle align=center><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strHeaderFontSize %>"><b>您现在已经退出论坛</b></font></td></tr>
	<tr>
	<td bgcolor="<% =strForumCellColor %>" valign=middle><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strHeaderFontSize %>">如果浏览器没有自动返回，请点击下面的链接！
	<ul>
	<li><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strHeaderFontSize %>">成功退出论坛！</font>
	<li><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strHeaderFontSize %>">有时间记得多来走走哦！</font>
	<li><font face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strHeaderFontSize %>"><a href="<% Response.Write Request.ServerVariables("HTTP_REFERER") %>">返回论坛</a></font>
	<meta http-equiv="refresh" content="3; url=<% Response.Write Request.ServerVariables("HTTP_REFERER") %>">
	</ul>
	</tr></td>
	</table></td></tr></table><BR><BR><BR>
	<!--#INCLUDE FILE="inc_adv.asp" -->
	<!--#INCLUDE FILE="inc_footer.asp" -->
<%		Response.End %><% end if %><!--#INCLUDE FILE="inc_adv.asp" --><!--#INCLUDE FILE="inc_footer.asp" -->
⌨️ 快捷键说明

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