check.asp

YxBBs是由Y网出品的一套ASP论坛系统,拥有小巧、高速、简捷、易用等特点。在YxBBs1.X刚起步的时候经过了大量的版本测试,现在YxBBs完善了技术

<!--#include file="Conn.Asp"-->
<!--#include file="../inc/md5.Asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
BODY{
background-color:#D6DFF7;
font-family:Verdana, Tahoma, Arial;
FONT-SIZE: 9pt; 
SCROLLBAR-HIGHLIGHT-COLOR: buttonface;
SCROLLBAR-SHADOW-COLOR: buttonface;
SCROLLBAR-3DLIGHT-COLOR: buttonhighlight;
SCROLLBAR-TRACK-COLOR: #eeeeee;
SCROLLBAR-DARKSHADOW-COLOR: buttonshadow;
}

table{ WORD-BREAK: break-all;}
tr,td{
	font-family:Verdana;
	font-size:9pt;
}
a:link{text-decoration:none;color:#003399}
a:visited{text-decoration:none;color:#003399}
a:hover{text-decoration:none;color:#FF8040;position: relative; left: 1px; top: 1px; clip: rect()}
input,select{
	BORDER-RIGHT: #AAAAAA 1px solid; BORDER-TOP: #AAAAAA 1px solid; FONT-SIZE: 9pt; BACKGROUND: url(Images/Inputbg.gif) #ffffff; BORDER-LEFT: #AAAAAA 1px solid; COLOR: #333333; BORDER-BOTTOM: #AAAAAA 1px solid; FONT-FAMILY: verdana;
}
textarea{
	PADDING-RIGHT: 5px; PADDING-LEFT: 5px; FONT-WEIGHT: normal; FONT-SIZE: 12px; PADDING-BOTTOM: 5px; WIDTH: 98%; LINE-HEIGHT: normal; PADDING-TOP: 5px; border-width:1px;FONT-STYLE: normal;
}
.3d {
	font-size: 10pt;
	COLOR: #ffffff;
	FILTER: glow(color=000000,strength=2) dropshadow(color=#aaaaaa,offx=1, offy=1, positive=2);
	HEIGHT: 1px;
	MARGIN: 0px;
	font-weight: bold;
}
.tableBorder {
	BORDER-RIGHT: #6595d6 1px solid; BORDER-TOP: #6595d6 1px solid; BORDER-LEFT: #6595d6 1px solid; BORDER-BOTTOM: #6595d6 1px solid; BACKGROUND-COLOR: #ffffff
}

TH { FONT-WEIGHT: bold; FONT-SIZE: 12px; BACKGROUND-IMAGE: url(../images/th_bg.gif); COLOR: white; BACKGROUND-COLOR: #4455aa
}
.title
{
	font-size: 24px;
	font-style: italic;
        font-family: Georgia, Lucida, Arial, sans-serif;
	font-weight: bold;
	color: #FF3333;
}
</STYLE>
<script language="JavaScript">
function checkclick(msg){if(confirm(msg)){event.returnValue=true;}else{event.returnValue=false;}}
</SCRIPT>
<%
Dim AdminName,AdminPassword,CheckName,Rs
AdminName=Session(YxBBs.CacheName&"AdminName")
AdminPassword=Session(YxBBs.CacheName&"AdminPassword")
CheckName=Session(YxBBs.CacheName&"CheckName")
IF AdminName="" or AdminPassword="" Then
	If  instr(Lcase(Request("Url")),"index.asp")>0 Then
		Response.redirect"Login.Asp"
	Else
	Call ShowTable("论坛安全时间","系统安全管理超时，请重新 【<a href=Login.Asp target='_parent'>登陆</a>】")
	Response.End
	End If
End If

If not YxBBs.Fun.CheckName(AdminName) or CheckName<>YxBBs.MyName then Response.redirect"login.Asp"
If YxBBs.Execute("Select name from [YX_admin] where Name='"&AdminName&"' and Password='"&Md5(AdminPassword)&"'").eof  Then
	Response.Redirect"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='0' align='center' cellpadding='4' cellspacing='1' bgcolor='#FFFFFF'><tr><th height='25' colspan='3'><b>"&Str1&"</b></th></tr><tr bgcolor='#DEDEDE'><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>")
	Response.End()
End Sub

Sub ShowTable(Str1,Str2)
	Response.Write("<table width='98%' border='0' align='center' cellpadding='4' cellspacing='1' bgcolor='#FFFFFF'><tr><th height='25' colspan='3'><b>"&Str1&"</b></th></tr><tr bgcolor='#DEDEDE'><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>"
        Application.Contents.RemoveAll
	Response.Write("<table width='98%' border='0' align='center' cellpadding='4' cellspacing='1' bgcolor='#FFFFFF'><tr><th height='25' colspan='3'><b>"&Str1&"</b></th></tr><tr bgcolor='#DEDEDE'><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 AdminFooter()
	Response.Write"<table width='100%'  border='0' cellspacing='0' cellpadding='8'><tr><td align='center'><font face=Verdana, arial, helvetica, sans-serif size=1>Copyright &copy; 2005-2007 <a href=http://www.YimXu.Com/ target='_blank'><b><font color=#800000>www.YimxU</font><font color=#428EFF>.com</b></font></a> All Rights Reserved .</font></td></tr></table>"
	Set YxBBs=Nothing
End Sub
%>