?? inc.asp
字號:
<%
Dim Login_Judges
Dim admin25175,admin25175_time
Sub Login_Judge()
Dim errmsg
Login_Judges=False
If session("admin25175")="" Then
If request.cookies("admin25175")("xx")<>"" And md5(request.cookies("admin25175")("xx")&"||"&siteinfo(5,0))=request.cookies("admin25175")("info") Then
admin25175=Split(request.cookies("admin25175")("xx"),"||")
admin25175_time=request.cookies("admin25175")("Effective")
Login_Judges=True
End If
Else
admin25175=Split(session("admin25175"),"||")
admin25175_time=session("admin25175_Effective")
Login_Judges=True
End If
If Login_Judges=False Then
response.write"<title>"&sitename&"</title>"
errmsg="<li>你還沒有登陸，或者登陸超時?。?！<a href='login.asp'><b>請重新登陸"&sitename&"</b></a>1<li>"
errormsg errmsg
End If
End Sub
Sub exe(str1)
execute(str1)
End Sub
Sub Ispower(Nowpower)
If Replace(admin25175(3),"*"&CStr(Nowpower)&"*","")=admin25175(3) Then
errormsg "您還沒有權限進行當前操作,請與管理員聯系!"
End If
End Sub
Sub restit(str1,str2)
res "<h1>"&str1&str2&"</h1>",1
End Sub
Sub putindexinfos()
Dim temp_index
temp_index = admintopHTML
temp_index = Replace(temp_index,"{%admintopmenu%}",admintopmenu)
temp_index = Replace(temp_index,"{%putinhead%}",putinhead)
res temp_index,0
End Sub
Function putinhead()
Dim temp_h
temp_h = "<html xmlns=""http://www.w3.org/1999/xhtml"">" &_
"<head><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"" />" &_
"<title>后臺管理</title>" &_
"<LINK rel=""stylesheet"" type=""text/css"" href=""images/index.css"">" &_
"<Script Language=""JavaScript"" type=""text/JavaScript"" src=""inc/index.js""></script>" &_
"</head><body>"
putinhead = temp_h
End Function
Function w3chead(strs)
Dim temp_str
temp_str =" <!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd""> " &_
"<html xmlns=""http://www.w3.org/1999/xhtml""> " &_
"<head> " &_
"<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"" /> " &_
"<title>學生系統后臺管理</title> " &_
"<META NAME=""Generator"" CONTENT=""EditPlus""> " &_
"<META NAME=""Author"" CONTENT=""hayden""> " &_
"<META NAME=""Keywords"" CONTENT=""""> " &_
"<META NAME=""Description"" CONTENT=""""> " &_
script("admin","") &_
script("showpage","") &_
css("css","") &_
css("admin_file_css","") &_
strs &_
"</HEAD> " &_
"<BODY> "
w3chead = temp_str
End Function
Function footer(str1)
Set conn=Nothing
footer=""
If str1=1 Then footer="<H1> </H1>"
footer=footer & "</body></html>"
End Function
Function admintopmenu()
Dim rs_1,rs_2,rs_3
Dim t_i,t_ii,t_iii
Dim temp_m
temp_m="<div id=""top_menu"">"
temp_m = temp_m & "<ul id=""nav"" class=""menu_bg""> "
temp_m = temp_m & "<li class=""menu_l""></li>"
sql=Sqlinfo("id,Menu,Ord,urls","Admin_Menu","TopId=0","Ord","2","")
rs_1 = connopen(sql)
If IsArray(rs_1) Then
For t_i=0 To UBound(rs_1,2)
temp_m = temp_m & "<li><a href=""#"" onclick=""menucheck('"&t_i&"','"&rs_1(3,t_i)&"')"" hidefocus=""true"">"&rs_1(1,t_i)&"</a>"
sql=Sqlinfo("id,Menu,Ord,urls","Admin_Menu","TopId="&rs_1(0,t_i),"Ord","2","")
rs_2 = connopen(sql)
If IsArray(rs_2) Then
temp_m = temp_m & vbcrlf &"<ul id=""m_t_"&t_i&"""> " & vbcrlf
For t_ii=0 To UBound(rs_2,2)
sql=Sqlinfo("id,Menu,Ord,urls","Admin_Menu","TopId="&rs_2(0,t_ii),"Ord","2","")
rs_3 = connopen(sql)
If IsArray(rs_3) Then
temp_m = temp_m & "<li class=""nextmenu""><a href=""#"" onclick=""menucheck('"&t_i&"','')"" "&_
"hidefocus=""true"">" & rs_2(1,t_ii)&"</a>" & vbcrlf &"<ul> " & vbcrlf
For t_iii=0 To UBound(rs_3,2)
temp_m = temp_m & "<li><a href=""#"" onclick=""menucheck('"&t_i&"','"&rs_3(3,t_iii)&"')"" "&_
"hidefocus=""true"">" & rs_3(1,t_iii)&"</a></li>" & vbcrlf
Next
temp_m = temp_m & "</ul>" & vbcrlf
Else
temp_m = temp_m & "<li><a href=""#"" onclick=""menucheck('"&t_i&"','"&rs_2(3,t_ii)&"')"" "&_
"hidefocus=""true"">" & rs_2(1,t_ii)&"</a>"
End If
temp_m = temp_m & "</li>" & vbcrlf
Next
temp_m = temp_m & "</ul>" & vbcrlf
End If
temp_m = temp_m & "</li>" & vbcrlf
Next
End If
temp_m = temp_m & "<li><A HREF=""logout.asp"" hidefocus=""true"">退出登陸</A></li>" & vbcrlf
temp_m = temp_m & "<li class=""menu_r""></li>" & vbcrlf
temp_m = temp_m & "</ul>" & vbcrlf
temp_m = temp_m & "</div>" & vbcrlf
admintopmenu=temp_m
End Function
Function admintopHTML()
Dim temp_h
temp_h="{%putinhead%}"
temp_h = temp_h & "<table width=""100%"" height=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
temp_h = temp_h & "<tr><td class=""system_top"">"
temp_h = temp_h & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" >"
temp_h = temp_h & "<tr><td rowspan=""2"" width=""200"" class=""system_logo""> </td>"
temp_h = temp_h & "<td class=""system_post"">"
temp_h = temp_h & "<!-- {%admintopinfozone%} -->"
temp_h = temp_h & "<div id=""scrollWrap""><div id=""scrollMsg"">"
temp_h = temp_h & "<ul>"
temp_h = temp_h & "<li><a href=""http://www.25175.com"">當前程序:25175 學校聚合管理系統 報名管理模塊</a></li> "
temp_h = temp_h & "<li><a href=""http://www.25175.com"">版本:2008 build1112</a></li> "
temp_h = temp_h & "<li><a href=""http://www.25175.com"">官方網站：www.25175.com</a></li> "
temp_h = temp_h & "</ul>"
temp_h = temp_h & "</div></div>"
temp_h = temp_h & "</td>"
temp_h = temp_h & "</tr><tr><td>{%admintopmenu%}</td></tr>"
temp_h = temp_h & "<tr><td colspan=""2"" class=""system_linedot""><div class=""system_ico""></div></td>"
temp_h = temp_h & "</tr></table></td></tr><tr><td>"
temp_h = temp_h & "<TABLE border=0 cellPadding=0 cellSpacing=0 height=""100%"" width=""100%"">"
temp_h = temp_h & "<TBODY><TR>"
temp_h = temp_h & "<TD id=frmTitle vAlign=top name=""fmTitle"" class=""main_left"" style=""display:block;"">"
temp_h = temp_h & "<IFRAME frameBorder=0 id=frmleft name=frmleft width=""190"" height=""100%"" src=""admin_left.html"" class=""left_iframe"" allowTransparency=""true""></IFRAME>"
temp_h = temp_h & "</td><TD class=""mid"">"
temp_h = temp_h & "<TABLE border=0 cellPadding=0 cellSpacing=0 height=""100%"">"
temp_h = temp_h & "<TBODY><TR><TD onClick=""switchSysBar()"" style="" HEIGHT: 100%"">"
temp_h = temp_h & "<SPAN class=navPoint id=switchPoint title=""關閉/打開左欄""><img src=""images/admin_mid_ico_l.gif""></SPAN>"
temp_h = temp_h & "</TD></TR></TBODY></TABLE></TD><TD width=""100%"" vAlign=top>"
temp_h = temp_h & "<IFRAME frameBorder=0 id=frmright width=""100%"" height=""100%"" name=frmright scrolling=yes src=""main.asp"" class=""main_iframe""></IFRAME>"
temp_h = temp_h & "</TD></TR></TBODY></TABLE></td></tr></table></body></html>"
admintopHTML=temp_h
End Function
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -