www.gusucode.com > 艺术签名文章资讯网源代码 > 艺术签名文章资讯网源代码/624/adminhtry/admin_channel.asp
<!--#include file="setup.asp"--> <!--#include file="check.asp"--> <% Admin_header '===================================================================== ' 软件名称:新云网站管理系统 ' 当前版本:NewAsp Site Management System Version 3.0 ' 文件名称: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 And ChannelID<>3 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(Trim(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 "badset" Call settingBadWords Case "badsave" Call saveBadWords Case Else Call showmain End Select If FoundErr = True Then ReturnError(ErrMsg) End If Admin_footer SaveLogInfo(AdminName) CloseConn 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 WHERE ChannelID<>3 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 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> <td class="TableRow1"><input size="45" name="ChannelUrl" value="<%=Newasp.SiteUrl%>" type="text" /> <font color="#ff0000">* 请输入完整的URL</font></td> </tr> <tr id="ChannelType2" style="display: none"> <td class="TableRow2"> <div class="divbody">所属模块</div> </td> <td class="TableRow2"><select szie="1" name="modules"> <option value="0" selected="selected">外部</option> <option value="1">文章</option> <option value="2">软件</option> <option value="5">动画</option> </select></td> </tr> <tr id="ChannelType3" style="display: none"> <td class="TableRow1"> <div class="divbody">频道目录</div> </td> <td class="TableRow1"><input name="ChannelDir" value="dir" type="text" /></td> </tr> <tr> <td class="TableRow2"> <div class="divbody">连接目标</div> </td> <td class="TableRow2"><input type="radio" checked="checked" name="LinkTarget" value="0" /> 本窗口打开 <input type="radio" name="LinkTarget" value="1" /> 新窗口打开</td> </tr> <tr> <td class="TableRow1"> <div class="divbody">频道菜单状态</div> </td> <td class="TableRow1"><input type="radio" checked="checked" name="IsHidden" value="0" /> 正常 <input type="radio" name="IsHidden" value="1" /> 隐藏</td> </tr> <tr> <td class="TableRow2"> </td> <td class="TableRow2"> <p align="center"><input class="Button" type="button" onclick="javascript:history.go(-1)" name="B1" value="返回上一页" /> <input class="Button" type="submit" name="B2" value="保存设置" /></p> </td> </tr> </table> <% End Sub Sub ChannelEdit() Dim Rs_c,tempstr Dim Channel_Setting Dim m_setEditor,m_setEditorArray,m_setAdminEditor,m_setUserEditor Set Rs = Newasp.Execute("SELECT * FROM NC_Channel WHERE ChannelID=" & Newasp.ChkNumeric(Request("ChannelID"))) If Rs.BOF And Rs.EOF Then FoundErr = True ErrMsg = "数据库出现错误,没有此站点频道!" Rs.Close Set Rs = Nothing Exit Sub End If Channel_Setting = Split(Rs("Channel_Setting") & "||||||||||||||||||||||||||||||", "|||") tempstr = Newasp.HtmlRndFileName m_setEditor = Rs("setEditor") & "" If Len(m_setEditor) < 50 Then m_setEditor = "0|AdminMode|590|350|editor/|||0|Simple|560|350|0|0|0|0|0|1|0|0|0|0|0|550|5000|1|1|1|1|1|0|0|0|0|0|0|0|0|0" End If m_setEditorArray = Split(m_setEditor, "|||") m_setAdminEditor = Split(m_setEditorArray(0), "|") m_setUserEditor = Split(m_setEditorArray(1), "|") %> <table border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder"> <tr> <th colspan="2" align="left"><img src="images/welcome.gif" width="16" height="17" align="absMiddle"> 编辑站点频道</th> </tr> <tr id="ChannelSetting2"<%If Rs("ChannelType") => 2 Then Response.Write (" style=""display:'none'""")%>> <td colspan="2" align="center" class="TableRow2"><a href="?action=badset&ChannelID=<%=Rs("ChannelID")%>"><font color="blue">审核设置</font></a> | <a href="?action=badset&ChannelID=<%=Rs("ChannelID")%>"><font color="blue">非法字符限制设置</font></a></td> </tr> <form method="POST" action="?action=savedit"> <input type="hidden" name="ChannelID" value="<%=Rs("ChannelID")%>"> <tr> <td width="28%" class="TableRow1"><div class="divbody">频道名称:</div></td> <td width="72%" class="TableRow1"> <input type="text" name="ChannelName" size="20" value="<%=Rs("ChannelName")%>"></td> </tr> <tr> <td class="TableRow2"><div class="divbody">频道名称模式:</div></td> <td class="TableRow2">颜色: <select size="1" name="ColorModes"> <option value="0">请选择标题颜色</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 &"'") If Rs("ColorModes") = i Then Response.Write (" selected") Response.Write (">"& TitleColor(i) &"</option>") Next %> </select> 字体: <select size="1" name="FontModes"> <option value="0"<%If Rs("FontModes") = 0 Then Response.Write (" selected")%>>请选择字体</option> <option value="1"<%If Rs("FontModes") = 1 Then Response.Write (" selected")%>>粗体</option> <option value="2"<%If Rs("FontModes") = 2 Then Response.Write (" selected")%>>斜体</option> <option value="3"<%If Rs("FontModes") = 3 Then Response.Write (" selected")%>>下划线</option> <option value="4"<%If Rs("FontModes") = 4 Then Response.Write (" selected")%>>粗体+斜体</option> <option value="5"<%If Rs("FontModes") = 5 Then Response.Write (" selected")%>>粗体+下划线</option> <option value="6"<%If Rs("FontModes") = 6 Then Response.Write (" selected")%>>斜体+下划线</option> </select></td> </tr> <tr> <td class="TableRow1"><div class="divbody">频道注释:</div></td> <td class="TableRow1"> <input type="text" name="Caption" size="60" value="<%=Rs("Caption")%>"></td> </tr> <tr> <td class="TableRow2"><div class="divbody">连接目标:</div></td> <td class="TableRow2"> <input type="radio" name="LinkTarget" value="0"<%If Rs("LinkTarget") = 0 Then Response.Write (" checked")%>> 本窗口打开 <input type="radio" name="LinkTarget" value="1"<%If Rs("LinkTarget") = 1 Then Response.Write (" checked")%>> 新窗口打开</td> </tr> <tr> <td class="TableRow1"><div class="divbody">频道菜单状态:</div></td> <td class="TableRow1"> <input type="radio" name="IsHidden" value="0"<%If Rs("IsHidden") = 0 Then Response.Write (" checked")%>> 正常 <input type="radio" name="IsHidden" value="1"<%If Rs("IsHidden") = 1 Then Response.Write (" checked")%>> 隐藏</td> </tr> <tr> <td class="TableRow2"><div class="divbody">连接类型:</div></td> <td class="TableRow2"> <%If Rs("ChannelType") = 0 Then%> <input type="radio" name="ChannelType" value="0" checked> 系统频道 <%ElseIf Rs("ChannelType") = 1 Then%> <input type="radio" name="ChannelType" value="1"<%If Rs("ChannelType") = 1 Then Response.Write (" checked")%>> 内部频道 <%Else%> <input type="radio" name="ChannelType" value="2"<%If Rs("ChannelType") = 2 Then Response.Write (" checked")%>> 外部频道 <%End IF%></td> </tr> <tr id="ChannelSetting1"<%If Rs("ChannelType") = 0 Or Rs("ChannelType") = 1 Then Response.Write (" style=""display:'none'""")%>> <td class="TableRow1"><div class="divbody">频道连接URL:</div></td> <td class="TableRow1"> <input type="text" name="ChannelUrl" size="45" value="<%=Rs("ChannelUrl")%>"> <font color="#FF0000"> * 外部连接URL以“http://”开头</font></td> </tr> <tr id="ChannelSetting2"<%If Rs("ChannelType") => 2 Then Response.Write (" style=""display:'none'""")%>> <td class="TableRow1" colspan="2"><fieldset style="cursor: default"><legend> 系统频道设置</legend><table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder2"> <tr> <td class="TableRow2"><div class="divbody">是否关闭本频道:</div></td> <td class="TableRow2"> <input type="radio" name="StopChannel" value="0"<%If Rs("StopChannel") = 0 Then Response.Write (" checked")%>> 打开 <input type="radio" name="StopChannel" value="1"<%If Rs("StopChannel") = 1 Then Response.Write (" checked")%>> 关闭 </td> </tr> <tr> <td class="TableRow1"><div class="divbody">频道模块名称:</div></td> <td class="TableRow1"> <input type="text" name="ModuleName" size="10" value="<%=Rs("ModuleName")%>"></td> </tr> <tr> <td width="28%" class="TableRow2"><div class="divbody">频道功能模块:</div></td> <td width="72%" class="TableRow2"> <select size="1" name="modules" disabled> <% Response.Write " <option value=0" If Rs("modules") = 0 Then Response.Write (" selected") Response.Write ">外部</option>" strModuleName = Split(strModuleName,"|||") sChannelID = Split(sChannelID,"|||") For i = 0 To UBound(strModuleName) - 1 Response.Write " <option value=" Response.Write sChannelID(i) If Rs("modules") = Clng(sChannelID(i)) Then Response.Write (" selected") Response.Write ">" Response.Write strModuleName(i) Response.Write "</option>" Next Response.Write " </select></td>" Response.Write " </tr>" Response.Write " <tr>" Response.Write " <td class=""TableRow1""><div class=""divbody"">频道默认模板:</div></td>" Response.Write " <td class=""TableRow1"">" Response.Write " <select size=""1"" name=""ChannelSkin"">" Response.Write " <option value=""0""" If Rs("ChannelSkin") = 0 Then Response.Write " selected" Response.Write ">使用默认模板</option>" & vbCrLf SQL = "SELECT skinid,page_name,isDefault FROM NC_Template WHERE pageid=0 ORDER BY TemplateID" Set RsObj = Newasp.Execute(SQL) If RsObj.bof And RsObj.EOF Then Response.Write " <option value=""0"">您还没有添加任何模板文件</option>" & vbCrLf Else Do While Not RsObj.EOF Response.Write " <option value=""" & RsObj("skinid") & """" If Rs("ChannelSkin") = RsObj("skinid") Then Response.Write " selected" Response.Write ">" Response.Write RsObj("page_name") Response.Write "</option>" & vbCrLf RsObj.movenext Loop End IF Set RsObj = Nothing %> </select></td> </tr> <tr> <td class="TableRow2"><div class="divbody">频道所在目录:</div></td> <td class="TableRow2"> <input type="text" name="ChannelDir" size="20" value="<%=Rs("ChannelDir")%>"> <font color="#FF0000"> * 如果要修改频道所在目录,请手工修改相应的目录名称</font></td> </tr> <tr> <td class="TableRow1"><div class="divbody">是否启用域名绑定功能:</div></td> <td class="TableRow1"> <input type="radio" name="BindDomain" value="0"<%If Rs("BindDomain") = 0 Then Response.Write (" checked")%> onClick="setBindDomain.style.display='none';"> 否 <input type="radio" name="BindDomain" value="1"<%If Rs("BindDomain") = 1 Then Response.Write (" checked")%> onClick="setBindDomain.style.display='';"<%If Rs("ChannelID") = 4 Then Response.Write (" disabled")%>> 是 <font color="blue">* 如果启用域名绑定功能,此频道将用你设置的域名访问本频道</font></td> </tr> <tr id="setBindDomain"<%If Rs("BindDomain") = 0 Then Response.Write (" style=""display:none""")%>> <td class="TableRow2"><div class="divbody">频道所绑定的域名和目录:</div></td> <td class="TableRow2"> 域名:<input type="text" name="DomainName" size="40" value="<%=Rs("DomainName")%>"> <br><font color="#FF0000">* 请输入你要绑定的域名,如:http://www1.newasp.net</font><br/> 路径:<input type="text" name="NamedPath" size="40" value="<%=Rs("NamedPath")%>"> <br><font color="#FF0000">* 请指定你的频道物理路径,如:<%=ChkMapPath(Newasp.InstallDir & Rs("ChannelDir"))%>;如果不指定路径请留空</font></td> </tr> <tr> <td class="TableRow1"><div class="divbody">是否生成HTML:</div></td> <td class="TableRow1"> <input type="radio" name="IsCreateHtml" value="0"<%If Rs("IsCreateHtml") = 0 Then Response.Write (" checked")%>> 否 <input type="radio" name="IsCreateHtml" value="1"<%If Rs("IsCreateHtml") = 1 Then Response.Write (" checked")%><%If Rs("ChannelID") = 4 Then Response.Write (" disabled")%>> 是</td> </tr> <tr> <td class="TableRow2"><div class="divbody">HTML文件的扩展名:</div></td> <td class="TableRow2"><input onClick="tagreadme.style.display='none';" type="text" name="HtmlExtName" size="10" value="<%=Rs("HtmlExtName")%>"> <font color=blue>* 如:“.html”,“.htm”,“.shtml”,“.asp”</font></td> </tr> <tr> <td class="TableRow1"><div class="divbody">分类列表页HTML文件路径:</div></td> <td class="TableRow1"><input onClick="tagreadme.style.display='';" type="text" name="SortDestination" size="60" value="<%=Rs("SortDestination")%>"> <font color="blue">* 生成分类页面的路径和HTML文件格式</font></td> </tr> <tr> <td class="TableRow2"><div class="divbody">信息内容页HTML文件路径:</div></td> <td class="TableRow2"><input onClick="tagreadme.style.display='';" type="text" name="InfoDestination" size="60" value="<%=Rs("InfoDestination")%>"> <font color="blue">* 生成信息页面的路径和HTML文件格式</font></td> </tr> <tr> <td class="TableRow1"><div class="divbody">其它专题页HTML文件路径:</div></td> <td class="TableRow1"><input onClick="tagreadme.style.display='';" type="text" name="MoreDestination" size="60" value="<%=Rs("MoreDestination")%>"> <font color="blue">* 生成其它页面的路径和HTML文件格式</font></td> </tr> <tr id="tagreadme" style="display:none"> <td class="TableRow2"><div class="divbody">文件路径标签说明:</div></td> <td class="TableRow2"><font color="red">[InstallDir]:</font>程序根路径标签;<font color="red">[channel]</font>:频道目录标签;<font color="red">[class]</font>分类目录标签;<br/> <font color="red">[classid]</font>:分类ID标签;<font color="red">[id]</font>:内容ID标签;<font color="red">[page]</font>:分页标签;[name]:专题名标签;<br/> 其它标签:<font color="blue">[sortid] [cid] [sid] [parent] [child] [datetime] [date] [year]</font></td> </tr> <tr> <td class="TableRow2"><div class="divbody">是否允许用户上传文件:</div></td> <td class="TableRow2"> <input type="radio" name="StopUpload" value="1"<%If Rs("StopUpload") = 1 Then Response.Write (" checked")%>> 否 <input type="radio" name="StopUpload" value="0"<%If Rs("StopUpload") = 0 Then Response.Write (" checked")%>> 是</td> </tr> <tr> <td class="TableRow1"><div class="divbody">允许上传文件的大小:</div></td> <td class="TableRow1"><input type="text" name="MaxFileSize" size="10" value="<%=Rs("MaxFileSize")%>"> <b>KB</b></td> </tr> <tr> <td class="TableRow2"><div class="divbody">允许上传文件的类型:<br>多种文件类型之间用“|”分隔</div></td> <td class="TableRow2"><input type="text" name="UpFileType" size="60" value="<%=Rs("UpFileType")%>"></td> </tr> <tr> <td class="TableRow1"><div class="divbody">是否开启审核功能:</div></td> <td class="TableRow1"> <input type="radio" name="IsAuditing" value="0"<%If Rs("IsAuditing") = 0 Then Response.Write (" checked")%>> 关闭 <input type="radio" name="IsAuditing" value="1"<%If Rs("IsAuditing") = 1 Then Response.Write (" checked")%>> 打开</td> </tr> <tr> <td class="TableRow2"><div class="divbody"> <% If Rs("ChannelID") = 4 Then Response.Write "发表留言" Else Response.Write "发表评论" End If %> 的用户等级:</div></td> <td class="TableRow2"><select size="1" name="AppearGrade"> <% Set RsObj = Newasp.Execute("Select GroupName,Grades From NC_UserGroup order by Groupid") Do While Not RsObj.EOF Response.Write Chr(9) & Chr(9) & "<option value=""" & RsObj("Grades") & """" If Rs("AppearGrade") = RsObj("Grades") Then Response.Write " selected" Response.Write ">" Response.Write RsObj("GroupName") Response.Write "</option>" & vbCrLf RsObj.movenext Loop Set RsObj = Nothing %> </select></td> </tr> <tr> <td class="TableRow1"><div class="divbody"> <% If Rs("ChannelID") = 4 Then Response.Write "回复留言" Else Response.Write "发布" & sModuleName End If %>的用户等级:</div></td> <td class="TableRow1"><select size="1" name="PostGrade"> <% Set RsObj = Newasp.Execute("Select GroupName,Grades From NC_UserGroup order by Groupid") Do While Not RsObj.EOF Response.Write Chr(9) & Chr(9) & "<option value=""" & RsObj("Grades") & """" If Rs("PostGrade") = RsObj("Grades") Then Response.Write " selected" Response.Write ">" Response.Write RsObj("GroupName") Response.Write "</option>" & vbCrLf RsObj.movenext Loop Set RsObj = Nothing %> </select></td> </tr> <tr> <td class="TableRow2"><div class="divbody">最小评论留言字符:</div></td> <td class="TableRow2"><input type="text" name="LeastString" size="10" value="<%=Rs("LeastString")%>"></td> </tr> <tr> <td class="TableRow1"><div class="divbody">最大评论留言字符:</div></td> <td class="TableRow1"><input type="text" name="MaxString" size="10" value="<%=Rs("MaxString")%>"></td> </tr> <tr> <td class="TableRow2"><div class="divbody">每页显示列表数:</div></td> <td class="TableRow2"><input type="text" name="PaginalNum" size="10" value="<%=Rs("PaginalNum")%>"></td> </tr> <tr> <td class="TableRow1"><div class="divbody">最小热门点击数:</div></td> <td class="TableRow1"><input type="text" name="LeastHotHist" size="10" value="<%=Rs("LeastHotHist")%>"></td> </tr> <% If Rs("modules") = 2 Then %> <tr> <td class="TableRow2"><div class="divbody">设置软件运行环境:<br>每个运行环境请用“|”分开</div></td> <td class="TableRow2"><textarea name="ChannelSetting" cols="60" rows="3"><%=Channel_Setting(0)%></textarea></td> </tr> <tr> <td class="TableRow1"><div class="divbody">设置软件默认运行环境:</div></td> <td class="TableRow1"><input type="text" name="ChannelSetting" size="60" value="<%=Channel_Setting(1)%>"></td> </tr> <tr> <td class="TableRow2"><div class="divbody">设置软件类型:<br>每个软件类型请用“,”分开</div></td> <td class="TableRow2"><textarea name="ChannelSetting" cols="60" rows="3"><%=Channel_Setting(2)%></textarea></td> </tr> <tr> <td class="TableRow1"><div class="divbody">设置软件授权方式:<br>每种授权方式请用“,”分开</div></td> <td class="TableRow1"><input type="text" name="ChannelSetting" size="60" value="<%=Channel_Setting(3)%>"></td> </tr> <tr> <td class="TableRow2"><div class="divbody">设置软件语言:<br>每种软件语言请用“,”分开</div></td> <td class="TableRow2"><input type="text" name="ChannelSetting" size="60" value="<%=Channel_Setting(4)%>"></td> </tr> <tr> <td class="TableRow1"><div class="divbody">默认上传设置:</div></td> <td class="TableRow1"><select name="ChannelSetting"> <option value="0"<%If Channel_Setting(5) <> "1" Then Response.Write " selected"%>>不生成缩略图</option> <option value="1"<%If Channel_Setting(5) = "1" Then Response.Write " selected"%>>生成缩略图</option> </select> <select name="ChannelSetting"> <option value="0"<%If Channel_Setting(6) <> "1" Then Response.Write " selected"%>>不自动更名</option> <option value="1"<%If Channel_Setting(6) = "1" Then Response.Write " selected"%>>自动更名</option> </select></td> </tr> <tr> <td class="TableRow2"><div class="divbody">设置上传图片目录:</div></td> <td class="TableRow2"><input type="text" name="ChannelSetting" size="60" value="<%If Len(Channel_Setting(7)) < 2 Then Response.Write "UploadPic/" Else Response.Write Channel_Setting(7)%>"></td> </tr> <tr> <td class="TableRow1"><div class="divbody">设置上传文件目录:</div></td> <td class="TableRow1"><input type="text" name="ChannelSetting" size="60" value="<%If Len(Channel_Setting(8)) < 2 Then Response.Write "UploadFile/" Else Response.Write Channel_Setting(8)%>"></td> </tr> <tr> <td class="TableRow2"><div class="divbody">默认内容生成XML设置:</div></td> <td class="TableRow2"><select name="ChannelSetting"> <option value="0"<%If Channel_Setting(9) <> "1" Then Response.Write " selected"%>>不生成XML</option> <option value="1"<%If Channel_Setting(9) = "1" Then Response.Write " selected"%>>内容生成XML</option> </select></td> </tr> <tr> <td class="TableRow1"><div class="divbody">XML文件名前缀:</div></td> <td class="TableRow1"><input type="text" name="ChannelSetting" size="20" value="<%=Channel_Setting(10)%>"></td> </tr> <tr> <td class="TableRow2"><div class="divbody">XML文件扩展名:</div></td> <td class="TableRow2"><input type="text" name="ChannelSetting" size="20" value="<%If Len(Trim(Channel_Setting(11))) < 3 Then Response.Write ".xml" Else Response.Write Channel_Setting(11)%>"></td> </tr> <tr> <td class="TableRow1"><div class="divbody">XML文件路径:</div></td> <td class="TableRow1"><input type="text" name="ChannelSetting" size="60" value="<%If Len(Trim(Channel_Setting(12))) < 2 Then Response.Write "xmlfile/" Else Response.Write Channel_Setting(12)%>"></td> </tr> <tr> <td class="TableRow2"><div class="divbody">更新时间状态:</div></td> <td class="TableRow2"><select name="ChannelSetting"> <option value="0"<%If Channel_Setting(13) <> "1" Then Response.Write " selected"%>>不选中</option> <option value="1"<%If Channel_Setting(13) = "1" Then Response.Write " selected"%>>选中状态</option> </select></td> </tr> <tr> <td class="TableRow1"><div class="divbody">默认星级:</div></td> <td class="TableRow1"><select name="ChannelSetting"> <option value="5"<%If Channel_Setting(14) = "5" Then Response.Write " selected"%>>★★★★★</option> <option value="4"<%If Channel_Setting(14) = "4" Then Response.Write " selected"%>>★★★★</option> <option value="3"<%If Channel_Setting(14) = "3" Then Response.Write " selected"%>>★★★</option> <option value="2"<%If Channel_Setting(14) = "2" Then Response.Write " selected"%>>★★</option> <option value="1"<%If Channel_Setting(14) = "1" Then Response.Write " selected"%>>★</option> </select></td> </tr> <tr> <td class="TableRow2"><div class="divbody">默认发表评论状态:</div></td> <td class="TableRow2"><select name="ChannelSetting"> <option value="0"<%If Channel_Setting(15) <> "1" Then Response.Write " selected"%>>允许发表评论</option> <option value="1"<%If Channel_Setting(15) = "1" Then Response.Write " selected"%>>禁止发表评论</option> </select></td> </tr> <% ElseIf Rs("modules") = 4 Then Response.Write "<input type=""hidden"" name=""ChannelSetting"" value=""||||||||||||||||||||||||||||||||"">" Response.Write "<input type=""hidden"" name=""ChannelSetting"" value=""@@@||||||"">" Response.Write "<input type=""hidden"" name=""ChannelSetting"" value=""@@@||||||"">" Else Dim m_strTitle1,m_strTitle2,m_strText1,m_strText2 If Rs("modules") = 3 Then m_strTitle1 = "商品单位" m_strTitle2 = "商品货源" m_strText1 = "套,件,台,盒,部,瓶,个,本" m_strText2 = "有货,限量,无货,特惠,打折,特价" Else m_strTitle1 = "作者" m_strTitle2 = "来源" m_strText1 = "佚名,本站,不详,未知" m_strText2 = "本站整理,本站原创,不详,转载" End If %> <tr> <td class="TableRow2"><div class="divbody">设置<%=m_strTitle1%>:<br>每个<%=m_strTitle1%>请用“,”分开</div></td> <td class="TableRow2"><textarea name="ChannelSetting" cols="60" rows="3"><%If Len(Channel_Setting(0)) < 2 Or Channel_Setting(0) = "@@@" Then Response.Write m_strText1 Else Response.Write Channel_Setting(0)%></textarea></td> </tr> <tr> <td class="TableRow1"><div class="divbody">设置<%=m_strTitle2%>:<br>每个<%=m_strTitle2%>请用“,”分开</div></td> <td class="TableRow1"><textarea name="ChannelSetting" cols="60" rows="3"><%If Len(Channel_Setting(1)) < 2 Or Channel_Setting(1) = "@@@" Then Response.Write m_strText2 Else Response.Write Channel_Setting(1)%></textarea></td> </tr> <tr> <td class="TableRow2"><div class="divbody">更新时间状态:</div></td> <td class="TableRow2"><select name="ChannelSetting"> <option value="0"<%If Channel_Setting(2) <> "1" Then Response.Write " selected"%>>不选中</option> <option value="1"<%If Channel_Setting(2) = "1" Then Response.Write " selected"%>>选中状态</option> </select></td> </tr> <tr> <td class="TableRow1"><div class="divbody">默认星级:</div></td> <td class="TableRow1"><select name="ChannelSetting"> <option value="5"<%If Channel_Setting(3) = "5" Then Response.Write " selected"%>>★★★★★</option> <option value="4"<%If Channel_Setting(3) = "4" Then Response.Write " selected"%>>★★★★</option> <option value="3"<%If Channel_Setting(3) = "3" Then Response.Write " selected"%>>★★★</option> <option value="2"<%If Channel_Setting(3) = "2" Then Response.Write " selected"%>>★★</option> <option value="1"<%If Channel_Setting(3) = "1" Then Response.Write " selected"%>>★</option> </select></td> </tr> <tr> <td class="TableRow2"><div class="divbody">默认发表评论状态:</div></td> <td class="TableRow2"><select name="ChannelSetting"> <option value="0"<%If Channel_Setting(4) <> "1" Then Response.Write " selected"%>>允许发表评论</option> <option value="1"<%If Channel_Setting(4) = "1" Then Response.Write " selected"%>>禁止发表评论</option> </select></td> </tr> <tr> <td class="TableRow1"><div class="divbody">默认上传设置:</div></td> <td class="TableRow1"><select name="ChannelSetting"> <option value="0"<%If Channel_Setting(5) <> "1" Then Response.Write " selected"%>>不生成缩略图</option> <option value="1"<%If Channel_Setting(5) = "1" Then Response.Write " selected"%>>生成缩略图</option> </select> <select name="ChannelSetting"> <option value="0"<%If Channel_Setting(6) <> "1" Then Response.Write " selected"%>>不自动更名</option> <option value="1"<%If Channel_Setting(6) = "1" Then Response.Write " selected"%>>自动更名</option> </select></td> </tr> <tr> <td class="TableRow2"><div class="divbody">设置上传图片目录:</div></td> <td class="TableRow2"><input type="text" name="ChannelSetting" size="60" value="<%If Len(Channel_Setting(7)) < 2 Then Response.Write "UploadPic/" Else Response.Write Channel_Setting(7)%>"></td> </tr> <tr> <td class="TableRow1"><div class="divbody">设置上传文件目录:</div></td> <td class="TableRow1"><input type="text" name="ChannelSetting" size="60" value="<%If Len(Channel_Setting(8)) < 2 Then Response.Write "UploadFile/" Else Response.Write Channel_Setting(8)%>"></td> </tr> <tr<%If Rs("modules") <> 1 Then Response.Write " style=""display: none"""%>> <td class="TableRow2"><div class="divbody">默认内容生成XML设置:</div></td> <td class="TableRow2"><select name="ChannelSetting"> <option value="0"<%If Channel_Setting(9) <> "1" Then Response.Write " selected"%>>不生成XML</option> <option value="1"<%If Channel_Setting(9) = "1" Then Response.Write " selected"%>>内容生成XML</option> </select></td> </tr> <tr<%If Rs("modules") <> 1 Then Response.Write " style=""display: none"""%>> <td class="TableRow1"><div class="divbody">XML文件名前缀:</div></td> <td class="TableRow1"><input type="text" name="ChannelSetting" size="20" value="<%=Channel_Setting(10)%>"></td> </tr> <tr<%If Rs("modules") <> 1 Then Response.Write " style=""display: none"""%>> <td class="TableRow2"><div class="divbody">XML文件扩展名:</div></td> <td class="TableRow2"><input type="text" name="ChannelSetting" size="20" value="<%If Len(Trim(Channel_Setting(11))) < 3 Then Response.Write ".xml" Else Response.Write Channel_Setting(11)%>"></td> </tr> <tr<%If Rs("modules") <> 1 Then Response.Write " style=""display: none"""%>> <td class="TableRow1"><div class="divbody">XML文件路径:</div></td> <td class="TableRow1"><input type="text" name="ChannelSetting" size="60" value="<%If Len(Trim(Channel_Setting(12))) < 2 Then Response.Write "xmlfile/" Else Response.Write Channel_Setting(12)%>"></td> </tr> <tr<%If Rs("modules") <> 1 Then Response.Write " style=""display: none"""%>> <td class="TableRow2"><div class="divbody">默认分页设置:</div></td> <td class="TableRow2"><select name="ChannelSetting"> <option value="0"<%If Trim(Channel_Setting(13)) <> "1" Then Response.Write " selected"%>>自动分页</option> <option value="1"<%If Trim(Channel_Setting(13)) = "1" Then Response.Write " selected"%>>手动分页</option> </select></td> </tr> <% End If %> <tr> <th colspan="2" align="left"><img src="images/welcome.gif" align="absMiddle"> 编辑器设置</th> </tr> <tr> <td class="TableRow1"><div class="divbody">后台编辑器类型:</div></td> <td class="TableRow1"><input type="radio" name="setEditor(0)" value="0"<%If m_setAdminEditor(0) = 0 Then Response.Write (" checked")%>> HTML编辑器 <input type="radio" name="setEditor(0)" value="1"<%If m_setAdminEditor(0) = 1 Then Response.Write (" checked")%>> UBB编辑器(常规) <input type="radio" name="setEditor(0)" value="2"<%If m_setAdminEditor(0) = 2 Then Response.Write (" checked")%>> UBB编辑器(专家)</td> </tr> <tr> <td class="TableRow2"><div class="divbody">后台编辑器模式:</div></td> <td class="TableRow2"><select size="1" name="setEditor(1)"> <option value="Default"<%If LCase(m_setAdminEditor(1)) = "default" Then Response.Write (" selected")%>>默认编辑模式</option> <option value="AdminMode"<%If LCase(m_setAdminEditor(1)) = "adminmode" Then Response.Write (" selected")%>>常规编辑模式</option> <option value="Simple"<%If LCase(m_setAdminEditor(1)) = "simple" Then Response.Write (" selected")%>>简单编辑模式</option> <option value="Basic"<%If LCase(m_setAdminEditor(1)) = "basic" Then Response.Write (" selected")%>>基本编辑模式</option> </select></td> </tr> <tr> <td class="TableRow1"><div class="divbody">后台编辑器宽度:</div></td> <td class="TableRow1"><input type="text" name="setEditor(2)" size="10" value="<%=m_setAdminEditor(2)%>"> px</td> </tr> <tr> <td class="TableRow2"><div class="divbody">后台编辑器高度:</div></td> <td class="TableRow2"><input type="text" name="setEditor(3)" size="10" value="<%=m_setAdminEditor(3)%>"> px</td> </tr> <tr> <td class="TableRow1"><div class="divbody">编辑器目录:</div></td> <td class="TableRow1"><input type="text" name="setEditor(4)" size="20" value="<%=m_setAdminEditor(4)%>"></td> </tr> <tr> <td class="TableRow2"><div class="divbody">前台编辑器类型:</div></td> <td class="TableRow2"><input type="radio" name="setEditor(5)" value="0"<%If m_setUserEditor(0) = 0 Then Response.Write (" checked")%>> HTML编辑器 <input type="radio" name="setEditor(5)" value="1"<%If m_setUserEditor(0) = 1 Then Response.Write (" checked")%>> UBB编辑器(常规) <input type="radio" name="setEditor(5)" value="2"<%If m_setUserEditor(0) = 2 Then Response.Write (" checked")%>> UBB编辑器(专家) </td> </tr> <tr> <td class="TableRow1"><div class="divbody">前台编辑器模式:</div></td> <td class="TableRow1"><select size="1" name="setEditor(6)"> <option value="Default"<%If LCase(m_setUserEditor(1)) = "default" Then Response.Write (" selected")%>>默认编辑模式</option> <option value="UserMode"<%If LCase(m_setUserEditor(1)) = "usermode" Then Response.Write (" selected")%>>常规编辑模式</option> <option value="Simple"<%If LCase(m_setUserEditor(1)) = "simple" Then Response.Write (" selected")%>>简单编辑模式</option> <option value="Basic"<%If LCase(m_setUserEditor(1)) = "basic" Then Response.Write (" selected")%>>基本编辑模式</option> </select></td> </tr> <tr> <td class="TableRow2"><div class="divbody">前台编辑器宽度:</div></td> <td class="TableRow2"><input type="text" name="setEditor(7)" size="10" value="<%=m_setUserEditor(2)%>"> px</td> </tr> <tr> <td class="TableRow1"><div class="divbody">前台编辑器高度:</div></td> <td class="TableRow1"><input type="text" name="setEditor(8)" size="10" value="<%=m_setUserEditor(3)%>"> px</td> </tr> <tr> <td class="TableRow2"><div class="divbody">禁用所有UBB标签:</div></td> <td class="TableRow2"><input type="radio" name="setEditor(9)" value="0"<%If m_setUserEditor(4) = 0 Then Response.Write (" checked")%>> 否 <input type="radio" name="setEditor(9)" value="1"<%If m_setUserEditor(4) = 1 Then Response.Write (" checked")%>> 是 <font color="red"></font></td> </tr> <tr> <td class="TableRow1"><div class="divbody">禁用URL标签:</div></td> <td class="TableRow1"><input type="radio" name="setEditor(10)" value="0"<%If m_setUserEditor(5) = 0 Then Response.Write (" checked")%>> 否 <input type="radio" name="setEditor(10)" value="1"<%If m_setUserEditor(5) = 1 Then Response.Write (" checked")%>> 是 </td> </tr> <tr> <td class="TableRow2"><div class="divbody">禁用IMG标签:</div></td> <td class="TableRow2"><input type="radio" name="setEditor(11)" value="0"<%If m_setUserEditor(6) = 0 Then Response.Write (" checked")%>> 否 <input type="radio" name="setEditor(11)" value="1"<%If m_setUserEditor(6) = 1 Then Response.Write (" checked")%>> 是 </td> </tr> <tr> <td class="TableRow1"><div class="divbody">禁用FLASH标签:</div></td> <td class="TableRow1"><input type="radio" name="setEditor(12)" value="0"<%If m_setUserEditor(7) = 0 Then Response.Write (" checked")%>> 否 <input type="radio" name="setEditor(12)" value="1"<%If m_setUserEditor(7) = 1 Then Response.Write (" checked")%>> 是 </td> </tr> <tr> <td class="TableRow2"><div class="divbody">禁用多媒体标签:</div></td> <td class="TableRow2"><input type="radio" name="setEditor(13)" value="0"<%If m_setUserEditor(8) = 0 Then Response.Write (" checked")%>> 否 <input type="radio" name="setEditor(13)" value="1"<%If m_setUserEditor(8) = 1 Then Response.Write (" checked")%>> 是 <input type="radio" name="setEditor(13)" value="2"<%If m_setUserEditor(8) = 2 Then Response.Write (" checked")%>> 模式二 </td> </tr> <tr> <td class="TableRow1"><div class="divbody">禁用Email标签:</div></td> <td class="TableRow1"><input type="radio" name="setEditor(14)" value="0"<%If m_setUserEditor(9) = 0 Then Response.Write (" checked")%>> 否 <input type="radio" name="setEditor(14)" value="1"<%If m_setUserEditor(9) = 1 Then Response.Write (" checked")%>> 是 </td> </tr> <tr> <td class="TableRow2"><div class="divbody">禁用HTML标签:</div></td> <td class="TableRow2"><input type="radio" name="setEditor(15)" value="0"<%If m_setUserEditor(10) = 0 Then Response.Write (" checked")%>> 否 <input type="radio" name="setEditor(15)" value="1"<%If m_setUserEditor(10) = 1 Then Response.Write (" checked")%>> 是 </td> </tr> <tr> <td class="TableRow1"><div class="divbody">禁用DOWN标签:</div></td> <td class="TableRow1"><input type="radio" name="setEditor(16)" value="0"<%If m_setUserEditor(11) = 0 Then Response.Write (" checked")%>> 否 <input type="radio" name="setEditor(16)" value="1"<%If m_setUserEditor(11) = 1 Then Response.Write (" checked")%>> 是 </td> </tr> <tr> <td class="TableRow2"><div class="divbody">禁用ED2K标签:</div></td> <td class="TableRow2"><input type="radio" name="setEditor(17)" value="0"<%If m_setUserEditor(12) = 0 Then Response.Write (" checked")%>> 否 <input type="radio" name="setEditor(17)" value="1"<%If m_setUserEditor(12) = 1 Then Response.Write (" checked")%>> 是 </td> </tr> <tr> <td class="TableRow1"><div class="divbody">自动识别网址:</div></td> <td class="TableRow1"><input type="radio" name="setEditor(18)" value="0"<%If m_setUserEditor(13) = 0 Then Response.Write (" checked")%>> 否 <input type="radio" name="setEditor(18)" value="1"<%If m_setUserEditor(13) = 1 Then Response.Write (" checked")%>> 是 </td> </tr> <tr> <td class="TableRow2"><div class="divbody">禁用内容关键字:</div></td> <td class="TableRow2"><input type="radio" name="setEditor(19)" value="0"<%If m_setUserEditor(14) = 0 Then Response.Write (" checked")%>> 否 <input type="radio" name="setEditor(19)" value="1"<%If m_setUserEditor(14) = 1 Then Response.Write (" checked")%>> 是 </td> </tr> <tr> <td class="TableRow1"><div class="divbody">禁用CC视频标签:</div></td> <td class="TableRow1"><input type="radio" name="setEditor(22)" value="0"<%If m_setUserEditor(17) = 0 Then Response.Write (" checked")%>> 否 <input type="radio" name="setEditor(22)" value="1"<%If m_setUserEditor(17) = 1 Then Response.Write (" checked")%>> 是 </td> </tr> <tr> <td class="TableRow2"><div class="divbody">禁用CC视频上传插件:</div></td> <td class="TableRow2"><input type="radio" name="setEditor(23)" value="0"<%If m_setUserEditor(18) = 0 Then Response.Write (" checked")%>> 否 <input type="radio" name="setEditor(23)" value="1"<%If m_setUserEditor(18) = 1 Then Response.Write (" checked")%>> 是 </td> </tr> <tr> <td class="TableRow1"><div class="divbody">固定内容中图片大小:</div></td> <td class="TableRow1"><input type="text" name="setEditor(20)" size="10" value="<%=m_setUserEditor(15)%>"> px <font color="red">* 小于10=按比例缩小</font></td> </tr> <% If Rs("modules") = 1 Then %> <tr> <td class="TableRow2"><div class="divbody">内容自动分页字符数:</div></td> <td class="TableRow2"><input type="text" name="setEditor(21)" size="10" value="<%=m_setUserEditor(16)%>"> px <font color="red">* 如果不自动分页请输入“0”</font></td> </tr> <% Else Response.Write "<input type=""hidden"" name=""setEditor(21)"" value=""0""/>" & vbNewLine End If %> </table></fieldset></td> </tr> <tr> <td class="TableRow1"> </td> <td class="TableRow1" align="center"><input type="button" onclick="javascript:history.go(-1)" value="返回上一页" name="B1" class=Button> <input type="submit" value="保存设置" name="B2" class="Button"></td> </tr> </form> </table> <% Rs.Close:Set Rs = Nothing End Sub Sub CheckSave() If Len(Request.Form("ChannelName")) = 0 Or Len(Request.Form("ChannelName")) => 25 Then FoundErr = True ErrMsg = ErrMsg + "<li>网站频道名称不能为空或者超过20个字符!</li>" End If If Len(Request.Form("ColorModes")) = 0 Then FoundErr = True ErrMsg = ErrMsg + "<li>标题颜色参数错误!</li>" End If If Len(Request.Form("Caption")) = 0 Or Len(Request.Form("Caption")) => 200 Then FoundErr = True ErrMsg = ErrMsg + "<li>频道注释不能为空或者超过200个字符!</li>" End If If Len(Request.Form("ChannelUrl")) = 0 Then FoundErr = True ErrMsg = ErrMsg + "<li>频道连接URL不能为空!</li>" End If End Sub Sub SavenewChannel() CheckSave Dim neworders,m_strSetting If Len(Request.Form("ChannelDir")) = 0 And Request.Form("ChannelType") <> 2 Then FoundErr = True ErrMsg = ErrMsg + "<li>频道所在目录不能为空!</li>" End If ChannelDir = Replace(Replace(Replace(Request.Form("ChannelDir"), "\","/"), " ",""), "'","") If Right(ChannelDir, 1) <> "/" And ChannelDir <> "" Then ChannelDir = ChannelDir & "/" Else ChannelDir = ChannelDir End If If Left(ChannelDir, 1) = "/" And ChannelDir <> "" Then ChannelDir = Mid(ChannelDir, InStr(ChannelDir, "/") + 1) End If If InStr(ChannelDir, ":/")>0 Then FoundErr = True ErrMsg = ErrMsg + "<li>频道目录输入错误!</li>" Exit Sub End If If Request.Form("ChannelType") = 1 Then If Request.Form("modules") = 0 Then FoundErr = True ErrMsg = ErrMsg + "<li>请选择正确的模块!</li>" Exit Sub End If Set Rs = Conn.Execute("SELECT ChannelID,ChannelDir FROM NC_Channel WHERE ChannelType=0 And ChannelID=" & CLng(Request.Form("modules"))) If Rs.EOF And Rs.BOF Then ErrMsg = "<li>找不到指定模块。</li>" Founderr = True Exit Sub Else mChannelID = Rs("ChannelID") mChannelDir = Rs("ChannelDir") If LCase(ChannelDir) = LCase(mChannelDir) Then ErrMsg = "<li>不能指定和系统频道相同的目录。</li>" Founderr = True Exit Sub End If End If Set Rs = Nothing End If Set Rs = Conn.Execute("SELECT ChannelID FROM NC_Channel WHERE ChannelID=" & CLng(Request("NewChannelID"))) If Not (Rs.EOF And Rs.BOF) Then ErrMsg = "<li>您不能指定和别的频道一样的序号。</li>" Founderr = True Exit Sub Else NewChannelID = Newasp.ChkNumeric(Request("NewChannelID")) End If Set Rs = Nothing If NewChannelID = 999 Then NewChannelID = NewChannelID + 1 If NewChannelID = 9999 Then NewChannelID = NewChannelID + 1 If Founderr = True Then Exit Sub Set Rs = Newasp.Execute ("SELECT MAX(orders) FROM NC_Channel") If Not (Rs.EOF And Rs.BOF) Then neworders = Rs(0) End If If IsNull(neworders) Then neworders = 0 Set Rs = Nothing Select Case Newasp.ChkNumeric(Request.Form("modules")) Case 1 m_strSetting = "佚名,本站,不详,未知|||本站整理,本站原创,不详,转载|||0|||3|||0|||0|||1|||UploadPic/|||UploadFile/|||0|||news_|||.xml|||xmlfile/|||0||||||||||||||||||@@@||||||@@@||||||" Case 2 m_strSetting = "Win9X/|ME/|NT/|2000/|XP/|2003/|Vista/|Linux/|Unix/|Mac/|||Win9X/Win2000/WinXP/Win2003/|||国产软件,国外软件,汉化补丁,源码程序|||共享版,免费版,自由版,试用版,演示版,商业版|||简体中文,繁体中文,英文,多国语言|||0|||1|||UploadPic/|||UploadFile/|||0|||soft_|||.xml|||xmlfile/|||0|||3|||0||||||||||||||||||@@@||||||@@@||||||" Case 5 m_strSetting = "佚名,本站,不详,未知|||本站整理,本站原创,不详,转载|||0|||3|||0|||0|||1|||UploadPic/|||UploadFile/|||0||||||.xml|||xmlfile/|||0||||||||||||||||||@@@||||||@@@||||||" Case Else m_strSetting = "||||||@@@||||||@@@||||||" End Select Set Rs = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM NC_Channel" Rs.Open SQL,Conn,1,3 Rs.Addnew Rs("ChannelID") = NewChannelID Rs("orders") = neworders + 1 Rs("ColorModes") = Trim(Request.Form("ColorModes")) Rs("FontModes") = Trim(Request.Form("FontModes")) Rs("ChannelName") = Newasp.ChkFormStr(Request.Form("ChannelName")) Rs("Caption") = Newasp.ChkFormStr(Request.Form("Caption")) Rs("ChannelDir") = ChannelDir Rs("StopChannel") = 0 Rs("IsHidden") = Trim(Request.Form("IsHidden")) Rs("LinkTarget") = Trim(Request.Form("LinkTarget")) Rs("ChannelType") = CInt(Request.Form("ChannelType")) Rs("ChannelUrl") = Trim(Request.Form("ChannelUrl")) Rs("modules") = CInt(Request.Form("modules")) Rs("BindDomain") = 0 Rs("DomainName") = "http://" If CInt(Request.Form("ChannelType")) = 1 Then Rs("ModuleName") = "新频道" Else Rs("ModuleName") = "外部" End If Rs("ChannelSkin") = 0 Rs("IsCreateHtml") = 0 Rs("HtmlExtName") = ".html" Rs("StopUpload") = 1 Rs("MaxFileSize") = 500 Rs("UpFileType") = "rar|zip|exe|gif|jpg|png|bmp|swf" Rs("IsAuditing") = 1 Rs("AppearGrade") = 0 Rs("PostGrade") = 0 Rs("LeastString") = 10 Rs("MaxString") = 500 Rs("PaginalNum") = 15 Rs("LeastHotHist") = 50 Rs("Channel_Setting") = m_strSetting Rs("SortDestination") = "[InstallDir][channel][class]list_[classid]_[page].html" Rs("InfoDestination") = "[InstallDir][channel][class][id].html" Rs("MoreDestination") = "[InstallDir][channel]special/[name]_[page].html" Rs("setEditor") = "0|AdminMode|590|350|editor/|||0|Simple|560|350|0|0|0|0|0|1|0|0|0|0|0|550|5000|1|1|1|1|1|0|0|0|0|0|0|0|0|0" Rs("NamedPath") = "" Rs.update Rs.Close:Set Rs = Nothing Newasp.DelCahe "ChannelMenu" If CInt(Request.Form("modules")) > 0 Then Succeed("<li>添加新的频道成功</li><script>parent.leftFrame.location='admin_left.asp?action=menu&m=" & Request.Form("modules") & "';</script>") Else Succeed("<li>添加新的频道成功</li>") End If If CInt(Request.Form("modules")) > 0 And CInt(Request.Form("ChannelType")) = 1 Then Call ChannelCopy End If End Sub Sub ChannelCopy() Dim newChannelDir,oldChannelDir Dim tmpChannel,tmpChannelArray oldChannelDir = Newasp.InstallDir & mChannelDir newChannelDir = Newasp.InstallDir & ChannelDir Newasp.CreatPathEx(newChannelDir & "UploadPic") Newasp.CreatPathEx(newChannelDir & "UploadFile") Newasp.CopyToFile oldChannelDir & "index.asp",newChannelDir & "index.asp" Newasp.CopyToFile oldChannelDir & "list.asp",newChannelDir & "list.asp" Newasp.CopyToFile oldChannelDir & "show.asp",newChannelDir & "show.asp" Newasp.CopyToFile oldChannelDir & "special.asp",newChannelDir & "special.asp" Newasp.CopyToFile oldChannelDir & "search.asp",newChannelDir & "search.asp" Newasp.CopyToFile oldChannelDir & "showbest.asp",newChannelDir & "showbest.asp" Newasp.CopyToFile oldChannelDir & "showhot.asp",newChannelDir & "showhot.asp" Newasp.CopyToFile oldChannelDir & "shownew.asp",newChannelDir & "shownew.asp" Newasp.CopyToFile oldChannelDir & "comment.asp",newChannelDir & "comment.asp" Newasp.CopyToFile oldChannelDir & "Hits.Asp",newChannelDir & "Hits.Asp" Newasp.CopyToFile oldChannelDir & "RemoveCache.Asp",newChannelDir & "RemoveCache.Asp" Newasp.CopyToFile oldChannelDir & "rssfeed.asp",newChannelDir & "rssfeed.asp" tmpChannel = Newasp.ReadFile("include/Channel.dat") tmpChannel = Replace(tmpChannel, "$ChannelID$", NewChannelID,1,-1,1) tmpChannelArray = Split(tmpChannel, "@@@") If CInt(Request.Form("modules")) = 1 Then Newasp.CopyToFile oldChannelDir & "sendmail.asp",newChannelDir & "sendmail.asp" Newasp.CreatedTextFile newChannelDir & "config.asp",tmpChannelArray(0) ElseIf CInt(Request.Form("modules")) = 2 Then Newasp.CopyToFile oldChannelDir & "showtype.asp",newChannelDir & "showtype.asp" Newasp.CopyToFile oldChannelDir & "error.asp",newChannelDir & "error.asp" Newasp.CopyToFile oldChannelDir & "download.asp",newChannelDir & "download.asp" Newasp.CopyToFile oldChannelDir & "softdown.asp",newChannelDir & "softdown.asp" Newasp.CopyToFile oldChannelDir & "previewimg.asp",newChannelDir & "previewimg.asp" Newasp.CreatedTextFile newChannelDir & "config.asp",tmpChannelArray(1) Else Newasp.CopyToFile oldChannelDir & "download.asp",newChannelDir & "download.asp" Newasp.CopyToFile oldChannelDir & "down.asp",newChannelDir & "down.asp" Newasp.CopyToFile oldChannelDir & "downfile.asp",newChannelDir & "downfile.asp" Newasp.CopyToFile oldChannelDir & "play.html",newChannelDir & "play.html" Newasp.CreatedTextFile newChannelDir & "config.asp",tmpChannelArray(2) End If Dim rstmp,i Dim TemplateDir,TemplateFields,TemplateValues Set rstmp = Newasp.Execute("SELECT * FROM NC_Template WHERE ChannelID=" & CLng(Request.Form("modules"))) SQL=rstmp.GetRows(-1) Set rstmp = Nothing For i=0 To Ubound(SQL,2) TemplateDir = "" TemplateFields = "ChannelID,skinid,pageid,TemplateDir,page_name,page_content,page_setting,Template_Help,isDefault" TemplateValues = "" & NewChannelID & ","& SQL(2,i) &"," & SQL(3,i) & ",'" & TemplateDir & "','" & Newasp.CheckStr(SQL(5,i)) & "','" & Newasp.CheckStr(SQL(6,i)) & "','" & Newasp.CheckStr(SQL(7,i)) & "','" & Newasp.CheckStr(SQL(8,i)) & "'," & SQL(9,i) & "" Conn.Execute ("INSERT INTO NC_Template (" & TemplateFields & ") VALUES (" & TemplateValues & ")") Next SQL=Null End Sub Sub SaveditChannel() CheckSave Dim HtmlExtName,sDomainName,m_setEditor,i Dim strEditorDir,strNamedPath For i = 0 To 23 If i = 4 Then strEditorDir = Newasp.CheckStr(Trim(Request.Form("setEditor(4)"))) If strEditorDir = "" Then strEditorDir = "editor/" strEditorDir = Replace(strEditorDir, "\", "/") If Right(strEditorDir,1) <> "/" Then strEditorDir = strEditorDir & "/" End If If Left(strEditorDir,1) = "/" Then FoundErr = True ErrMsg = ErrMsg + "<li>编辑器目录输入错误!</li>" Exit Sub End If m_setEditor = m_setEditor & strEditorDir & "|||" Else m_setEditor = m_setEditor & Trim(Request.Form("setEditor(" & i & ")")) & "|" End If Next m_setEditor = m_setEditor & "1|1|1|1|1" If Len(Request.Form("ChannelDir")) = 0 And Request.Form("ChannelType") <> 2 Then FoundErr = True ErrMsg = ErrMsg + "<li>频道所在目录不能为空!</li>" End If ChannelDir = Replace(Replace(Replace(Trim(Request.Form("ChannelDir")), "\","/"), " ",""), "'","") If Right(ChannelDir, 1) <> "/" And ChannelDir <> "" Then ChannelDir = ChannelDir & "/" Else ChannelDir = ChannelDir End If If Left(ChannelDir, 1) = "/" And ChannelDir <> "" Then ChannelDir = Mid(ChannelDir, InStr(ChannelDir, "/") + 1) End If If InStr(ChannelDir, ":/")>0 Then FoundErr = True ErrMsg = ErrMsg + "<li>频道目录输入错误!</li>" Exit Sub End If strNamedPath = Replace(Replace(Replace(Trim(Request.Form("NamedPath")), "/","\"), " ",""), "'","") If Len(strNamedPath) > 1 Then If Right(strNamedPath,1) = "\" Then strNamedPath = Left(strNamedPath,Len(strNamedPath)-1) End If End If If Trim(Request.Form("IsCreateHtml")) = "" Then FoundErr = True ErrMsg = ErrMsg + "<li>请选择是否生成HTML文件!</li>" End If If Left(Trim(Request.Form("HtmlExtName")),1) <> "." Then HtmlExtName = "." & Trim(Request.Form("HtmlExtName")) Else HtmlExtName = Trim(Request.Form("HtmlExtName")) End If If Not Newasp.IsValidChar(Request.Form("HtmlExtName")) Then FoundErr = True ErrMsg = ErrMsg + "<li>文件扩展名中含有非法字符或者中文字符!</li>" End If If Not Newasp.IsValidChar(ChannelDir) Then FoundErr = True ErrMsg = ErrMsg + "<li>频道目录中含有非法字符或者中文字符!</li>" End If If Not IsNumeric(Request("MaxFileSize")) Then ErrMsg = ErrMsg & "<li>上传文件大小请使用整数!</li>" Founderr = True End If If Not IsNumeric(Request("LeastString")) Then ErrMsg = ErrMsg & "<li>最小字符请使用整数!</li>" Founderr = True End If If Not IsNumeric(Request("MaxString")) Then ErrMsg = ErrMsg & "<li>最大字符请使用整数!</li>" Founderr = True End If If Not IsNumeric(Request("PaginalNum")) Then ErrMsg = ErrMsg & "<li>每页显示列表数请使用整数!</li>" Founderr = True End If If Not IsNumeric(Request("LeastHotHist")) Then ErrMsg = ErrMsg & "<li>最小热门点击数请使用整数!</li>" Founderr = True End If sDomainName = Replace(Replace(Trim(Request.Form("DomainName")), "\","/"), "'","") If Right(sDomainName, 1) = "/" Then sDomainName = Left(sDomainName,Len(sDomainName)-1) End If Dim TempStr, ChannelSetting For Each TempStr In Request.Form("ChannelSetting") ChannelSetting = ChannelSetting & Replace(TempStr, "|||", "") & "|||" Next If Founderr = True Then Exit Sub Set Rs = Newasp.Execute("SELECT ChannelID,Channel_Setting FROM NC_Channel WHERE ChannelType<2 And ChannelID=" & Newasp.ChkNumeric(Request("ChannelID"))) If Not (Rs.BOF And Rs.EOF) Then Dim m_strArraysetting m_strArraysetting = Split(Rs("Channel_Setting") & "@@@||||||@@@||||||", "@@@") ChannelSetting = ChannelSetting & "|||||||||||||||@@@" & m_strArraysetting(1) & "@@@" & m_strArraysetting(2) End If Set Rs = Nothing Set Rs = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM NC_Channel WHERE ChannelID=" & Newasp.ChkNumeric(Request("ChannelID")) Rs.Open SQL,Conn,1,3 Rs("ColorModes") = Trim(Request.Form("ColorModes")) Rs("FontModes") = Trim(Request.Form("FontModes")) Rs("ChannelName") = Newasp.ChkFormStr(Request.Form("ChannelName")) Rs("Caption") = Newasp.ChkFormStr(Request.Form("Caption")) Rs("ChannelDir") = Trim(ChannelDir) Rs("StopChannel") = Trim(Request.Form("StopChannel")) Rs("IsHidden") = Trim(Request.Form("IsHidden")) Rs("LinkTarget") = Trim(Request.Form("LinkTarget")) Rs("ChannelType") = Trim(Request.Form("ChannelType")) Rs("ChannelUrl") = Trim(Request.Form("ChannelUrl")) Rs("ModuleName") = Trim(Request.Form("ModuleName")) Rs("BindDomain") = Trim(Request.Form("BindDomain")) Rs("DomainName") = Trim(sDomainName) Rs("ChannelSkin") = Trim(Request.Form("ChannelSkin")) Rs("IsCreateHtml") = Trim(Request.Form("IsCreateHtml")) Rs("HtmlExtName") = HtmlExtName Rs("StopUpload") = Trim(Request.Form("StopUpload")) Rs("MaxFileSize") = CLng(Request.Form("MaxFileSize")) Rs("UpFileType") = Trim(Request.Form("UpFileType")) Rs("IsAuditing") = Trim(Request.Form("IsAuditing")) Rs("AppearGrade") = Trim(Request.Form("AppearGrade")) Rs("PostGrade") = Trim(Request.Form("PostGrade")) Rs("LeastString") = CLng(Request.Form("LeastString")) Rs("MaxString") = CLng(Request.Form("MaxString")) Rs("PaginalNum") = CInt(Request.Form("PaginalNum")) Rs("LeastHotHist") = CLng(Request.Form("LeastHotHist")) Rs("Channel_Setting") = Trim(ChannelSetting) Rs("SortDestination") = Replace(Trim(Request.Form("SortDestination")), "\", "/") Rs("InfoDestination") = Replace(Trim(Request.Form("InfoDestination")), "\", "/") Rs("MoreDestination") = Replace(Trim(Request.Form("MoreDestination")), "\", "/") Rs("setEditor") = m_setEditor Rs("NamedPath") = strNamedPath Rs.update Rs.Close Set Rs = Nothing Call RemoveCache Succeed("<li>修改频道设置成功!</li>") End Sub Sub ChannelDel() If Request("ChannelID") = "" Then ErrMsg = "<li>请选择正确的频道ID!</li>" Founderr = True Exit Sub End If If Request("ChannelID") < 10 Then ErrMsg = "<li>此频道为系统初始频道不能删除,请选择其它频道删除!</li>" Founderr = True Exit Sub End If Set Rs = Newasp.Execute("SELECT ClassID FROM [NC_Classify] WHERE ChannelID=" & CLng(Request("ChannelID"))) If Not (Rs.BOF And Rs.EOF) Then Set Rs = Nothing ErrMsg = "<li>此频道正在使用中不能删除!如果要删除此频道,请先删除所有分类。</li>" Founderr = True Exit Sub End If Set Rs = Nothing Set Rs = Newasp.Execute("SELECT ChannelDir,ChannelType FROM [NC_Channel] WHERE ChannelID=" & CLng(Request("ChannelID"))) If Not (Rs.BOF And Rs.EOF) Then If Rs("ChannelType") = 0 Then Set Rs = Nothing ErrMsg = "<li>此频道是系统频道不能删除。</li>" Founderr = True Exit Sub Else Newasp.FolderDelete(Newasp.InstallDir & Rs("ChannelDir")) Conn.Execute("DELETE FROM NC_Template WHERE ChannelID=" & CLng(Request("ChannelID"))) Response.Write "<script>parent.leftFrame.location='admin_left.asp';</script>" End If End If Set Rs = Nothing Call RemoveCache Conn.Execute("DELETE FROM NC_Channel WHERE ChannelID=" & CLng(Request("ChannelID"))) Succeed("<li>频道删除成功!</li>") End Sub Sub ChannelOrders() Dim trs Dim uporders Dim doorders Response.Write " <table border=""0"" cellspacing=""1"" cellpadding=""2"" class=""tableBorder"" align=center>" & vbCrLf Response.Write " <tr>" & vbCrLf Response.Write " <th colspan=2>频道重新排序修改" Response.Write " </th>" Response.Write " </tr>" & vbCrLf SQL = "SELECT * FROM NC_Channel ORDER BY orders" Set Rs = Newasp.Execute(SQL) If Rs.BOF And Rs.EOF Then Response.Write "您还没有添加相应的频道。" Else Do While Not Rs.EOF Response.Write "<form action=?action=saveorder method=post><tr><td width=""50%"" class=TableRow1>" & vbCrLf Response.Write Newasp.ReadFontMode(Rs("ChannelName"),Rs("ColorModes"),Rs("FontModes")) Response.Write "</td><td width=""50%"" class=TableRow2>" & vbCrLf Set trs = Newasp.Execute("select count(*) from NC_Channel where orders<" & Rs("orders") & "") uporders = trs(0) If IsNull(uporders) Then uporders = 0 Set trs = Newasp.Execute("select count(*) from NC_Channel where orders>" & Rs("orders") & "") doorders = trs(0) If IsNull(doorders) Then doorders = 0 If uporders > 0 Then Response.Write "<select name=uporders size=1><option value=0>↑</option>" & vbCrLf For i = 1 To uporders Response.Write "<option value=" & i & ">↑" & i & "</option>" & vbCrLf Next Response.Write "</select>" End If If doorders > 0 Then If uporders > 0 Then Response.Write " " Response.Write "<select name=doorders size=1><option value=0>↓</option>" & vbCrLf For i = 1 To doorders Response.Write "<option value=" & i & ">↓" & i & "</option>" & vbCrLf Next Response.Write "</select>" & vbCrLf End If If doorders > 0 Or uporders > 0 Then Response.Write "<input type=hidden name=""ChannelID"" value=""" & Rs("ChannelID") & """> <input type=submit name=Submit class=button value='修 改'>" & vbCrLf End If Response.Write "</td></tr></form>" & vbCrLf Rs.movenext Loop End If Rs.Close Set Rs = Nothing Response.Write "</table>" End Sub Sub SaveOrder() Dim orders Dim uporders Dim doorders Dim oldorders If Not IsNumeric(Request("ChannelID")) Then ErrMsg = ErrMsg & "<li>非法的系统参数!</li>" Founderr = True Exit Sub End If If Request("uporders") <> "" And Not CInt(Request("uporders")) = 0 Then If Not IsNumeric(Request("uporders")) Then ErrMsg = ErrMsg & "<li>非法的系统参数!</li>" Founderr = True Exit Sub ElseIf CInt(Request("uporders")) = 0 Then ErrMsg = ErrMsg & "<li>请选择要提升的数字!</li>" Founderr = True Exit Sub End If Set Rs = Newasp.Execute("SELECT ChannelID,orders FROM NC_Channel WHERE ChannelID=" & Newasp.ChkNumeric(Request("ChannelID"))) orders = Rs(1) i = 0 oldorders = 0 Set Rs = Newasp.Execute("SELECT ChannelID,orders FROM NC_Channel WHERE orders<" & orders & " ORDER BY orders DESC") Do While Not Rs.EOF i = i + 1 If CInt(Request("uporders")) >= i Then Newasp.Execute ("UPDATE NC_Channel SET orders=" & orders & "+" & oldorders & " WHERE ChannelID=" & Rs(0)) If CInt(Request("uporders")) = i Then uporders = Rs(1) End If orders = Rs(1) Rs.movenext Loop Newasp.Execute ("UPDATE NC_Channel SET orders=" & uporders & " WHERE ChannelID=" & Newasp.ChkNumeric(Request("ChannelID"))) Set Rs = Nothing ElseIf Request("doorders") <> "" Then If Not IsNumeric(Request("doorders")) Then ErrMsg = ErrMsg & "<li>非法的参数!</li>" Founderr = True Exit Sub ElseIf CInt(Request("doorders")) = 0 Then ErrMsg = ErrMsg & "<li>请选择要下降的数字!</li>" Founderr = True Exit Sub End If Set Rs = Newasp.Execute("SELECT ChannelID,orders FROM NC_Channel WHERE ChannelID=" & Newasp.ChkNumeric(Request("ChannelID"))) orders = Rs(1) i = 0 oldorders = 0 Set Rs = Newasp.Execute("SELECT ChannelID,orders from NC_Channel WHERE orders>" & orders & " ORDER BY orders DESC") Do While Not Rs.EOF i = i + 1 If CInt(Request("doorders")) >= i Then Newasp.Execute ("UPDATE NC_Channel SET orders=" & orders & " WHERE ChannelID=" & Rs(0)) If CInt(Request("doorders")) = i Then doorders = Rs(1) End If orders = Rs(1) Rs.movenext Loop Newasp.Execute ("UPDATE NC_Channel SET orders=" & doorders & " WHERE ChannelID=" & Newasp.ChkNumeric(Request("ChannelID"))) Set Rs = Nothing End If Call RemoveCache Response.redirect "admin_channel.asp?action=orders" End Sub Sub UpdateStop() If Not IsNumeric(Request("ChannelID")) Then ErrMsg = ErrMsg & "<li>非法的系统参数!</li>" Founderr = True Exit Sub End If If Request("ChannelID") <> "" And Request("EditID") <> "" Then Newasp.Execute ("UPDATE NC_Channel SET StopChannel=" & CInt(Request("EditID")) & " WHERE ChannelID=" & Newasp.ChkNumeric(Request("ChannelID"))) Call RemoveCache Else ErrMsg = ErrMsg & "<li>非法的系统参数!</li>" Founderr = True Exit Sub End If If Request("EditID") <> 0 Then OutHintScript("恭喜您!本频道已成功关闭。") Else OutHintScript("恭喜您!本频道已成功打开。") End If End Sub Sub UpdateHidden() If Not IsNumeric(Request("ChannelID")) Then ErrMsg = ErrMsg & "<li>非法的系统参数!</li>" Founderr = True Exit Sub End If If Request("ChannelID") <> "" And Request("EditID") <> "" Then Newasp.Execute ("UPDATE NC_Channel set IsHidden=" & CInt(Request("EditID")) & " WHERE ChannelID=" & Newasp.ChkNumeric(Request("ChannelID"))) Call RemoveCache Else ErrMsg = ErrMsg & "<li>非法的系统参数!</li>" Founderr = True Exit Sub End If If Request("EditID") <> 0 Then OutHintScript("恭喜您!隐藏频道菜单成功。") Else OutHintScript("恭喜您!显示频道菜单成功。") End If End Sub Sub UpdateLinkTarget() If Not IsNumeric(Request("ChannelID")) Then ErrMsg = ErrMsg & "<li>非法的系统参数!</li>" Founderr = True Exit Sub End If If Request("ChannelID") <> "" And Request("EditID") <> "" Then Newasp.Execute ("UPDATE NC_Channel SET LinkTarget=" & CInt(Request("EditID")) & " WHERE ChannelID=" & Newasp.ChkNumeric(Request("ChannelID"))) Call RemoveCache OutHintScript("恭喜您!更新连接目标成功。") Else ErrMsg = ErrMsg & "<li>非法的系统参数!</li>" Founderr = True Exit Sub End If End Sub Sub UpdateCreateHtml() If Not IsNumeric(Request("ChannelID")) Then ErrMsg = ErrMsg & "<li>非法的系统参数!</li>" Founderr = True Exit Sub End If If Request("ChannelID") <> "" And Request("EditID") <> "" Then Newasp.Execute ("UPDATE NC_Channel SET IsCreateHtml=" & CInt(Request("EditID")) & " WHERE ChannelID=" & Newasp.ChkNumeric(Request("ChannelID"))) Call RemoveCache Else ErrMsg = ErrMsg & "<li>非法的系统参数!</li>" Founderr = True Exit Sub End If If Request("EditID") <> 0 Then OutHintScript("恭喜您!打开此频道生成HTML功能成功。") Else OutHintScript("恭喜您!关闭此频道生成HTML功能成功。") End If End Sub Sub ReloadChannelCache() Newasp.DelCahe "Channel" & Request("ChannelID") Newasp.DelCahe "MyChannel" & Request("ChannelID") Newasp.DelCahe "ChannelMenu" Newasp.DelCahe "SiteClassMap" Response.Write "<script>alert('更新缓存成功!');javascript:history.back(1)</script>" End Sub Sub RemoveCache() Newasp.DelCahe "Channel" & Request("ChannelID") Newasp.DelCahe "MyChannel" & Request("ChannelID") Newasp.DelCahe "ChannelMenu" Newasp.DelCahe "SiteClassMap" End Sub Sub settingBadWords() Dim Channel_Setting Dim ArrayBadWord Set Rs = Newasp.Execute("SELECT ChannelID,ChannelName,Channel_Setting FROM NC_Channel WHERE ChannelType<2 And ChannelID=" & Newasp.ChkNumeric(Request("ChannelID"))) If Rs.BOF And Rs.EOF Then FoundErr = True ErrMsg = "数据库出现错误,没有找到相关频道!" Set Rs = Nothing Exit Sub End If Channel_Setting = Split(Rs("Channel_Setting") & "@@@||||||@@@||||||", "@@@") ArrayBadWord = Split(Channel_Setting(1), "|||") %> <table border="0" align="center" cellspacing="1" class="TableBorder" cellpadding="3"> <tr> <th align="left"><img src="images/welcome.gif" width="16" height="17" align="absMiddle"> 编辑《<%=Rs("ChannelName")%>》频道设置</th> </tr> <form name="myform" method="post" action="?action=badsave"> <input type="hidden" name="ChannelID" value="<%=Rs("ChannelID")%>"> <tr> <td class="TableRow1"> <fieldset style="cursor: default"><legend> 非法字符限制和审核设置</legend><table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder2"> <tr> <td class="TableRow2" width="20%"><div class="divbody">限制非法字符:<br> 多个字符请用“|”分开</div></td> <td class="TableRow2" width="80%"><textarea rows="8" name="Badword1" cols="80"><%=ArrayBadWord(0)%></textarea></td> </tr> <tr> <td class="TableRow1"><div class="divbody">审核字符设置:<br> 多个字符请用“|”分开</div></td> <td class="TableRow1"><textarea rows="8" name="Badword2" cols="80"><%=ArrayBadWord(1)%></textarea></td> </tr> <tr> <td class="TableRow2" colspan="2"><b>说明:</b><br /><font color="blue"> ①、限制非法字符 -- 当发表信息的标题、内容和评论时有非法字符系统会禁止提交。<br /> ②、审核字符设置 -- 当发表的信息中包含有此字符需要管理员审核。<br /> ③、注意两者不要设置相同的字符,如果不设置请留空。<br /> </font></td> </tr> </table></fieldset></td> </tr> <tr> <td class="TableRow1" align="center"> <input type="submit" value="保存设置" name="B1" class="Button"></td> </tr></form> </table> <% Set Rs = Nothing End Sub Sub saveBadWords() If Founderr = True Then Exit Sub Dim ChannelSetting,m_strArraysetting Dim m_strBadword1,m_strBadword2 m_strBadword1 = Trim(Replace(Replace(Replace(Trim(Request.Form("Badword1")), vbCrLf, ""), "@@@", ""), "|||", "")) m_strBadword2 = Trim(Replace(Replace(Replace(Trim(Request.Form("Badword2")), vbCrLf, ""), "@@@", ""), "|||", "")) If Len(m_strBadword1) > 0 Then If m_strBadword1 = "|" Then m_strBadword1 = "" Else If Left(m_strBadword1,1) = "|" Then m_strBadword1 = Mid(m_strBadword1, 2) If Right(m_strBadword1,1) = "|" Then m_strBadword1 = Left(m_strBadword1, Len(m_strBadword1)-1) End If End If If Len(m_strBadword2) > 0 Then If m_strBadword2 = "|" Then m_strBadword2 = "" Else If Left(m_strBadword2,1) = "|" Then m_strBadword2 = Mid(m_strBadword2, 2) If Right(m_strBadword2,1) = "|" Then m_strBadword2 = Left(m_strBadword2, Len(m_strBadword2)-1) End If End If Set Rs = Newasp.Execute("SELECT ChannelID,Channel_Setting FROM NC_Channel WHERE ChannelType<2 And ChannelID=" & Newasp.ChkNumeric(Request("ChannelID"))) If Rs.BOF And Rs.EOF Then FoundErr = True ErrMsg = "数据库出现错误,没有找到相关频道!" Set Rs = Nothing Exit Sub Else m_strArraysetting = Split(Rs("Channel_Setting") & "@@@||||||@@@||||||", "@@@") ChannelSetting = m_strArraysetting(0) & "@@@" & m_strBadword1 & "|||" & m_strBadword2 & "|||@@@||||||" End If Set Rs = Nothing If Len(ChannelSetting) > 20 Then Set Rs = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM NC_Channel WHERE ChannelID=" & Newasp.ChkNumeric(Request("ChannelID")) Rs.Open SQL,Conn,1,3 Rs("Channel_Setting") = Trim(ChannelSetting) Rs.update Rs.Close Set Rs = Nothing Call RemoveCache End If Succeed("<li>修改频道非法字符限制和审核设置成功!</li>") End Sub %>