📄 admin_channel.asp
字号:
ErrMsg = "数据库出现错误,没有此站点频道!"
Rs.Close
Set Rs = Nothing
Exit Sub
End If
Channel_Setting = Split(Rs("Channel_Setting"), "|||")
tempstr = Newasp.HtmlRndFileName
%>
<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>
<form method="POST" action="?action=savedit">
<input type="hidden" name="ChannelID" value="<%=Rs("ChannelID")%>">
<tr>
<td width="28%" class="TableRow2"><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="TableRow1">颜色：
<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="TableRow2"><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="TableRow1">
<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="TableRow2"><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="TableRow1">
<%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="TableRow2"><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="TableRow1">
<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="TableRow2"><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="TableRow1"><div class="divbody">频道功能模块：</div></td>
<td width="72%" class="TableRow1">
<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="TableRow1">
<input type="text" name="ChannelDir" size="20" value="<%=Rs("ChannelDir")%>"> <font color="#FF0000">
* 如果要修改频道所在目录，请手工修改相应的目录名称</font></td>
</tr>
<tr style="display:none">
<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") = 5 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="TableRow1">
<input type="text" name="DomainName" size="40" value="<%=Rs("DomainName")%>">
<br><font color="#FF0000">* 请输入你要绑定的域名，如：http://bind.newasp.net/</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="TableRow1"><div class="divbody">生成HTML文件的扩展名：</div></td>
<td class="TableRow1"><input 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 type="text" name="HtmlPrefix" size="10" value="<%=Rs("HtmlPrefix")%>"> <font color=blue>* 格式如：“<%=Rs("HtmlPrefix")%>12345.html”，“<%=Rs("HtmlPrefix")%>list123_1.html”</font></td>
</tr>
<tr>
<td class="TableRow1"><div class="divbody">按日期保存HTML文件的路径格式：</div></td>
<td class="TableRow1">
<select size="1" name="HtmlPath" onChange="chkselect(options[selectedIndex].value,'know2');">
<option value="0"<%If Rs("HtmlPath") = 0 Then Response.Write (" selected")%>>不使用日期目录</option>
<option value="1"<%If Rs("HtmlPath") = 1 Then Response.Write (" selected")%>><%=Newasp.ShowDatePath(tempstr,1)%></option>
<option value="2"<%If Rs("HtmlPath") = 2 Then Response.Write (" selected")%>><%=Newasp.ShowDatePath(tempstr,2)%></option>
<option value="3"<%If Rs("HtmlPath") = 3 Then Response.Write (" selected")%>><%=Newasp.ShowDatePath(tempstr,3)%></option>
<option value="4"<%If Rs("HtmlPath") = 4 Then Response.Write (" selected")%>><%=Newasp.ShowDatePath(tempstr,4)%></option>
<option value="5"<%If Rs("HtmlPath") = 5 Then Response.Write (" selected")%>><%=Newasp.ShowDatePath(tempstr,5)%></option>
<option value="6"<%If Rs("HtmlPath") = 6 Then Response.Write (" selected")%>><%=Newasp.ShowDatePath(tempstr,6)%></option>
<option value="7"<%If Rs("HtmlPath") = 7 Then Response.Write (" selected")%>><%=Newasp.ShowDatePath(tempstr,7)%></option>
<option value="8"<%If Rs("HtmlPath") = 8 Then Response.Write (" selected")%>><%=Newasp.ShowDatePath(tempstr,8)%></option>
</select> <font color=blue>此目录是根据添加内容的日期生成，相对于各分类目录下面</font><div id="know2" style="color: red;font-weight:bold;"></div></td>
</tr>
<tr>
<td class="TableRow1"><div class="divbody">保存HTML文件的格式：</div></td>
<td class="TableRow1">
<select size="1" name="HtmlForm" onChange="chkselect(options[selectedIndex].value,'know1');">
<option value="0"<%If Rs("HtmlForm") = 0 Then Response.Write (" selected")%>>日期和时间</option>
<option value="1"<%If Rs("HtmlForm") = 1 Then Response.Write (" selected")%>><%=sModuleName%>ID</option>
<option value="2"<%If Rs("HtmlForm") = 2 Then Response.Write (" selected")%>>文件前缀+<%=sModuleName%>ID</option>
<option value="3"<%If Rs("HtmlForm") = 3 Then Response.Write (" selected")%>>日期+<%=sModuleName%>ID</option>
<option value="4"<%If Rs("HtmlForm") = 4 Then Response.Write (" selected")%>>随机数+<%=sModuleName%>ID</option>
</select><div id="know1" style="color: red;font-weight:bold;"></div></td>
</tr>
<tr>
<td class="TableRow1"><div class="divbody">是否允许用户上传文件：</div></td>
<td class="TableRow1">
<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="TableRow1"><div class="divbody">允许上传文件的类型：<br>多种文件类型之间用“|”分隔</div></td>
<td class="TableRow1"><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="TableRow1"><div class="divbody">
<%
If Rs("ChannelID") = 4 Then
Response.Write "发表留言"
Else
Response.Write "发表评论"
End If
%>
的用户等级：</div></td>
<td class="TableRow1"><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="TableRow1"><div class="divbody">最小评论留言字符：</div></td>
<td class="TableRow1"><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="TableRow1"><div class="divbody">每页显示列表数：</div></td>
<td class="TableRow1"><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="TableRow1"><div class="divbody">设置软件运行环境：</div><br>每个运行环境请用“|”分开</td>
<td class="TableRow1"><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="TableRow1"><div class="divbody">设置软件类型：</div><br>每个软件类型请用“,”分开</td>
<td class="TableRow1"><textarea name="ChannelSetting" cols="60" rows="3"><%=Channel_Setting(2)%></textarea></td>
</tr>
<tr>
<td class="TableRow1"><div class="divbody">设置软件授权方式：</div><br>每种授权方式请用“,”分开</td>
<td class="TableRow1"><input type="text" name="ChannelSetting" size="60" value="<%=Channel_Setting(3)%>"></td>
</tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -