📄 admin_channel.asp
字号:
<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
Admin_header
'=====================================================================
' 软件名称：四博CMS网站管理系统 2008 sp3
' 当前版本：dincoo.com
' 文件名称：admin_channel.asp
' 更新日期：2006-11-20
' 官方网站：新云网络(www.newasp.net) QQ：94022511
'=====================================================================
' Copyright 2003-2007 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
Response.Write "<script language = JavaScript>" & vbCrLf
Response.Write "function ChannelSetting(n){" & vbCrLf
Response.Write " if (n == 1){" & vbCrLf
Response.Write " ChannelSetting1.style.display='none';" & vbCrLf
Response.Write " ChannelSetting2.style.display='';" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " else{" & vbCrLf
Response.Write " ChannelSetting1.style.display='';" & vbCrLf
Response.Write " ChannelSetting2.style.display='none';" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<table border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""TableBorder"">"
Response.Write " <tr>"
Response.Write " <th colspan=""2"">站点频道管理</th>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td width=""100%"" class=TableRow2 colspan=2><b>管理选项：</b><a href=admin_channel.asp>管理首页</a>"
Response.Write " | <a href=?action=add>添加频道</a> | "
Dim Rsm,ModuleName,strModuleName,sChannelID,NewChannelID
Set Rsm = Newasp.Execute("SELECT ChannelID,ModuleName From NC_Channel WHERE ChannelType < 2 ORDER BY orders ASC")
Do While Not Rsm.EOF
Response.Write "<a href=?action=edit&ChannelID="
Response.Write Rsm("ChannelID")
Response.Write ">"
Response.Write Rsm("ModuleName")
Response.Write "设置</a> | "
strModuleName = strModuleName & Rsm("ModuleName") & "|||"
sChannelID = sChannelID & Rsm("ChannelID") & "|||"
Rsm.movenext
Loop
Set Rsm = Nothing
Response.Write "<a href=?action=orders>频道排序</a>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "<br>"
Dim Action,ChannelDir,TitleColor,mChannelDir,mChannelID
Dim i,RsObj
Action = LCase(Newasp.RemoveBadCharacters(Request("action")))
If Not ChkAdmin("Channel") Then
Server.Transfer("showerr.asp")
Response.End
End If
Select Case Trim(Action)
Case "savenew"
Call SavenewChannel
Case "savedit"
Call SaveditChannel
Case "add"
Call ChannelAdd
Case "edit"
Call ChannelEdit
Case "del"
Call ChannelDel
Case "orders"
Call ChannelOrders
Case "saveorder"
Call SaveOrder
Case "stopchannel"
Call UpdateStop
Case "ishidden"
Call UpdateHidden
Case "linktarget"
Call UpdateLinkTarget
Case "createhtml"
Call UpdateCreateHtml
Case "reload"
Call ReloadChannelCache
Case Else
Call showmain
End Select
If FoundErr = True Then
ReturnError(ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
CloseConn
Private Sub showmain()
Response.Write "<table border=""0"" align=""center"" cellspacing=""1"" cellpadding=""3"" class=""TableBorder"">"
Response.Write " <tr align=""center"">"
Response.Write " <th>频道ID</th>"
Response.Write " <th>频道名称</th>"
Response.Write " <th>频道类型</th>"
Response.Write " <th>频道状态</th>"
Response.Write " <th>是否HTML</th>"
Response.Write " <th>名称状态</th>"
Response.Write " <th>连接目标</th>"
Response.Write " <th>管理选项</th>"
Response.Write " </tr>"
SQL = "SELECT * FROM NC_Channel ORDER BY orders"
Set Rs = Newasp.Execute(SQL)
Newasp.SqlQueryNum = Newasp.SqlQueryNum + 1
Do While Not Rs.EOF
Response.Write " <tr align=""center"">"
Response.Write " <td class=""TableRow1"">" & Rs("ChannelID") & "</td>"
Response.Write " <td class=""TableRow2"">"
Response.Write ("<a href=?action=edit&ChannelID=" & Rs("ChannelID") & " title=修改此频道设置>")
Response.Write (Newasp.ReadFontMode(Rs("ChannelName"),Rs("ColorModes"),Rs("FontModes")))
Response.Write ("</a>")
Response.Write " </td>"
Response.Write " <td class=""TableRow1"" align=""center"">"
If Rs("ChannelType") = 0 Then
Response.Write ("<font color=blue>系统频道")
Elseif Rs("ChannelType") = 1 Then
Response.Write ("<font color=green>内部频道")
Else
Response.Write ("<font color=red>外部频道")
End If
Response.Write ("<font>")
Response.Write ("</td>")
If Rs("ChannelType") < 2 Then
Response.Write ("<td class=""TableRow2"" align=""center"">")
If Rs("StopChannel") <> 0 Then
Response.Write ("<a href=?action=StopChannel&ChannelID=" & Rs("ChannelID") & "&EditID=0 title=""切换到：打开此频道""><font color=red>关闭<font></a>")
Else
Response.Write ("<a href=?action=StopChannel&ChannelID=" & Rs("ChannelID") & "&EditID=1 title=""切换到：关闭此频道"">打开</a>")
End If
Response.Write " </td>"
Response.Write " <td class=""TableRow1"" align=""center"">"
If Rs("IsCreateHtml") = 0 Then
If Rs("ChannelID") = 4 Then
Response.Write ("否")
Else
Response.Write ("<a href=?action=createhtml&ChannelID=" & Rs("ChannelID") & "&EditID=1 title=""切换到：生成HTML"">否</a>")
End If
Else
Response.Write ("<a href=?action=createhtml&ChannelID=" & Rs("ChannelID") & "&EditID=0 title=""切换到：不生成HTML""><font color=blue>是</font></a>")
End If
Else
Response.Write ("<td colspan=""2"" class=""TableRow2"" align=""center"">")
Response.Write ("<a href=" & Rs("ChannelUrl") & " target=_blank><font color=blue>" & Rs("ChannelUrl") & "</font></a>")
End If
Response.Write " </td>"
Response.Write " <td class=""TableRow2"" align=""center"">"
If Rs("IsHidden") <> 0 Then
Response.Write ("<a href=?action=ishidden&ChannelID=" & Rs("ChannelID") & "&EditID=0 title=""切换到：隐藏频道名称""><font color=green>隐藏<font></a>")
Else
Response.Write ("<a href=?action=ishidden&ChannelID=" & Rs("ChannelID") & "&EditID=1 title=""切换到：隐藏频道名称"">显示</a>")
End If
Response.Write " </td>"
Response.Write " <td class=""TableRow1"" align=""center"">"
If Rs("LinkTarget") = 0 Then
Response.Write ("<a href=?action=linktarget&ChannelID=" & Rs("ChannelID") & "&EditID=1 title=""切换到：新窗口打开"">本窗口打开</a>")
Else
Response.Write ("<a href=?action=linktarget&ChannelID=" & Rs("ChannelID") & "&EditID=0 title=""切换到：本窗口打开""><font color=blue>新窗口打开<font></a>")
End If
Response.Write " </td>"
Response.Write " <td class=""TableRow2"" align=""center""><A HREF=?action=edit&ChannelID="
Response.Write Rs("ChannelID")
Response.Write ">编 辑</A>"
If Rs("ChannelID") => 10 Then
Response.Write " | <a href=?action=del&ChannelID="
Response.Write Rs("ChannelID")
Response.Write " onclick=""{if(confirm('此操作将删除此频道\n您确定要删除吗?')){return true;}return false;}"">删 除</A>"
End If
If Rs("ChannelType") < 2 Then
'Response.Write " | <A HREF=?action=reload&ChannelID="
'Response.Write Rs("ChannelID")
'Response.Write "><font color=blue>更新缓存</font></a>"
If Rs("ChannelID") <> 4 Then
Response.Write " | <a href="""
If Rs("BindDomain") = 0 Then
Response.Write "../" & Rs("ChannelDir")
Else
Response.Write Rs("DomainName") &"/"
End If
Response.Write "RemoveCache.Asp?action=remove&p="
Response.Write AdminPass
Response.Write """ target=""RemoveCache""><font color=""green"">更新频道缓存</font></a>"
End If
End If
Response.Write " </td>"
Response.Write " </tr>"
Rs.movenext
Loop
Rs.Close
Set Rs = Nothing
Response.Write " <tr>"
Response.Write " <td colspan=""8"" class=""TableRow1""><b>说明：</b> <br>①、点击相应的状态名可以进行相关快捷切换操作；<br>"
Response.Write "②、在切换HTML生成功能后，请<font color=red>重新生成JS</font>菜单。"
Response.Write "</td> </tr>"
Response.Write "</table>"
Response.Write "<iframe style=""border:0px;width:0px;height:0px;"" src="""" name=""RemoveCache"" id=""RemoveCache""></iframe>"
End Sub
Private Sub ChannelAdd()
Set Rs = Newasp.Execute("select Max(ChannelID) from NC_Channel")
If Rs.bof And Rs.EOF Then
NewChannelID = 1
Else
NewChannelID = Rs(0) + 1
End If
If IsNull(NewChannelID) Then NewChannelID = 1
Rs.Close
If NewChannelID < 10 Then NewChannelID = 10
%>
<table class="TableBorder" cellspacing="1" cellpadding="3" align="center" border="0">
<tr>
<th align="left" colspan="2"><img height="17" width="16" align="absMiddle" alt="" src="images/welcome.gif" /> 添加站点频道</th>
</tr>
<form action="?action=savenew" method="post">
<input type="hidden" name="NewChannelID" value="<%=NewChannelID%>">
<tr>
<td class="TableRow1" width="20%">
<div class="divbody">频道名称</div>
</td>
<td class="TableRow1" width="80%"><input name="ChannelName" type="text" /></td>
</tr>
<tr>
<td class="TableRow2">
<div class="divbody">频道名称模式</div>
</td>
<td class="TableRow2">颜色： <select size="1" name="ColorModes">
<option value="0" selected="selected">请选择标题颜色</option>
<%
TitleColor = "," & Newasp.InitTitleColor
TitleColor = Split(TitleColor, ",")
For i = 1 To UBound(TitleColor)
Response.Write ("<option style=""background-color:"& TitleColor(i) &";color: "& TitleColor(i) &""" value="""& i &""">"& TitleColor(i) &"</option>")
Next
%>
</select> 字体： <select size="1" name="FontModes">
<option value="0" selected="selected">请选择字体</option>
<option value="1">粗体</option>
<option value="2">斜体</option>
<option value="3">下划线</option>
<option value="4">粗体+斜体</option>
<option value="5">粗体+下划线</option>
<option value="6">斜体+下划线</option>
</select></td>
</tr>
<tr>
<td class="TableRow1">
<div class="divbody">频道注释</div>
</td>
<td class="TableRow1"><input size="60" name="Caption" type="text" /></td>
</tr>
<tr>
<td class="TableRow2">
<div class="divbody">频道类型</div>
</td>
<td class="TableRow2"><input type="radio" checked="checked" onClick="ChannelType1.style.display='';ChannelType2.style.display='none';ChannelType3.style.display='none';" name="ChannelType" value="2" /> 外部频道 <input type="radio" onClick="ChannelType1.style.display='none';ChannelType2.style.display='';ChannelType3.style.display='';" name="ChannelType" value="1" /> 内部频道</td>
</tr>
<tr id="ChannelType1">
<td class="TableRow1">
<div class="divbody">频道连接URL</div>
</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -