admin_check.asp

BBS源码 利用ASP的一个功能齐全的BBS论坛源码

<!--#include file="Inc.asp"-->
<!--#include file="inc/md5.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=style.css rel="stylesheet" type="text/css">
<script language="JavaScript">
function checkclick(msg){if(confirm(msg)){event.returnValue=true;}else{event.returnValue=false;}}
</SCRIPT>
<%
Dim AdminName,AdminPassword,Rs
AdminName=Session(BBS94KK.CacheName & "AdminName")
AdminPassword=Session(BBS94KK.CacheName & "AdminPassword")
IF AdminName="" or AdminPassword="" Then
	If Instr(BBS94KK.BbsURL,"admin_index.asp")>0 Then
		Response.redirect"admin_login.asp"
	Else
	Call ShowTable("94KK论坛安全时间","系统安全管理超时，请重新 【<a href=Admin_Login.asp target='_parent'>登陆</a>】")
	Response.end
	End If
End If

If not BBS94KK.Fun.CheckName(AdminName) or not BBS94KK.Fun.CheckPassword(AdminPassword) then
	Response.redirect"Admin_login.asp"
	Response.end
End If
If BBS94KK.Execute("Select name from [KK_admin] where Name='"&AdminName&"' and Password='"&Md5(AdminPassword)&"' and boardID=0 ").eof  Then
	Response.redirect"admin_login.asp"
	Response.end
End if


Sub GoBack(Str1,Str2)
	If Str1="" Then Str1="错误信息"
	If Str2="" Then Str2="请填写完整必填项目"
	Str2="<li>"&Str2&"<li><a href=javascript:history.go(-1)>返回重填</a>"
	Response.Write("<table width='98%' border='2' align='center' cellpadding='3' cellspacing='0' bordercolor='#999999' bordercolordark='#FFFFFF' bgcolor='#DEF0FE'><tr  bgcolor='#4D65A4'><td height='25' colspan='3' ><b><font color='#FFFFFF'>"&Str1&" </font></b></td></tr><tr><td><table width='100%'><tr><td><font color=red size=15><b>×</b></font></td><td width='98%'><Div style='margin:10;line-height: 150%'>"&str2&"</Div></td></tr></table></td></tr></table>")
End Sub

Sub ShowTable(Str1,Str2)
	Response.Write("<table width='98%' border='2' align='center' cellpadding='3' cellspacing='0' bordercolor='#999999' bordercolordark='#FFFFFF' bgcolor='#DEF0FE'><tr  bgcolor='#4D65A4'><td height='25' colspan='3' ><b><font color='#FFFFFF'>"&Str1&" </font></b></td></tr><tr><td><table width='100%'><tr><td><Div style='margin:10;line-height: 150%'>"&str2&"</Div></td></tr></table></td></tr></table>")
End Sub

Sub Suc(Str1,Str2,url)
	If Str1="" Then Str1="操作成功"
	If Str2="" Then Str2="成功的完成这次操作！"
	Str2="<li>"&Str2&"<li><a href="&Url&">返回续续管理</a>"
	Response.Write("<table width='98%' border='2' align='center' cellpadding='3' cellspacing='0' bordercolor='#999999' bordercolordark='#FFFFFF' bgcolor='#DEF0FE'><tr  bgcolor='#4D65A4'><td height='25' colspan='3' ><b><font color='#FFFFFF'>"&Str1&" </font></b></td></tr><tr><td><table width='100%'><tr><td><font color=red size=15><b>√</b></font></td><td width='98%'><Div style='margin:10;line-height: 150%'>"&Str2&"</Div></td></tr></table></td></tr></table>")
End Sub

Sub AdminHead()
	Response.Write"<table width='100%'  border='0' cellpadding='0' cellspacing='0' background='Images/admintopbg.gif'><tr><td width='60%'><img src='Images/Admintop.gif' width='250' height='40'></td><td width='40%' valign='top' align='right'><img src='Images/i_home.gif' width='18' height='17' align='absmiddle'> <a href=Index.asp target='_blank'><font color=#ffffff>论坛首页</font></a>&nbsp;&nbsp;&nbsp;</td></tr></table>"
End Sub

Sub AdminFooter()
	Response.Write"<table width='100%'  border='0' cellspacing='0' cellpadding='8'><tr><td align='center'>就是快快 94KKbbs V "&BBS94KK.Ver&", Copyright &copy; 2005-2006 <font color='#993300'><b>94kk.Com</b></font>. All Rights Reserved .</td></tr></table>"
	Set BBS94KK=Nothing
End Sub
%>