📄 admin_page.asp
字号:
<!--#include file="Admin_Common.asp"-->
<!--#include file="../Include/PowerEasy.Class.asp"-->
<!--#include file="../Include/PowerEasy.Special.asp"-->
<!--#include file="../Include/PowerEasy.Article.asp"-->
<!--#include file="../Include/PowerEasy.Soft.asp"-->
<!--#include file="../Include/PowerEasy.Photo.asp"-->
<!--#include file="../Include/PowerEasy.Product.asp"-->
<!--#include file="../Include/PowerEasy.FSO.asp"-->
<!--#include file="../Include/PowerEasy.Common.Front.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
Const NeedCheckComeUrl = True '是否需要检查外部访问
Const PurviewLevel = 2 '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 0 '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "Label" '其他权限
Response.Write "<html><head><title>自定义页面管理</title>" & vbCrLf
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
Response.Write "<link href='Admin_Style.css' rel='stylesheet' type='text/css'>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
Call ShowPageTitle("自 定 义 页 面 管 理", 10027)
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='70' height='30' ><strong>管理导航：</strong></td><td>"
Response.Write "<a href='Admin_Page.asp'>自定义页面管理首页</a> | "
Response.Write "<a href='Admin_Page.asp?Action=AddClass'>添加自定义分类</a> | "
Response.Write "<a href='Admin_Page.asp?Action=AddPage'>添加自定义页面</a> | "
Response.Write "<a href='Admin_Page.asp?Action=import'>导入自定义分类</a> | "
Response.Write "<a href='Admin_Page.asp?Action=export'>导出自定义分类</a> | "
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
strFileName = "Admin_Page.asp"
Select Case Action
Case "AddClass"
Call AddClass
Case "ModifyClass"
Call ModifyClass
Case "SaveClass", "SaveModifyClass"
Call SaveClass
Case "DelClass"
Call DelClass
Case "ListPage"
Call ListPage
Case "AddPage"
Call AddPage
Case "ModifyPage"
Call ModifyPage
Case "SavePage", "SaveModifyPage"
Call SavePage
Case "DelPage"
Call DelPage
Case "CreateFile"
Call CreateFile("")
Case "CreateClassFile"
Call CreateClassFile
Case "import"
Call Import
Case "import2"
Call import2
Case "Doimport"
Call DoImport
Case "export"
Call Export
Case "Doexport"
Call DoExport
Case Else
Call main
End Select
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
End If
If Action = "DelClass" Or Action = "DelPage" Or Action = "CreateFile" Or Action = "CreateClassFile" Then
Response.Redirect ComeUrl
Else
Response.Write "</body></html>"
End If
Call CloseConn
Sub main()
Dim sqlClass, rsClass, ClassName, rsPage, UseAsp
Dim iCount
UseAsp = False
Response.Write "<form name='myform' method='post' action=''>"
Set rsClass = Server.CreateObject("Adodb.RecordSet")
sqlClass = "select ID,ClassName,ClassIntro,ClassType from PE_PageClass Order by ID"
rsClass.Open sqlClass, Conn, 1, 1
If rsClass.BOF And rsClass.EOF Then
rsClass.Close
Set rsClass = Nothing
Response.Write "<center>尚未添加分类！</center>"
Exit Sub
End If
totalPut = rsClass.RecordCount
If CurrentPage < 1 Then
CurrentPage = 1
End If
If (CurrentPage - 1) * MaxPerPage > totalPut Then
If (totalPut Mod MaxPerPage) = 0 Then
CurrentPage = totalPut \ MaxPerPage
Else
CurrentPage = totalPut \ MaxPerPage + 1
End If
End If
If CurrentPage > 1 Then
If (CurrentPage - 1) * MaxPerPage < totalPut Then
rsClass.Move (CurrentPage - 1) * MaxPerPage
Else
CurrentPage = 1
End If
End If
Do While Not rsClass.EOF
Response.Write "<table width='100%' border='0' cellspacing='1' cellpadding='2' class='border'>"
Response.Write " <tr align='center' class='title'><td width='50' height='22'>分类：" & rsClass("ID") & "</td><td width='200' height='22'>分类名称：<a href='Admin_Page.asp?Action=ListPage&ClassName=" & rsClass("ClassName") & "'>" & rsClass("ClassName") & "</a></td><td width='160' height='22'>"
If rsClass("ClassType") = 0 Then
Response.Write "系统分类"
Else
Response.Write "自定义分类"
End If
Response.Write "</td><td><a href='Admin_Page.asp?Action=ListPage&ClassName=" & rsClass("ClassName") & "'>" & PE_HTMLEncode(rsClass("ClassIntro")) & "</a></td>"
Response.Write "<td width='210' align='center'><a href='Admin_Page.asp?Action=CreateClassFile&ClassID=" & rsClass("ID") & "'>生成本类</a> <a href='Admin_Page.asp?Action=ModifyClass&ClassID=" & rsClass("ID") & "'>修改</a> <a href='Admin_Page.asp?Action=AddPage&ClassName=" & rsClass("ClassName") & "'>增加子页面</a> <a href='Admin_Page.asp?Action=DelClass&ClassID=" & rsClass("ID") & "' onclick=""return confirm('真的要删除此分类吗？');"">删除</a> </td></tr>"
Set rsPage = Conn.Execute("select ID,PageName,PageUrl,PageFileName,PageIntro from PE_Page Where ClassName='" & rsClass("ClassName") & "' Order by ID")
If Not (rsPage.BOF And rsPage.EOF) Then
Response.Write "<tr bgColor='#dddddd' align='center'><td>ID</td><td>页面名称</td><td>页面地址</td><td>简介</td><td>操作</td></tr>"
Do While Not rsPage.EOF
Response.Write " <tr class='tdbg' align='center' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
Response.Write " <td>" & rsPage("ID") & "</td>"
Response.Write " <td>" & rsPage("PageName") & "</td>"
If Trim(rsPage("PageFileName") & "") = "" Then
Response.Write "<td><a href='" & InstallDir & "showpage.asp?id=" & rsPage("ID") & "' target='_blank'>" & InstallDir & "showpage.asp?id=" & rsPage("ID") & "</a></td>"
Response.Write "<td>" & PE_HTMLEncode(rsPage("PageIntro")) & " </td><td>"
Else
On Error Resume Next
If ObjInstalled_FSO = True And rsPage("PageFileName") <> "" Then
If fso.FileExists(Server.MapPath(Replace(rsPage("PageUrl"), "{$InstallDir}", InstallDir) & rsPage("PageFileName"))) Then
Response.Write "<td><a href='" & Replace(rsPage("PageUrl"), "{$InstallDir}", InstallDir) & rsPage("PageFileName") & "' target='_blank'>" & Replace(rsPage("PageUrl"), "{$InstallDir}", InstallDir) & rsPage("PageFileName") & "</a></td>"
Response.Write "<td>" & PE_HTMLEncode(rsPage("PageIntro")) & " "
If Err Then
Response.Write "<font color=red><b>未生成</b></font>"
Else
Response.Write "<b><a href='" & Replace(rsPage("PageUrl"), "{$InstallDir}", InstallDir) & rsPage("PageFileName") & "' target='_blank'>已生成</a></b>"
End If
Else
Response.Write "<td>" & Replace(rsPage("PageUrl"), "{$InstallDir}", InstallDir) & rsPage("PageFileName") & "</td>"
Response.Write "<td>" & PE_HTMLEncode(rsPage("PageIntro")) & " "
Response.Write "<font color=red><b>未生成</b></font>"
End If
Else
Response.Write "<td>" & Replace(rsPage("PageUrl"), "{$InstallDir}", InstallDir) & rsPage("PageFileName") & "</td>"
Response.Write "<td>" & PE_HTMLEncode(rsPage("PageIntro")) & " "
Response.Write "<font color=red><b>未生成</b></font>"
End If
Response.Write "</td><td>"
If ObjInstalled_FSO = False Then
Response.Write "<font color=red>FSO错</font> "
ElseIf Err Then
Response.Write "<font color=red>路径错</font> "
Else
Response.Write "<a href='Admin_Page.asp?Action=CreateFile&PageID=" & rsPage("ID") & "'>生成本页</a> "
End If
Err.Clear
End If
Response.Write "<a href='Admin_Page.asp?Action=ModifyPage&PageID=" & rsPage("ID") & "'>修改</a> "
Response.Write "<a href='Admin_Page.asp?Action=DelPage&PageID=" & rsPage("ID") & "' onclick=""return confirm('真的要删除此页面吗？');"">删除</a> "
Response.Write "</td></tr>"
rsPage.movenext
Loop
Else
Response.Write "<tr bgColor='#dddddd' align='center'><td colspan='5'>本分类尚未添加页面</td></tr>"
End If
rsPage.Close
iCount = iCount + 1
If iCount >= MaxPerPage Then Exit Do
Response.Write "</table><br>"
rsClass.movenext
Loop
rsClass.Close
Set rsClass = Nothing
Set rsPage = Nothing
Response.Write "</form>"
Response.Write ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "个分类", True)
End Sub
Sub ListPage()
Dim sqlPage, rsPage, rsClass, ClassName
Dim iCount
ClassName = Trim(Request("ClassName"))
If ClassName = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<br><li>参数丢失！</li>"
Exit Sub
Else
ClassName = ReplaceBadChar(ClassName)
Set rsClass = Conn.Execute("select ClassName from PE_PageClass Where ClassName='" & ClassName & "'")
If rsClass.BOF And rsClass.EOF Then
rsClass.Close
Set rsClass = Nothing
FoundErr = True
ErrMsg = ErrMsg & "<br><li>尚未添加分类" & ClassName & "！</li>"
Exit Sub
End If
rsClass.Close
Set rsClass = Nothing
End If
Response.Write "<form name='myform' method='post' action=''>"
Response.Write "<table width='100%' border='0' cellspacing='1' cellpadding='2' class='border'>"
Response.Write " <tr align='center' class='title'>"
Response.Write " <td width='40' height='22'>页面ID</td>"
Response.Write " <td width='120' height='22'>页面名称</td>"
Response.Write " <td width='200' height='22'>页面地址</td>"
Response.Write " <td>简介</td>"
Response.Write " <td width='50' height='22'>已生成</td>"
Response.Write " <td width='180' align='center'>操作</td>"
Response.Write " </tr>"
Set rsPage = Server.CreateObject("Adodb.RecordSet")
sqlPage = "select * from PE_Page Where ClassName='" & ClassName & "' Order by ID"
rsPage.Open sqlPage, Conn, 1, 1
If rsPage.BOF And rsPage.EOF Then
rsPage.Close
Set rsPage = Nothing
Response.Write "<tr><td colspan='7' align='center'>本分类尚未添加自定义页面！</td></tr>"
Exit Sub
End If
totalPut = rsPage.RecordCount
If CurrentPage < 1 Then
CurrentPage = 1
End If
If (CurrentPage - 1) * MaxPerPage > totalPut Then
If (totalPut Mod MaxPerPage) = 0 Then
CurrentPage = totalPut \ MaxPerPage
Else
CurrentPage = totalPut \ MaxPerPage + 1
End If
End If
If CurrentPage > 1 Then
If (CurrentPage - 1) * MaxPerPage < totalPut Then
rsPage.Move (CurrentPage - 1) * MaxPerPage
Else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -