📄 admin_special.asp
字号:
<!--#include file="Admin_Common.asp"-->
<!--#include file="Admin_CommonCode_Content.asp"-->
<!--#include file="../Include/PowerEasy.FSO.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 = 1 '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "" '其他权限
Dim HtmlDir
Dim ManageType, InfoShortName
FileExt_SiteSpecial = arrFileExt(FileExt_SiteSpecial)
HtmlDir = InstallDir & ChannelDir
ManageType = Trim(Request("ManageType"))
Response.Write "<html><head><title>" & ChannelShortName & "专题管理</title>"
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"
Response.Write "<link href='Admin_Style.css' rel='stylesheet' type='text/css'></head>"
Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>"
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
If ChannelID > 0 Then
Call ShowPageTitle(ChannelName & "管理----专题管理", 10004)
Else
Call ShowPageTitle("全站专题管理", 10004)
End If
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='70' height='30'><strong>管理导航：</strong></td>"
Response.Write " <td>"
Response.Write "<a href='Admin_Special.asp?ChannelID=" & ChannelID & "'>" & ChannelShortName & "专题管理首页</a> | "
Response.Write "<a href='Admin_Special.asp?ChannelID=" & ChannelID & "&Action=Add'>添加" & ChannelShortName & "专题</a> | "
Response.Write "<a href='Admin_Special.asp?ChannelID=" & ChannelID & "&Action=Order'>" & ChannelShortName & "专题排序</a> | "
Response.Write "<a href='Admin_Special.asp?ChannelID=" & ChannelID & "&Action=Unite'>合并" & ChannelShortName & "专题</a> | "
Response.Write "<a href='Admin_Special.asp?ChannelID=" & ChannelID & "&Action=Batch'>批量设置</a>"
If UseCreateHTML > 0 And ObjInstalled_FSO = True Then
Response.Write " | <a href='Admin_Special.asp?ChannelID=" & ChannelID & "&ManageType=HTML'><b>生成HTML管理</b></a>"
End If
Response.Write "</td></tr></table>"
Action = Trim(Request("Action"))
Select Case Action
Case "Add"
Call AddSpecial
Case "SaveAdd"
Call SaveAdd
Case "Modify"
Call Modify
Case "SaveModify"
Call SaveModify
Case "Del"
Call DelSpecial
Case "Clear"
Call ClearSpecial
Case "UpOrder"
Call UpOrder
Case "DownOrder"
Call DownOrder
Case "Unite"
Call ShowUniteForm
Case "UniteSpecial"
Call UniteSpecial
Case "Batch"
Call ShowBatch
Case "DoBatch"
Call DoBatch
Case "Order"
Call ShowOrder
Case "CreateSpecialDir"
Call CreateSpecialDir1
Case "CreateAllSpecialDir"
Call CreateAllSpecialDir
Case "DelSpecialDir"
Call DelSpecialDir1
Case "DelAllSpecialDir"
Call DelAllSpecialDir
Case "CreateJS"
Call CreateJS_Special
Call WriteSuccessMsg("已经成功生成专题JS文件。", ComeUrl)
Case Else
Call main
End Select
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
End If
Response.Write "</body></html>"
Call CloseConn
Sub main()
MaxPerPage = PE_CLng(Trim(Request("MaxPerPage")))
If MaxPerPage <= 0 Then MaxPerPage = 20
strFileName = "Admin_Special.asp?ChannelID=" & ChannelID
If Request("page") <> "" Then
CurrentPage = PE_CLng(Request("page"))
Else
CurrentPage = 1
End If
Dim arrOpenType
arrOpenType = Array("原窗口打开", "新窗口打开")
Response.Write "<br><table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
Response.Write " <tr class='title'>"
Response.Write " <td height='22' align='center'><strong>专题名称</strong></td>"
Response.Write " <td width='80' align='center'><strong>专题目录</strong></td>"
Response.Write " <td width='80' align='center'><strong>打开方式</strong></td>"
Response.Write " <td width='80' align='center'><strong>推荐专题</strong></td>"
Response.Write " <td width='200' align='center'><strong>专题提示</strong></td>"
Response.Write " <td width='100' height='22' align='center'><strong>常规操作</strong></td>"
Response.Write " </tr>"
Dim rsSpecial, sql
sql = "select * from PE_Special where ChannelID=" & ChannelID & " order by OrderID"
Set rsSpecial = Server.CreateObject("Adodb.RecordSet")
rsSpecial.Open sql, Conn, 1, 1
If rsSpecial.BOF And rsSpecial.EOF Then
Response.Write "<tr><td colspan='10' height='50' align='center'>没有任何专题</td></tr>"
totalPut = 0
Else
totalPut = rsSpecial.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
rsSpecial.Move (CurrentPage - 1) * MaxPerPage
Else
CurrentPage = 1
End If
End If
Dim i
i = 0
Do While Not rsSpecial.EOF
Response.Write " <tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
If ChannelID > 0 Then
Response.Write " <td align='center'><a href='Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&ManageType=Special&SpecialID=" & rsSpecial("SpecialID") & "' title='点击进入管理此专题的" & InfoShortName & "'>" & rsSpecial("SpecialName") & "</a></td>"
Else
Response.Write " <td align='center'>" & rsSpecial("SpecialName") & "</td>"
End If
Response.Write " <td width='80' align='center'>" & rsSpecial("SpecialDir") & "</td>"
Response.Write " <td width='80' align='center'>" & arrOpenType(rsSpecial("OpenType")) & "</td>"
Response.Write " <td width='80' align='center'>"
If rsSpecial("IsElite") = True Then
Response.Write "<font color=green>是</font>"
Else
Response.Write "否"
End If
Response.Write "</td>"
Response.Write " <td width='200'>" & PE_HTMLEncode(rsSpecial("Tips")) & "</td>"
If ManageType = "HTML" Then
Response.Write " <td width='240' align='center'>"
Response.Write "<a href='Admin_Create" & ModuleName & ".asp?ChannelID=" & ChannelID & "&Action=CreateSpecial&SpecialID=" & rsSpecial("SpecialID") & "' title='生成本专题的" & InfoShortName & "列表HTML页面'>生成列表页</a> | "
Response.Write "<a href='" & HtmlDir & "/Special/" & rsSpecial("SpecialDir") & "/Index.html' title='查看本专题的" & InfoShortName & "列表HTML页面' target='_blank'>查看列表页</a>"
If Not fso.FolderExists(Server.MapPath(HtmlDir & "/Special/" & rsSpecial("SpecialDir"))) Then
Response.Write " | <a href='Admin_Special.asp?ChannelID=" & ChannelID & "&Action=CreateSpecialDir&SpecialID=" & rsSpecial("SpecialID") & "' title='生成本专题的目录'>生成专题目录</a>"
Else
Response.Write " | <a href='Admin_Special.asp?ChannelID=" & ChannelID & "&Action=DelSpecialDir&SpecialID=" & rsSpecial("SpecialID") & "' title='此操作将删除本专题的目录' onclick=""return confirm('此操作将删除本专题的目录，你可以重新生成目录。');"">删除专题目录</a>"
End If
Else
Response.Write " <td width='100' align='center'>"
Response.Write "<a href='Admin_Special.asp?ChannelID=" & ChannelID & "&action=Modify&SpecialID=" & rsSpecial("SpecialID") & "'>修改</a> "
Response.Write "<a href='Admin_Special.asp?ChannelID=" & ChannelID & "&Action=Del&SpecialID=" & rsSpecial("SpecialID") & "' onClick=""return confirm('确定要删除此专题吗？删除此专题后原属于此专题的" & InfoShortName & "将不属于任何专题。');"">删除</a> "
Response.Write "<a href='Admin_Special.asp?ChannelID=" & ChannelID & "&Action=Clear&SpecialID=" & rsSpecial("SpecialID") & "' onClick=""return confirm('确定要清空此专题中的" & InfoShortName & "吗？本操作将原属于此专题的" & InfoShortName & "改为不属于任何专题。');"">清空</a>"
End If
Response.Write "</td></tr>"
i = i + 1
If i >= MaxPerPage Then Exit Do
rsSpecial.MoveNext
Loop
End If
rsSpecial.Close
Set rsSpecial = Nothing
Response.Write "</table>"
Response.Write ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "个专题", True)
If ManageType = "HTML" Then
Response.Write "<br><table align='center'><tr><form name='form1' action='Admin_Special.asp' method='post'><td>"
Response.Write "<input name='Action' type='hidden' id='Action' value='CreateAllSpecialDir'><input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'><input name='submit' type='submit' value='创建所有专题的目录' style='cursor:hand;'"
If ObjInstalled_FSO = False Then
Response.Write " disabled"
End If
Response.Write "></td></form><form name='form2' action='Admin_Create" & ModuleName & ".asp' method='post'><td><input name='CreateType' type='hidden' value='2'>"
Response.Write "<input name='Action' type='hidden' id='Action' value='CreateSpecial'><input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'><input name='submit' type='submit' value='生成所有专题的" & InfoShortName & "列表页' style='cursor:hand;'"
If ObjInstalled_FSO = False Then
Response.Write " disabled"
End If
Response.Write "></td></form><form name='form4' action='Admin_Special.asp' method='post'><td><input name='ManageType' type='hidden' value='HTML'>"
Response.Write "<input name='Action' type='hidden' id='Action' value='DelAllSpecialDir'><input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'><input name='submit' type='submit' value='删除所有专题的目录' onclick=""return confirm('此操作将删除所有专题的目录，你可以重新生成目录。如果你的系统中的专题列表文件发生混乱，可以使用此功能来删除所有目录，然后重新生成。');"" style='cursor:hand;'"
If ObjInstalled_FSO = False Then
Response.Write " disabled"
End If
Response.Write "></td></form></tr></table><br>"
Response.Write "<b>注意：</b><br> 1、各项生成HTML操作之前，必须确保已经生成所有专题的目录。否则可能会导致生成出错。若专题目录为红色，表示此专题还没有创建相关的目录。请使用“生成专题目录”功能重新创建此专题的目录。"
Response.Write "<br> 2、因为生成操作会耗费大量的服务器资源，并可能需要相当长时间。<font color=red>在生成过程中千万不要刷新页面！！！</font>同时建议大家尽量在网站访问量比较小时进行。并尽量不要使用批量生成功能。"
Else
Response.Write "<table width='100%'><tr><form name='form1' action='Admin_Special.asp' method='post'><td align='center'>"
Response.Write "<input name='Action' type='hidden' id='Action' value='CreateJS'><input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'><input name='submit' type='submit' value='刷新专题JS' style='cursor:hand;'"
If ObjInstalled_FSO = False Then
Response.Write " disabled"
End If
Response.Write "></td></form></tr></table>"
If UseCreateHTML > 0 And ObjInstalled_FSO = True Then
Response.Write "<br><b>注意：</b><br> 若专题目录为红色，表示此专题还没有创建相关的目录。请到“生成HTML管理”页面使用“生成专题目录”功能重新创建此专题的目录。<br>"
End If
End If
End Sub
Sub ShowOrder()
Dim iCount, i, j
Dim rsSpecial, sql
Set rsSpecial = Server.CreateObject("Adodb.RecordSet")
sql = "select * from PE_Special where ChannelID=" & ChannelID & " Order by OrderID"
rsSpecial.Open sql, Conn, 1, 1
iCount = rsSpecial.RecordCount
j = 1
Response.Write "<br><table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
Response.Write " <tr class='title'>"
Response.Write " <td height='22' colspan='4' align='center'><strong>" & ChannelShortName & "专题排序</strong></td>"
Response.Write " </tr>"
Do While Not rsSpecial.EOF
Response.Write " <tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'""> "
Response.Write " <td align='center'>" & rsSpecial("SpecialName") & "</td>"
Response.Write " <form action='Admin_Special.asp?Action=UpOrder' method='post'>"
Response.Write " <td width='120' align='center'>"
If j > 1 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -