📄 admin_channel.asp
字号:
<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
Private 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 = " & 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>
<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">* 请指定你的频道物理路径，如：<%=Server.MapPath(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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -