admin_login.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.gif" border="0">&nbsp;<A href="admin_home.asp">论坛管理中心</A>
<% if lCase(Request("Method"))<>"adminlogout" then %>
	<BR><img src="<%=strImageURL %>icon_blank.gif" border="0"><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open_topic.gif" border="0">&nbsp;管理员登陆
<% else %>
	<BR><img src="<%=strImageURL %>icon_blank.gif" border="0"><img src="<%=strImageURL %>icon_bar.gif" border="0"><img src="<% =strImageURL %>icon_folder_open_topic.gif" border="0">&nbsp;管理员退出登陆
<% end if %>
</FONT></TD>
  </TR>
</TABLE>
</TD>
</TR>
</TABLE>
<BR>

<% if lCase(Request("Method"))<>"adminlogout" then %>
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<%
Name = Request.Form("Name")
Password = Request.Form("Password")
RequestMethod = Request.ServerVariables("Request_method")

IF RequestMethod = "POST" Then

	'## Forum_SQL
	strSql = "SELECT MEMBER_ID "
	strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
	strSql = strSql & " WHERE M_NAME = '" & Name & "' AND "
	strSql = strSql & "       M_PASSWORD = '" & Password & "' AND "
	strSql = strSql & "       M_LEVEL = 3"
	
	Set dbRs = my_Conn.Execute(strSql)
		
	If not(dbRS.EOF) and ChkQuoteOk(Name) and ChkQuoteOk(Password) Then
%>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">登陆成功！</font></p>
<% Session(strCookieURL & "Approval") = "15916941253" %>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="admin_home.asp" target="_top">按这里进入论坛</a></font></p>
<%'########### Append By Guozi 2001-10-04 #############
if lCase(Request("Mode"))="ip_edit" then %>
	<meta http-equiv="Refresh" content="0; URL=admin_address_edit.asp">
<% else %>
	<meta http-equiv="Refresh" content="0; URL=admin_home.asp">
<% end if
'###################################################### %>
<!--#INCLUDE file="inc_footer.asp" -->
<% Response.End %>
<% Else %>
<center>

<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">发生问题！</font></p>

<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">你无权进入</font></p>

<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">如果你认为这个讯息是错误的，请重新尝试一遍</font></p>

</center>
<% End IF %>
<% Else %>
	&nbsp;
<% End IF %>
<form action="admin_login.asp" method="post" id=Form1 name=Form1>
<input type=hidden name="Mode" value="<% =lCase(Request("Method")) %>">
<table border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="<% =strTableBorderColor %>">
  <tr>
    <td align="center" colspan="2" bgcolor="<% =strHeadCellColor %>"><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">管理员登陆</font></b></td>
  </tr>
  <tr>
	<td align="right" nowrap bgcolor="<% =strForumCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">你的名字：</font></td>
	<td bgcolor="<% =strForumCellColor %>">
    <input type="text" name="Name" size="20"></td>
  </tr>
  <tr>
	<td align="right" nowrap nowrap bgcolor="<% =strForumCellColor %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">你的密码：</font></td>
	<td bgcolor="<% =strForumCellColor %>">
    <input type="Password" name="Password" size="20"></td>
  </tr>
  <tr>
    <td colspan="2" align="right" bgcolor="<% =strForumCellColor %>"><input type="submit" value="登陆" id="Submit1" name="Submit1"></td>
  </tr>
</table>
</form>

</font>
<% else %>

<center>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">管理员退出成功！</font></p>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">再次感谢您的辛勤工作……</font></p>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="admin_home.asp" target="_top">按这里回到论坛</a></font></p>
</center>

	<% Session(strCookieURL & "Approval") = "" %>
	<meta http-equiv="Refresh" content="1; URL=admin_home.asp">
<% end if %><!--#INCLUDE file="inc_footer.asp" -->