开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 查看源码
inc.asp
资源名称：25175bmnet103beta.rar　[点击查看]
上传用户：szhf331
上传日期：2022-06-22
资源大小：1032k
文件大小：7k
源码类别：

行业应用

开发平台：

JavaScript

inc.asp：源码内容
  1. <%
  2. Dim Login_Judges
  3. Dim admin25175,admin25175_time
  4. Sub Login_Judge()
  5. Dim errmsg
  6. Login_Judges=False
  7. If session("admin25175")="" Then
  8. If request.cookies("admin25175")("xx")<>"" And md5(request.cookies("admin25175")("xx")&"||"&siteinfo(5,0))=request.cookies("admin25175")("info") Then
  9. admin25175=Split(request.cookies("admin25175")("xx"),"||")
  10. admin25175_time=request.cookies("admin25175")("Effective")
  11. Login_Judges=True
  12. End If
  13. Else
  14. admin25175=Split(session("admin25175"),"||")
  15. admin25175_time=session("admin25175_Effective")
  16. Login_Judges=True
  17. End If
  18. If Login_Judges=False Then 
  19. response.write"<title>"&sitename&"</title>"
  20. errmsg="<li>你还没有登陆，或者登陆超时！！！<a href='login.asp'><b>请重新登陆"&sitename&"</b></a>1<li>"
  21. errormsg errmsg
  22. End If 
  23. End Sub
  24. Sub exe(str1)
  25. execute(str1)
  26. End Sub 
  27. Sub Ispower(Nowpower)
  28. If Replace(admin25175(3),"*"&CStr(Nowpower)&"*","")=admin25175(3) Then 
  29. errormsg "您还没有权限进行当前操作,请与管理员联系!" 
  30. End If
  31. End Sub
  32. Sub restit(str1,str2)
  33. res "<h1>"&str1&str2&"</h1>",1
  34. End Sub 
  35. Sub putindexinfos()
  36. Dim temp_index
  37. temp_index = admintopHTML
  38. temp_index = Replace(temp_index,"{%admintopmenu%}",admintopmenu)
  39. temp_index = Replace(temp_index,"{%putinhead%}",putinhead)
  40. res temp_index,0
  41. End Sub
  42. Function putinhead()
  43. Dim temp_h
  44. temp_h =  "<html xmlns=""http://www.w3.org/1999/xhtml"">" &_
  45. "<head><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"" />" &_
  46. "<title>后台管理</title>" &_
  47. "<this. rel=""stylesheet"" type=""text/css"" href=""images/index.css"">" &_
  48. "<Script Language=""JavaScript"" type=""text/JavaScript"" src=""inc/index.js""></script>" &_
  49. "</head><body>"
  50. putinhead = temp_h
  51. End Function
  53. Function w3chead(strs)
  54. Dim temp_str
  55. temp_str =" <!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd""> " &_
  56. "<html xmlns=""http://www.w3.org/1999/xhtml""> " &_
  57. "<head> " &_
  58. "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"" /> " &_
  59. "<title>学生系统后台管理</title> " &_
  60. "<META NAME=""Generator"" CONTENT=""EditPlus""> " &_
  61. "<META NAME=""Author"" CONTENT=""hayden""> " &_
  62. "<META NAME=""Keywords"" CONTENT=""""> " &_
  63. "<META NAME=""Description"" CONTENT=""""> " &_
  64. script("admin","") &_
  65. script("showpage","") &_
  66. css("css","") &_
  67. css("admin_file_css","") &_
  68. strs &_
  69. "</HEAD> " &_
  70. "<BODY> "
  71. w3chead = temp_str
  72. End Function
  74. Function footer(str1)
  75. Set conn=Nothing
  76. footer=""
  77. If str1=1 Then footer="<H1>&nbsp;</H1>"
  78. footer=footer & "</body></html>"
  79. End Function 
  81. Function script(str1,str2)
  82. If str2<>"" Then
  83. str2=str2 & "/"
  84. Else
  85. str2="inc/"
  86. End If 
  87. script = "<script src="""& str2 & str1 &".js"" type=""text/javascript""></script>"
  88. End Function
  90. Function css(str1,str2)
  91. If str2<>"" Then
  92. str2=str2 & "/"
  93. Else
  94. str2="images/"
  95. End If 
  96. css = "<this. href="""&str2 & str1&".css"" type=""text/css"" rel=""stylesheet"" />"
  97. End Function
  99. Function admintopmenu()
  100. Dim rs_1,rs_2,rs_3
  101. Dim t_i,t_ii,t_iii
  102. Dim temp_m
  103. temp_m="<div id=""top_menu"">"
  104. temp_m = temp_m & "<ul id=""nav"" class=""menu_bg""> "
  105. temp_m = temp_m & "<li class=""menu_l""></li>"
  106. sql=Sqlinfo("id,Menu,Ord,urls","Admin_Menu","TopId=0","Ord","2","")
  107. rs_1 = connopen(sql)
  108. If IsArray(rs_1) Then
  109. For t_i=0 To UBound(rs_1,2)
  110. temp_m = temp_m & "<li><a href=""#"" onclick=""menucheck('"&t_i&"','"&rs_1(3,t_i)&"')"" hidefocus=""true"">"&rs_1(1,t_i)&"</a>"
  111. sql=Sqlinfo("id,Menu,Ord,urls","Admin_Menu","TopId="&rs_1(0,t_i),"Ord","2","")
  112. rs_2 = connopen(sql)
  113. If IsArray(rs_2) Then
  114. temp_m = temp_m &  vbcrlf &"<ul id=""m_t_"&t_i&"""> " & vbcrlf 
  115. For t_ii=0 To UBound(rs_2,2)
  116. sql=Sqlinfo("id,Menu,Ord,urls","Admin_Menu","TopId="&rs_2(0,t_ii),"Ord","2","")
  117. rs_3 = connopen(sql)
  118. If IsArray(rs_3) Then
  119. temp_m = temp_m & "<li class=""nextmenu""><a href=""#"" onclick=""menucheck('"&t_i&"','')"" "&_
  120. "hidefocus=""true"">" & rs_2(1,t_ii)&"</a>" & vbcrlf &"<ul> " & vbcrlf 
  121. For t_iii=0 To UBound(rs_3,2)
  122. temp_m = temp_m & "<li><a href=""#"" onclick=""menucheck('"&t_i&"','"&rs_3(3,t_iii)&"')"" "&_
  123. "hidefocus=""true"">" & rs_3(1,t_iii)&"</a></li>" & vbcrlf
  124. Next
  125. temp_m = temp_m & "</ul>" & vbcrlf
  126. Else
  127. temp_m = temp_m & "<li><a href=""#"" onclick=""menucheck('"&t_i&"','"&rs_2(3,t_ii)&"')"" "&_
  128. "hidefocus=""true"">" & rs_2(1,t_ii)&"</a>"
  129. End If 
  130. temp_m = temp_m & "</li>" & vbcrlf
  131. Next
  132. temp_m = temp_m & "</ul>" & vbcrlf
  133. End If 
  134. temp_m = temp_m & "</li>" & vbcrlf
  135. Next
  136. End If 
  137. temp_m = temp_m & "<li><A HREF=""logout.asp"" hidefocus=""true"">退出登陆</A></li>" & vbcrlf
  138. temp_m = temp_m & "<li class=""menu_r""></li>" & vbcrlf
  139. temp_m = temp_m & "</ul>" & vbcrlf
  140. temp_m = temp_m & "</div>" & vbcrlf
  141. admintopmenu=temp_m
  142. End Function
  144. Function admintopHTML()
  145. Dim temp_h
  146. temp_h="{%putinhead%}"
  147. temp_h = temp_h & "<table width=""100%"" height=""100%"" border=""1"" cellspacing=""0"" cellpadding=""0"">"
  148. temp_h = temp_h & "<tr><td height=""85"" class=""system_top"">"
  149. temp_h = temp_h & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
  150. temp_h = temp_h & "<tr><td rowspan=""2"" width=""200"" class=""system_logo"">&nbsp;</td>"
  151. temp_h = temp_h & "<td class=""system_post"">"
  152. temp_h = temp_h & "<!-- {%admintopinfozone%} -->"
  153. temp_h = temp_h & "<div id=""scrollWrap""> "
  154. temp_h = temp_h & "<div id=""scrollMsg""> "
  155.  temp_h = temp_h & "<ul> "
  156.  temp_h = temp_h & "<li><a href=""http://www.25175.com"">当前程序:25175 学生档案管理系统</a></li> "
  157.  temp_h = temp_h & "<li><a href=""http://www.25175.com"">版本:2009 build1015</a></li> "
  158.  temp_h = temp_h & "<li><a href=""http://www.25175.com"">官方网站：www.25175.com</a></li> "
  159.  temp_h = temp_h & "</ul> "
  160. temp_h = temp_h & "</div> "
  161. temp_h = temp_h & "</div></td>"
  162. temp_h = temp_h & "</tr><tr><td class=""system_post"">{%admintopmenu%}</td></tr><tr>"
  163. temp_h = temp_h & "<td colspan=""2"" class=""system_linedot""><div class=""system_ico""></div></td>"
  164. temp_h = temp_h & "</tr></table></td></tr><tr><td>"
  165. temp_h = temp_h & "<TABLE border=0 cellPadding=0 cellSpacing=0 height=""100%"" width=""100%"">"
  166. temp_h = temp_h & "<TBODY><TR>"
  167. temp_h = temp_h & "<TD id=frmTitle vAlign=top name=""fmTitle"" class=""main_left"" style=""display:block;"">"
  168. 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>"
  169. temp_h = temp_h & "</td><TD class=""mid"">"
  170. temp_h = temp_h & "<TABLE border=0 cellPadding=0 cellSpacing=0 height=""100%"">"
  171. temp_h = temp_h & "<TBODY><TR><TD onClick=""switchSysBar()"" style="" HEIGHT: 100%"">"
  172. temp_h = temp_h & "<SPAN class=navPoint id=switchPoint title=""关闭/打开左栏""><img src=""images/admin_mid_ico_l.gif""></SPAN>"
  173. temp_h = temp_h & "</TD></TR></TBODY></TABLE></TD><TD width=""100%"" vAlign=top>"
  174. temp_h = temp_h & "<IFRAME frameBorder=0 id=frmright width=""100%"" height=""100%"" name=frmright scrolling=yes src=""main.asp"" class=""main_iframe""></IFRAME>"
  175. temp_h = temp_h & "</TD></TR></TBODY></TABLE></td></tr></table></body></html>"
  176. admintopHTML=temp_h
  177. End Function
  178. %>