📄 checklogin.asp

📁 网络办公系统源码
💻 ASP
字号:
<%
if Session("AdminName") = "" or Session("AdminPass")="" or Session("AdminGrade")="" or session("companyid")="" then
    response.write "<Script language='javascript'>top.location='admin_login.asp';</Script>"
	call EndExit()
end if

Public Function ChkAdmin(para)
	On Error Resume Next
	Dim i, TempAdmin, Adminflag
	ChkAdmin = False
	AdminFlag = Replace(Session("Adminflag"), "'", "''")
	If para = "" Then Exit Function
	If CInt(Session("AdminGrade")) = 999 Then
		ChkAdmin = True
		Exit Function
	Else
		If Adminflag = "" Then
			ChkAdmin = False
			Exit Function
		Else
			tempAdmin = Split(Adminflag, ",")
			For i = 0 To UBound(tempAdmin)
				If Trim(LCase(tempAdmin(i))) = Trim(LCase(para)) Then
					ChkAdmin = True
					Exit For
				End If
			Next
		End If
	End If
End Function


Sub Admin_header()
        Echo "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">" & vbCrLf
        Echo "<html>" & vbCrLf
        Echo "<head>" & vbCrLf
        Echo "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">" & vbCrLf
        Echo "<meta name=keywords content="""&CN_Version&",网站建设，ss.net.cn"">" & vbCrLf
        Echo "<meta name=""description"" content=""Design By ss.net.cn"">" & vbCrLf
        Echo "<title>" &SiteName & "-管理页面</title>" & vbCrLf
        Echo "<LINK href=""style.css"" type=text/css rel=stylesheet>" & vbCrLf
        Echo "<script src=""js/admin.js"" type=""text/javascript""></script>" & vbCrLf
        Echo "</head>" & vbCrLf
        Echo "<body leftmargin=0 bottommargin=0 rightmargin=0 topmargin=0>" & vbCrLf
        Echo "<BR style=""OVERFLOW: hidden; LINE-HEIGHT: 3px"">" & vbCrLf
End Sub

Sub Admin_footer()
        Echo "<br /><table align=center>" & vbCrLf
        Echo "<tr align=center><td width=""100%"" style=""LINE-HEIGHT: 150%"" class=copyright>" & vbCrLf        
        If CInt(isSqlDataBase) = 1 Then
                Echo " Powered by：<a href=http://ss.net.cn target=_blank>"&EN_Version&"</a> （MSSQL 版）<br>" & vbCrLf
        Else
                Echo " Powered by：<a href=http://ss.net.cn target=_blank>"&EN_Version&"</a> （ACCESS 版）<br>" & vbCrLf
        End If
        Echo "Copyright &copy; 2006 <a href=http://ss.net.cn target=_blank><font face=Verdana, Arial, Helvetica, sans-serif><b>SS<font color=#CC0000>.NET.CN</font></b></font></a>. All Rights Reserved ." & vbCrLf
        
     
        Echo "</td>" & vbCrLf
        Echo "</tr>" & vbCrLf
        Echo "</table>" & vbCrLf
        Echo "</body></html>"
End Sub

Public Sub ReturnError(ErrMsg)
	Response.Write "<html><head><title>错误提示信息!</title><meta http-equiv=Content-Type content=text/html; charset=gb2312>" & vbCrLf
	Response.Write "<meta http-equiv=refresh content=3;url=javascript:history.go(-1)>"
	Response.Write "<link href=style.css rel=stylesheet type=text/css></head><body><p>&nbsp;</p>" & vbCrLf
	Response.Write "<table cellpadding=5 cellspacing=0 border=0 align=center class=tableBorder1>" & vbCrLf
	Response.Write "  <tr><th colspan=2 align=""left""><img src=""images/welcome.gif"" width=""16"" height=""17"" align=""absMiddle""> 错误提示信息!</th></tr>" & vbCrLf
	Response.Write "  <tr><td align=center width=""20%"" class=TableRow1><img src=""images/err.gif"" width=95 height=97 border=0></td><td width=""80%"" class=TableRow1><b style=color:blue><span id=jump>3</span> 秒钟后系统将自动返回</b><br><b>产生错误的可能原因：</b><BR>" & ErrMsg & "</td></tr>" & vbCrLf
	Response.Write "  <tr><td colspan=2 align=center height=25 class=TableRow2><a href=javascript:history.go(-1)>返回上一页...</a></td></tr>" & vbCrLf
	Response.Write "</table><p>&nbsp;</p>" & vbCrLf
	Response.Write "</body></html>" & vbCrLf
	Response.Write "<script>function countDown(secs){jump.innerText=secs;if(--secs>0)setTimeout(""countDown(""+secs+"")"",1000);}countDown(3);</script>"
End Sub
%>
⌨️ 快捷键说明

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