📄 admin_channel.asp
字号:
frm.UploadFileType_Others.focus();
return false
}else{
frm.UploadFileType.value += frm.UploadFileType_Others.value;
}
}
}
SubmitOnce(frm);
return;
}
</script>
<form name="myform" action="Admin_Channel.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td colspan="2" class="top_25"><strong> 添加频道</strong></td>
</tr>
<tr>
<td width="25%" class="td_ItemName"><strong>频道名称</strong></td>
<td width="75%" class="td_25"><input name="ChannelName" type="text" id="ChannelName" size="30" maxlength="20"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>名称颜色</strong></td>
<td class="td_25"><input name="ChannelName_Color" type="text" id="ChannelName_Color" size="10">
<img src="Images/rect.gif" id="tChannelName_Color" style="cursor:hand;background:;" width="18" height="17" onClick="SelectColor(this,document.myform.ChannelName_Color)"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>频道图片</strong><br>
请填写图片完整URL地址</td>
<td class="td_25"><input name="ChannelPictrue" type="text" id="ChannelPictrue" size="60" maxlength="255"></td>
</tr>
<tr>
<td class="td_ItemName"><strong>打开方式</strong></td>
<td class="td_25"><input name="OpenType" type="radio" class="nomargin" value="0" checked>
原窗口
<input name="OpenType" type="radio" class="nomargin" value="1">
新窗口</td>
</tr>
<tr>
<td class="td_ItemName"><strong>是否显示频道名称</strong><br>
在网站频道导航中显示</td>
<td class="td_25"><input name="ShowName" type="radio" class="nomargin" value="<%=EL_True%>" checked>
是
<input name="ShowName" type="radio" class="nomargin" value="<%=EL_False%>">
否 </td>
</tr>
<tr>
<td class="td_ItemName"><strong>是否禁用频道</strong></td>
<td class="td_25"><input name="Disabled" type="radio" class="nomargin" value="<%=EL_True%>">
是
<input name="Disabled" type="radio" class="nomargin" value="<%=EL_False%>" checked>
否</td>
</tr>
<tr>
<td class="td_ItemName"><strong>频道类型</strong><br>
<span class="redText">一旦添加之后不能修改</span><br>
系统内部频道需要服务器支持FSO才可以使用</td>
<td class="td_25"><input name="ChannelType" type="radio" class="nomargin" value="0" onClick="ChannelType_onClick()">
系统内部频道
<input name="ChannelType" type="radio" class="nomargin" value="1" checked onClick="ChannelType_onClick()">
外部频道（请填写完整URL地址） </td>
</tr>
<tr align="center">
<td colspan="2" class="top_25"><strong>频道参数设置</strong></td>
</tr>
<tr id="TR_0">
<td class="td_ItemName"><strong>外部频道链接地址</strong></td>
<td class="td_25"><input name="LinkURL" type="text" id="LinkURL" size="60" maxlength="255"></td>
</tr>
<tr id="TR_1" style="display:none;">
<td class="td_ItemName"><strong>频道模块</strong><br>
<span class="redText">一旦添加后不能修改 </span></td>
<td class="td_25">
<select name="ChannelModule" id="ChannelModule">
<option value="1">文章模块</option>
<option value="6">图片模块</option>
</select></td>
</tr>
<tr id="TR_2" style="display:none;">
<td class="td_ItemName"><strong>频道目录</strong><br>
只能是英文字母、数字或下划线<br>
<span class="redText">一旦添加后不能修改 </span></td>
<td class="td_25"><input name="ChannelDir" type="text" id="ChannelDir" size="20" maxlength="20"></td>
</tr>
<tr id="TR_3" style="display:none;">
<td class="td_ItemName"><strong>频道关键字</strong><br>
针对互联网上的搜索引擎的关键字</td>
<td class="td_25"><input name="MetaKeywords" type="text" id="MetaKeywords" size="70" maxlength="255"></td>
</tr>
<tr id="TR_4" style="display:none;">
<td class="td_ItemName"><strong>频道描述</strong><br>
互联网上的搜索引擎对频道的描述</td>
<td class="td_25"><textarea name="MetaDescription" cols="70" rows="6" id="MetaDescription"></textarea></td>
</tr>
<tr id="TR_5" style="display:none;">
<td class="td_ItemName"><strong>项目名称</strong><br>
如：新闻，酒店等</td>
<td class="td_25"><input name="ItemName" type="text" id="ItemName" size="10" maxlength="10"></td>
</tr>
<tr id="TR_6" style="display:none;">
<td class="td_ItemName"><strong>项目单位</strong><br>
如：篇，家等</td>
<td class="td_25"><input name="ItemUnit" type="text" id="ItemUnit" size="10" maxlength="10"></td>
</tr>
<tr id="TR_7" style="display:none;">
<td class="td_ItemName"><strong>分类项目名称</strong><br>
如：栏目，地区等</td>
<td class="td_25"><input name="ClassItemName" type="text" id="ClassItemName" size="10" maxlength="10"></td>
</tr>
<tr id="TR_8" style="display:none;">
<td class="td_ItemName"><strong>分页数</strong><br>
分页显示信息时，每页显示的条数</td>
<td class="td_25"><input name="ShowPageSize" type="text" id="ShowPageSize" value="20" size="5"></td>
</tr>
<tr id="TR_9">
<td class="td_ItemName"><strong>导航栏每行显示的栏目数</strong></td>
<td class="td_25"><input name="ClassNumLine" type="text" id="ClassNumLine" value="10" size="5"></td>
</tr>
<tr id="TR_10">
<td class="td_ItemName"><strong>评论设置</strong></td>
<td class="td_25"><input name="SendComment" type="radio" class="nomargin" value="1">
只有会员可以发表
<input name="SendComment" type="radio" class="nomargin" value="0" checked>
所有人都可以发表
<input name="SendComment" type="radio" class="nomargin" value="2">
禁止评论</td>
</tr>
<tr id="TR_11" style="display:none;">
<td class="td_ItemName"><strong>频道默认风格</strong></td>
<td class="td_25"><select name="SkinID" id="SkinID">
<option value="0">使用系统默认</option>
<%=EL_Common.SkinList(-1)%>
</select></td>
</tr>
<tr id="TR_12" style="display:none;">
<td class="td_ItemName"><strong>是否允许上传文件</strong></td>
<td class="td_25"><input name="EnableUpload" type="radio" class="nomargin" value="<%=EL_True%>" checked>
是
<input name="EnableUpload" type="radio" class="nomargin" value="<%=EL_False%>">
否 </td>
</tr>
<tr id="TR_13" style="display:none;">
<td class="td_ItemName"><strong>上传文件保存目录</strong><br> 只能是英文字母、数字或下划线<br>
<span class="redText">添加后不能修改</span></td>
<td class="td_25"><input name="UploadDir" type="text" id="UploadDir" value="Uploadfiles" size="20" maxlength="20"></td>
</tr>
<tr id="TR_14" style="display:none;">
<td class="td_ItemName"><strong>上传文件大小限制</strong><br>
1024K = 1M</td>
<td class="td_25"><input name="UploadMaxSize" type="text" id="UploadMaxSize" value="1024" size="10">
K</td>
</tr>
<tr id="TR_15" style="display:none;">
<td class="td_ItemName"><strong>允许上传的文件类型</strong></td>
<td class="td_25"><input name="UploadFileType" type="hidden" id="UploadFileType">
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td width="14%" class="td_ItemName">图片类型： </td>
<td width="86%" class="td_25"><input name="UploadFileType_Image" type="text" class="FlatInput" id="UploadFileType_Image" value="jpg|bmp|gif|png" size="40"></td>
</tr>
<tr>
<td class="td_ItemName">Flash文件：</td>
<td class="td_25"><input name="UploadFileType_Flash" type="text" class="FlatInput" id="UploadFileType_Flash" value="swf" size="40"></td>
</tr>
<tr>
<td nowrap class="td_ItemName">Windows媒体：</td>
<td class="td_25"><input name="UploadFileType_WindowMedia" type="text" class="FlatInput" id="UploadFileType_WindowMedia" value="mid|mp3|wmv|asf|avi|mpg" size="40"></td>
</tr>
<tr>
<td class="td_ItemName">Real媒体：</td>
<td class="td_25"><input name="UploadFileType_RealMedia" type="text" class="FlatInput" id="UploadFileType_RealMedia" value="ram|rm|ra" size="40"></td>
</tr>
<tr>
<td class="td_ItemName">其他文件：</td>
<td class="td_25"><input name="UploadFileType_Others" type="text" class="FlatInput" id="UploadFileType_Others" value="rar|exe|doc|zip" size="40"></td>
</tr>
</table></td>
</tr>
<tr>
<td class="td_ItemName"></td>
<td class="td_50"><input type="submit" name="Submit" value="添加频道">
<input type="button" name="Submit" value="返回上页" onClick="history.back()">
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
<input name="Action" type="hidden" id="Action" value="SaveNew"></td>
</tr>
</table>
</form>
<script>ChannelType_onClick();</script>
<%
End Sub
%>
<%
Sub ReadConfig(ByVal ChannelDir)
Dim FSO, CMCFile, ArrConfig
Set FSO = Server.CreateObject(Object_FSO)
EL_Common.ShowScriptError()
Set CMCFile = FSO.OpenTextFile(Server.MapPath(InstallDir & ChannelDir &"/ClassMenuConfig.asp"))
ArrConfig = CMCFile.ReadAll
CMCFile.Close()
Set CMCFile = Nothing
Set FSO = Nothing
ArrConfig = Replace(ArrConfig, """", "")
ArrConfig = Replace(ArrConfig, "%", "")
ArrConfig = Replace(ArrConfig, ">", "")
ArrConfig = Replace(ArrConfig, "<", "")
ArrConfig = Replace(ArrConfig, CHR(10) & CHR(13), "")
ArrConfig = Replace(ArrConfig, CHR(13), "")
If ArrConfig = "" Then ArrConfig = "4@@0@@0@@2@@3@@6@@7@@100@@filter:Glow(Color=#000000, Strength=3)@@4@@@@23@@50@@2@@4@@#999999@@#FFFFFF@@@@3@@1@@1@@#ACA899@@#ffffff@@0@@@@@@@@-1@@-1@@0@@@@@@@@@@@@@@0@@0@@0@@@@@@0@@0@@0@@0@@1@@#F1F2EE@@1@@#CCCCCC@@1@@@@@@3@@3@@0@@0@@#FFFFF7@@#FFCC00@@#000000@@#FF0000@@9pt 宋体@@9pt 宋体"
ArrConfig = Split(ArrConfig, "@@")
CMC_1 = ArrConfig(0)
CMC_2 = ArrConfig(1)
CMC_3 = ArrConfig(2)
CMC_4 = ArrConfig(3)
CMC_5 = ArrConfig(4)
CMC_6 = ArrConfig(5)
CMC_7 = ArrConfig(6)
CMC_8 = ArrConfig(7)
CMC_9 = ArrConfig(8)
CMC_10 = ArrConfig(9)
CMC_11 = ArrConfig(10)
CMC_12 = ArrConfig(11)
CMC_13 = ArrConfig(12)
CMC_14 = ArrConfig(13)
CMC_15 = ArrConfig(14)
CMC_16 = ArrConfig(15)
CMC_17 = ArrConfig(16)
CMC_18 = ArrConfig(17)
CMC_19 = ArrConfig(18)
CMC_20 = ArrConfig(19)
CMC_21 = ArrConfig(20)
CMC_22 = ArrConfig(21)
CMC_23 = ArrConfig(22)
CMC_Item_1 = ArrConfig(23)
CMC_Item_2 = ArrConfig(24)
CMC_Item_3 = ArrConfig(25)
CMC_Item_4 = ArrConfig(26)
CMC_Item_5 = ArrConfig(27)
CMC_Item_6 = ArrConfig(28)
CMC_Item_7 = ArrConfig(29)
CMC_Item_8 = ArrConfig(30)
CMC_Item_9 = ArrConfig(31)
CMC_Item_10 = ArrConfig(32)
CMC_Item_11 = ArrConfig(33)
CMC_Item_12 = ArrConfig(34)
CMC_Item_13 = ArrConfig(35)
CMC_Item_14 = ArrConfig(36)
CMC_Item_15 = ArrConfig(37)
CMC_Item_16 = ArrConfig(38)
CMC_Item_17 = ArrConfig(39)
CMC_Item_18 = ArrConfig(40)
CMC_Item_19 = ArrConfig(41)
CMC_Item_20 = ArrConfig(42)
CMC_Item_21 = ArrConfig(43)
CMC_Item_22 = ArrConfig(44)
CMC_Item_23 = ArrConfig(45)
CMC_Item_24 = ArrConfig(46)
CMC_Item_25 = ArrConfig(47)
CMC_Item_26 = ArrConfig(48)
CMC_Item_27 = ArrConfig(49)
CMC_Item_28 = ArrConfig(50)
CMC_Item_29 = ArrConfig(51)
CMC_Item_30 = ArrConfig(52)
CMC_Item_31 = ArrConfig(53)
CMC_Item_32 = ArrConfig(54)
CMC_Item_33 = ArrConfig(55)
CMC_Item_34 = ArrConfig(56)
CMC_Item_35 = ArrConfig(57)
CMC_Item_36 = ArrConfig(58)
CMC_Item_37 = ArrConfig(59)
CMC_Item_38 = ArrConfig(60)
CMC_Item_39 = ArrConfig(61)
End Sub
Function stm_bm()
stm_bm = "stm_bm(['elancom',400,'','" & InstallDir & "images/blank.gif',0,'','',0,0,0,0,0,1,0,0]);"
End Function
Function stm_bp_h()
stm_bp_h = "stm_bp('p0',[0,4,0,0,2,2,0,0," & CMC_8 & ",'" & CMC_9 & "'," & CMC_10 & ",'" & CMC_11 & "'," & CMC_12 & "," & CMC_13 & ",0,0,'#000000','transparent','',3,0,0,'#000000']);"
End Function
Function stm_bp_v(bpID)
stm_bp_v = "stm_bp('" & bpID & "',[1," & CMC_1 & "," & CMC_2 & "," & CMC_3 & "," & CMC_4 & "," & CMC_5 & "," & CMC_6 & "," & CMC_7 & "," & CMC_8 & ",'" & CMC_9 & "'," & CMC_10 & ",'" & CMC_11 & "'," & CMC_12 & "," & CMC_13 & "," & CMC_14 & "," & CMC_15 & ",'" & CMC_16 & "','" & CMC_17 & "','" & CMC_18 & "'," & CMC_19 & "," & CMC_20 & "," & CMC_21 & ",'" & CMC_22 & "']);"
End Function
Function stm_bpx(bpOID, bpTID, bpType)
If bpType = 0 Then
stm_bpx = "stm_bpx('" & bpOID & "','" & bpTID & "',[1," & CMC_1 & "," & CMC_2 & "," & CMC_3 & "," & CMC_4 & "," & CMC_5 & "," & CMC_6 & "," & CMC_7 & "," & CMC_8 & ",'" & CMC_9 & "'," & CMC_10 & ",'" & CMC_11 & "'," & CMC_12 & "," & CMC_13 & "," & CMC_14 & "," & CMC_15 & ",'" & CMC_16 & "','" & CMC_17 & "','" & CMC_18 & "'," & CMC_19 & "," & CMC_20 & "," & CMC_21 & ",'" & CMC_22 & "']);"
Else
stm_bpx = "stm_bpx('" & bpOID & "','" & bpTID & "',[1,2,-2,-3," & CMC_4 & "," & CMC_5 & ",0," & CMC_7 & "," & CMC_8 & ",'" & CMC_9 & "'," & CMC_10 & ",'" & CMC_11 & "'," & CMC_12 & "," & CMC_13 & "," & CMC_14 & "," & CMC_15 & ",'" & CMC_16 & "','" & CMC_17 & "','" & CMC_18 & "'," & CMC_19 & "," & CMC_20 & "," & CMC_21 & ",'" & CMC_22 & "']);"
End If
End Function
Function stm_ai()
stm_ai = "stm_ai('p0i0',[0,'|','','',-1,-1,0,'','_self','','','','',0,0,0,'','',0,0,0," & CMC_Item_22 & "," & CMC_Item_23 & ",'" & CMC_Item_24 & "'," & CMC_Item_25 & ",'" & CMC_Item_26 & "'," & CMC_Item_27 & ",'" & CMC_Item_28 & "','" & CMC_Item_29 & "'," & CMC_Item_30 & "," & CMC_Item_31 & "," & CMC_Item_32 & "," & CMC_Item_33 & ",'" & CMC_Item_34 & "','" & CMC_Item_35 & "','" & CMC_Item_36 & "','" & CMC_Item_37 & "','" & CMC_Item_38 & "','" & CMC_Item_39 & "','" & CMC_Item_38 & "','" & CMC_Item_39 & "']);"
End Function
Function stm_aix(mOID, mTID, mClassName, mClassFile, mOpenType, mMenuTitle, mSubClass)
If mSubClass = False Then
stm_aix = "stm_aix('" & mOID & "','" & mTID & "',[0,'" & mClassName & "','','',-1,-1,0,'" & mClassFile & "','" & mOpenType & "','" & mClassFile & "','" & EncodeJS(mMenuTitle) & "','','',0,0,0,'','',0,0,0," & CMC_Item_22 & "," & CMC_Item_23 & ",'" & CMC_Item_24 & "'," & CMC_Item_25 & ",'" & CMC_Item_26 & "'," & CMC_Item_27 & ",'" & CMC_Item_28 & "','" & CMC_Item_29 & "'," & CMC_Item_30 & "," & CMC_Item_31 & "," & CMC_Item_32 & "," & CMC_Item_33 & ",'" & CMC_Item_34 & "','" & CMC_Item_35 & "','" & CMC_Item_36 & "','" & CMC_Item_37 & "','" & CMC_Item_38 & "','" & CMC_Item_39 & "']);"
ElseIf mSubClass = True Then
stm_aix = "stm_aix('" & mOID & "','" & mTID & "',[0,'" & mClassName & "','','',-1,-1,0,'" & mClassFile & "','" & mOpenType & "','" & mClassFile & "','" & EncodeJS(mMenuTitle) & "','','',6,0,0,'" & InstallDir & "images/arrow_r.gif','" & InstallDir & "images/arrow_w.gif',7,7,0," & CMC_Item_22 & "," & CMC_Item_23 & ",'" & CMC_Item_24 & "'," & CMC_Item_25 & ",'" & CMC_Item_26 & "'," & CMC_Item_27 & ",'" & CMC_Item_28 & "','" & CMC_Item_29 & "'," & CMC_Item_30 & "," & CMC_Item_31 & "," & CMC_Item_32 & "," & CMC_Item_33 & ",'" & CMC_Item_34 & "','" & CMC_Item_35 & "','" & CMC_Item_36 & "','" & CMC_Item_37 & "','" & CMC_Item_38 & "','" & CMC_Item_39 & "']);"
End If
End Function
Function EncodeJS(str)
EncodeJS = Replace(Replace(Replace(Replace(Replace(str, Chr(10), ""), "\", "\\"), "'", "\'"), VBCRLF, "\n"), Chr(13), "")
End Function
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -