📄 admin_index.asp

📁 大型黄页系统,精美黄页flash演示,10m
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
	Response.Write "</font></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=20>身&nbsp;&nbsp;份：<font color=red>"
	Select Case Session(DownsysClass.CacheName & "Flag")
		Case 0
			Response.Write "管理员"
		Case 1
			Response.Write "系统CEO"
	End Select
	Response.Write " </font></td>" & vbCrLf
	Response.Write " </tr></table></td>" & vbCrLf
	Response.Write " </table>" & vbCrLf
	Response.Write " <div style=""width:158""> " & vbCrLf
	Response.Write " <table cellpadding=0 cellspacing=0 align=center width=135>" & vbCrLf
	Response.Write " <tr>" & vbCrLf
	Response.Write " <td height=10></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " </table>" & vbCrLf
	Response.Write " </div>" & vbCrLf
	For i = 0 To UBound(menu, 1)
		Response.Write "<table cellpadding=0 cellspacing=0 width=158 align=center>" & vbCrLf
		Response.Write " <tr style=""CURSOR: hand"">" & vbCrLf
		Response.Write " <td height=25 class=menu_title id=menuTitle"&i + 1&" onmouseover=""this.className='menu_title2';"" onclick=menuChange(menu"&i + 1&","&vHeight(i)&",menuTitle"&i + 1&"); onmouseout=""this.className='menu_title';"" "
		If i = 0 Then
			Response.Write " background=""images/title_bg_hide.gif"">"
		Else
			Response.Write " background=""images/title_bg_show.gif"">"
		End If
		Response.Write Chr(9) & " <span>"
		Response.Write menu(i, 0)
		Response.Write "</span>" & vbCrLf
		Response.Write Chr(9) & "</td>" & vbCrLf
		Response.Write " </tr>" & vbCrLf
		Response.Write " <tr>" & vbCrLf
		Response.Write " <td> " & vbCrLf
		Response.Write "<div class=sec_menu id=menu"&i + 1&" "
		If i = 0 Then
			Response.Write "style=""FILTER: alpha(Opacity=100); OVERFLOW: hidden; WIDTH: 158px; HEIGHT: 100px"">"
		Else
			Response.Write "style=""DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 158px; HEIGHT: 0px"">" & vbCrLf
		End If
		Response.Write "<table style=""POSITION: relative; TOP: 10px"" cellpadding=0 cellspacing=0 align=center width=135>" & vbCrLf
		Response.Write Chr(9)
		For j = 1 To UBound(menu, 2)
			If IsEmpty(menu(i, j)) Then Exit For
			Response.Write "<tr><td height=20><img src=""images/bullet.gif"" border=0>"
			Response.Write menu(i, j)
			Response.Write "</td></tr>" & vbCrLf
		Next
		Response.Write "</table>" & vbCrLf
		Response.Write Chr(9) & " </div>" & vbCrLf
		Response.Write Chr(9) & "</td>" & vbCrLf
		Response.Write " </tr>" & vbCrLf
		Response.Write "</table>" & vbCrLf
		If i = 0 Then
			Response.Write "<SCRIPT language=javascript>"& vbCrLf
			Response.Write "  var whichOpen=menuTitle1;"& vbCrLf
			Response.Write "  var whichContinue='';"& vbCrLf
			Response.Write "</SCRIPT>"& vbCrLf
		End If
	Next
	Response.Write "<table cellpadding=0 cellspacing=0 width=158 align=center>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background=""images/admin_left_2.gif"" id=menuTitle10> " & vbCrLf
	Response.Write " <span>系统信息</span> </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td> <div class=sec_menu style=""width:158""> " & vbCrLf
	Response.Write " <table cellpadding=0 cellspacing=0 align=center width=135>" & vbCrLf
	Response.Write " <tr>" & vbCrLf
	Response.Write " <td height=20>" & vbCrLf
	Response.Write " 版权所有：<BR>" & vbCrLf
	Response.Write " 黑龙江大黄页<BR>" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " </table>" & vbCrLf
	Response.Write " </div></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " </table><BR>" & vbCrLf
End Sub

Private Sub admin_main()
	Dim theInstalledObjects(4)
	Dim NC_Object
	theInstalledObjects(0) = "DownloadClassAsp.DownSysObject"
	theInstalledObjects(1) = "Scripting.FileSystemObject"
	theInstalledObjects(2) = "adodb.connection"
	theInstalledObjects(3) = "JMail.SMTPMail"
	theInstalledObjects(4) = "CDONTS.NewMail"
	DownsysClass.admin_header
	Response.Write "<table cellpadding=""2"" cellspacing=""1"" border=""0"" width=""96%"" class=""tableBorder"" align=center>" & vbCrLf
	Response.Write "<tr><th colspan=2 height=25>系统信息统计</th></tr>" & vbCrLf
	Response.Write "<tr><td class=BodyTitle colspan=2 height=23 style=""FONT-SIZE: 9pt; FILTER: dropshadow(color=#FFFFFF,offx=1,offy=1); COLOR: #000000;"">系统信息："
	Set Rs = DownsysClass.Execute("select count(*) from NC_SoftInfo")
	Response.Write "共有信息数：<B>" & Rs(0) & "</B> "
	Rs.Close
	Set Rs = DownsysClass.Execute("select count(*) from NC_Article")
	Response.Write "共有文章数：<B>" & Rs(0) & "</B> "
	Rs.Close
	Set Rs = DownsysClass.Execute("select count(*) from NC_User")
	Response.Write "共有注册用户：<B>" & Rs(0) & "</B> "
	Rs.Close
	Response.Write "</td></tr>" & vbCrLf
	Response.Write "<tr><td width=""50%"" class=""forumRowHighlight"" height=23>服务器类型："
	Response.Write Request.ServerVariables("OS")
	Response.Write "(IP:"
	Response.Write Request.ServerVariables("LOCAL_ADDR")
	Response.Write ")</td>" & vbCrLf
	Response.Write "<td width=""50%"" class=""forumRow"">脚本解释引擎："
	Response.Write ScriptEngine & "/" & ScriptEngineMajorVersion & "." & ScriptEngineMinorVersion & "." & ScriptEngineBuildVersion
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td width=""50%"" class=""forumRowHighlight"" height=23>站点物理路径："
	Response.Write Request.ServerVariables("APPL_PHYSICAL_PATH")
	Response.Write "</td>" & vbCrLf
	Response.Write "<td width=""50%"" class=""forumRow"">信息管理组件："
	If Not IsObjInstalled(theInstalledObjects(0)) Then
		Response.Write "<font color=""#FF0066""><b>×</b></font>" & vbCrLf
	Else
		Set NC_Object = CreateObject("DownloadClassAsp.DownSysObject")
		Response.Write "<b>√</b> 版本:" & vbCrLf
		Response.Write NC_Object.Version
		Set NC_Object = Nothing
	End If
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td width=""50%"" class=""forumRowHighlight"" height=23>FSO文本读写："
	If Not IsObjInstalled(theInstalledObjects(1)) Then
		Response.Write "<font color=""#FF0066""><b>×</b></font>"
	Else
		Response.Write "<b>√</b>"
	End If
	Response.Write "</td>" & vbCrLf
	Response.Write "<td width=""50%"" class=""forumRow"">数据库使用："
	If Not IsObjInstalled(theInstalledObjects(2)) Then
		Response.Write "<font color=""#FF0066""><b>×</b></font>"
	Else
		Response.Write "<b>√</b>"
	End If
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr>" & vbCrLf
	Response.Write "<td width=""50%"" class=""forumRowHighlight"" height=23>Jmail组件支持："
	If Not IsObjInstalled(theInstalledObjects(3)) Then
		Response.Write "<font color=""#FF0066""><b>×</b></font>"
	Else
		Response.Write "<b>√</b>"
	End If
	Response.Write "</td>" & vbCrLf
	Response.Write "<td width=""50%"" class=""forumRow"">CDONTS组件支持："
	If Not IsObjInstalled(theInstalledObjects(4)) Then
		Response.Write "<font color=""#FF0066""><b>×</b></font>"
	Else
		Response.Write "<b>√</b>"
	End If
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "<tr><td colspan=2 class=""forumRow"" height=25><B>快捷操作选项：</B>"
	Response.Write " <a href=admin_setting.asp>网站基本设置</a>&nbsp;"
	Response.Write " <a href=admin_setting.asp?action=reload>重建系统缓存</a>&nbsp;"
	Response.Write " <a href=admin_softupdate.asp>更新信息数据</a>&nbsp;"
	Response.Write " <a href=admin_articleupdate.asp>更新文章数据</a>&nbsp;"
	Response.Write " <a href=admin_template.asp>模板样式总管理</a>"
	Response.Write "</td></tr>" & vbCrLf
	Response.Write "</table>" & vbCrLf
	Response.Write "<BR>" & vbCrLf
	Response.Write " <table cellpadding=""3"" cellspacing=""1"" border=""0"" width=""100%"" class=""tableBorder"" align=center>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <th colspan=2 height=25>信息系统管理说明</th>" & vbCrLf
	Response.Write " </tr> " & vbCrLf
	Response.Write " <tr>" & vbCrLf
	Response.Write " <td width=""60"" class=""forumRowHighlight"" height=23>站　长</td>" & vbCrLf
	Response.Write " <td class=""forumRow"" style=""LINE-HEIGHT: 150%"">拥有所有权限。<BR>第一次使用时请到<font color=Red>用户管理</font>-<a href=admin_password.asp target=main><font color=Red>管理员密码修改</font></A>重新设置管理密码</td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td class=""forumRowHighlight"" height=23>管理员</td>" & vbCrLf
	Response.Write " <td class=""forumRow"" style=""LINE-HEIGHT: 150%"">需要站长给予权限。<BR>注:<a href=admin_webmaster.asp><font color=Red>在管理员管理－设置权限!</font></A><br>" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr> " & vbCrLf
	Response.Write " <td class=""forumRowHighlight"" height=23>会　员</td>" & vbCrLf
	Response.Write " <td class=""forumRow"" style=""LINE-HEIGHT: 150%""><li>会员分为普通会员、高级会员</li>" & vbCrLf
	Response.Write " <li>两者都没有管理权限，只可以信息本站相应的信息。</li>" & vbCrLf
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write "</table><BR>" & vbCrLf
	DownsysClass.admin_footer
End Sub

Private Function IsObjInstalled(strClassString)
	Dim xTestObj
	On Error Resume Next
	IsObjInstalled = False
	Err = 0
	Set xTestObj = Server.CreateObject(strClassString)
	If 0 = Err Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function
%>
上一页 12
⌨️ 快捷键说明

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