<% Server.ScriptTimeOut=99999 Const IconA=" " Const IconE=" " Const IconD=" " Const IconH=" " Dim Rs,AdminString CheckAdmin() Sub CheckAdmin() Dim AdminName,AdminPassword AdminName=BBS94KK.GetMemor("Admin","AdminName") AdminPassword=BBS94KK.GetMemor("Admin","AdminPassword") IF AdminName="" or AdminPassword="" Then If Instr(PageURL,"admin_index.asp")>0 Then Response.redirect"admin_login.asp" Else Head ShowTable"限制进入","您还不是管理员，请先 【登陆】。" BBS94KK.NetLog"！非法尝试进入后台失败!" Footer 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='"&AdminPassword&"' and boardID=0 ").eof Then Response.redirect"admin_login.asp" Response.end End if BBS94KK.MyName=AdminName AdminString=BBS94KK.execute("select Strings From [KK_admin] where name='"&AdminName&"' And Password='"&AdminPassword&"' And boardID=0")(0) End Sub Sub CheckString(Flag) If Instr(AdminString,","&Flag&",")=0 Then Goback"对不起","你没有该页的操作权限!" Footer Response.end End If End Sub Sub GoBack(Str1,Str2) If Str1="" Then Str1="错误信息" If Str2="" Then Str2="请填写完整必填项目" Str2=Str2&" 返回重填" Response.Write"
"&Str1&"
×
"&str2&"
" End Sub Function GetRadio(Input_name,txt_Name,A,B) Dim temp On Error Resume Next'调试 If A="" Then A=0 If Int(A)=Int(B) then temp="checked " GetRadio=" "&txt_name&"" 'if err then Response.Write Input_name:Response.end End function Sub ShowTable(Str1,Str2) Response.Write"
"&Str1&"
"&str2&"
" End Sub Sub Suc(Str1,Str2,url) If Str1="" Then Str1="操作成功" If Str2="" Then Str2="成功的完成这次操作！" Str2=Str2&"返回继续管理" Response.Write"
"&Str1&"
√
"&str2&"
" End Sub Sub Head() Response.Write"
" End Sub Sub Footer() Response.Write"
恋恋网络社区 VVBBS V "&BBS94KK.Ver&", Copyright © 2006-2007 Ju4t.com. All Rights Reserved .
" Set Rs=Nothing Set BBS94KK=Nothing End Sub Sub DIVTR(T1,T2,Str,H,show) Dim StyleH If T2<>"" Then T2="
"&T2&"
" StyleH="min-height:"&H&"px;" '识别IE浏览器 If BBS94KK.MSIE Then StyleH=Replace(StyleH,"min-","") Response.Write"
"&T1&"
"&T2&"
"&str&"
" End Sub %>