📄 admin_channel.asp
字号:
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">设置软件运行环境：</div><br>每个运行环境请用“|”分开</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">设置软件类型：</div><br>每个软件类型请用“,”分开</td>
<td class="TableRow2"><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>
<td class="TableRow2"><div class="divbody">设置软件语言：</div><br>每种软件语言请用“,”分开</td>
<td class="TableRow2"><input type="text" name="ChannelSetting" size="60" value="<%=Channel_Setting(4)%>"></td>
</tr>
<%
Else
Response.Write "<input type=""hidden"" name=""ChannelSetting"" value=""|||"">"
Response.Write "<input type=""hidden"" name=""ChannelSetting"" value=""@@@"">"
Response.Write "<input type=""hidden"" name=""ChannelSetting"" value=""@@@"">"
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">固定内容中图片大小：</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
Private 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
Private Sub SavenewChannel()
CheckSave
Dim neworders
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) <> "/" Then
ChannelDir = ChannelDir & "/"
Else
ChannelDir = ChannelDir
End If
If Request.Form("ChannelType") = 1 Then
If Request.Form("modules") = 0 Then
FoundErr = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -