📄 admin_channel.asp
字号:
<td><input name="UploadSetting(7)" type="text" id="UploadSetting(7)" size="35" value="<%=UploadSetting(7)%>" />
限制：<input name="UploadSetting(8)" type="text" id="UploadSetting(8)" value="<%=UploadSetting(8)%>" size="7" maxlength="6" />
K 重命名：<input name="UploadSetting(9)" type="checkbox" id="UploadSetting(9)" value="1" <%if UploadSetting(9)="1" then%>checked<%end if%> />
<br /><font color="#3370CC">即允许上传的文件扩展名，用“|”分隔</font></td>
</tr>
<tr class="tdbg">
<td width="130"><strong>允许上传媒体类型：</strong></td>
<td><input name="UploadSetting(10)" type="text" id="UploadSetting(10)" size="35" value="<%=UploadSetting(10)%>" />
限制：<input name="UploadSetting(11)" type="text" id="UploadSetting(11)" value="<%=UploadSetting(11)%>" size="7" maxlength="6" />
K 重命名：<input name="UploadSetting(12)" type="checkbox" id="UploadSetting(12)" value="1" <%if UploadSetting(12)="1" then%>checked<%end if%> />
<br /><font color="#3370CC">即允许上传的文件扩展名，用“|”分隔</font></td>
</tr>
<tr class="tdbg">
<td width="130"><strong>允许上传文件类型：</strong></td>
<td><input name="UploadSetting(13)" type="text" id="UploadSetting(13)" size="35" value="<%=UploadSetting(13)%>" />
限制：<input name="UploadSetting(14)" type="text" id="UploadSetting(14)" value="<%=UploadSetting(14)%>" size="7" maxlength="6" />
K 重命名：<input name="UploadSetting(15)" type="checkbox" id="UploadSetting(15)" value="1" <%if UploadSetting(15)="1" then%>checked<%end if%> />
<br /><font color="#3370CC">即允许上传的文件扩展名，用“|”分隔</font></td>
</tr>
<tr class="tdbg">
<td width="130"><strong>频道LOGO地址：</strong></td>
<td><input name="Logo" type="text" id="Logo" size="66" value="<%=CLogo%>" />
<br /><font color="#3370CC">请使用绝对URL，网站安装目录可用“{$webdir}”代替</font></td>
</tr>
<tr class="tdbg">
<td width="130"><strong>频道Banner地址：</strong></td>
<td><input name="Banner" type="text" id="Banner" size="66" value="<%=CBanner%>" />
<br /><font color="#3370CC">请使用绝对URL，网站安装目录可用“{$webdir}”代替</font></td>
</tr>
<tr class="tdbg">
<td width="130"><strong>栏目导航参数配置：</strong></td>
<td>显示 栏目 个数：<input name="OtherSetting(0)" type="text" id="OtherSetting(0)" value="<%=OtherSetting(0)%>" size="5" maxlength="2" />
个 <font color="#0000ff">注：0表示全部显示</font><br />
多少个栏目换行：<input name="OtherSetting(1)" type="text" id="OtherSetting(1)" value="<%=OtherSetting(1)%>" size="5" maxlength="2" />
个<br />
启用栏目无限下拉菜单：<input name="OtherSetting(2)" type="checkbox" id="OtherSetting(2)" value="1" <%if OtherSetting(2)="1" then%>checked<%end if%> />
<font color="#3370CC">注：如果栏目个数多，不建议启用</font></td>
</tr>
<tr class="tdbg">
<td width="130"><strong>内容列表每页记录数：</strong></td>
<td>栏目列表：<input name="OtherSetting(3)" type="text" id="OtherSetting(3)" value="<%=OtherSetting(3)%>" size="5" maxlength="2" /> <font color="#3370CC">注：栏目列表的每页记录数(ShowClass.asp)</font><br />
专题列表：<input name="OtherSetting(4)" type="text" id="OtherSetting(4)" value="<%=OtherSetting(4)%>" size="5" maxlength="2" /> <font color="#3370CC">注：专题列表的每页记录数(ShowSpecial.asp)</font><br />
更新列表：<input name="OtherSetting(5)" type="text" id="OtherSetting(5)" value="<%=OtherSetting(5)%>" size="5" maxlength="2" /> <font color="#3370CC">注：更新列表的每页记录数(ShowUpdate.asp)</font><br />
推荐列表：<input name="OtherSetting(6)" type="text" id="OtherSetting(6)" value="<%=OtherSetting(6)%>" size="5" maxlength="2" /> <font color="#3370CC">注：推荐列表的每页记录数(ShowElite.asp)</font><br />
热门列表：<input name="OtherSetting(7)" type="text" id="OtherSetting(7)" value="<%=OtherSetting(7)%>" size="5" maxlength="2" /> <font color="#3370CC">注：热门列表的每页记录数(ShowHot.asp)</font><br />
搜索列表：<input name="OtherSetting(8)" type="text" id="OtherSetting(8)" value="<%=OtherSetting(8)%>" size="5" maxlength="2" /> <font color="#3370CC">注：搜索列表的每页记录数(ShowSearch.asp)</font><br />
其它列表：<input name="OtherSetting(9)" type="text" id="OtherSetting(8)" value="<%=OtherSetting(9)%>" size="5" maxlength="2" /> <font color="#3370CC">注：其它列表的每页记录数(除以上列表外)</font></td>
</tr>
<%
Dim tProjectOption
tProjectOption = "<option value=""0"">默认方案</option>"
Set Rs = Cl.Execute("Select ProjectID,ProjectName From Cl_TemplateProject")
Do While Not Rs.Eof
tProjectOption = tProjectOption & "<option value="""&Rs(0)&""">"&Rs(1)&"</option>"
Rs.MoveNext
Loop
Rs.close:Set Rs=Nothing
%>
<tr class="tdbg">
<td width="130"><strong>频道默认模版选择：</strong></td>
<td>
频道首页：<select name="ProjectID0" onChange="ChangeChannelTemplate(0,1);"><%=tProjectOption%></select>
<select name="TemplateID0"><option value="0">默认模版</option></select>
<select name="CssID0"><option value="0">默认CSS</option></select>
<br />
栏 目 页：<select name="ProjectID1" onChange="ChangeChannelTemplate(1,2);"><%=tProjectOption%></select>
<select name="TemplateID1"><option value="0">默认模版</option></select>
<select name="CssID1"><option value="0">默认CSS</option></select>
<br />
推 荐 页：<select name="ProjectID2" onChange="ChangeChannelTemplate(2,3);"><%=tProjectOption%></select>
<select name="TemplateID2"><option value="0">默认模版</option></select>
<select name="CssID2"><option value="0">默认CSS</option></select>
<br />
热 门 页：<select name="ProjectID3" onChange="ChangeChannelTemplate(3,4);"><%=tProjectOption%></select>
<select name="TemplateID3"><option value="0">默认模版</option></select>
<select name="CssID3"><option value="0">默认CSS</option></select>
<br />
更 新 页：<select name="ProjectID4" onChange="ChangeChannelTemplate(4,5);"><%=tProjectOption%></select>
<select name="TemplateID4"><option value="0">默认模版</option></select>
<select name="CssID4"><option value="0">默认CSS</option></select>
<br />
搜 索 页：<select name="ProjectID5" onChange="ChangeChannelTemplate(5,6);"><%=tProjectOption%></select>
<select name="TemplateID5"><option value="0">默认模版</option></select>
<select name="CssID5"><option value="0">默认CSS</option></select>
<br />
专 题 页：<select name="ProjectID6" onChange="ChangeChannelTemplate(6,7);"><%=tProjectOption%></select>
<select name="TemplateID6"><option value="0">默认模版</option></select>
<select name="CssID6"><option value="0">默认CSS</option></select>
<br />
内 容 页：<select name="ProjectID7" onChange="ChangeChannelTemplate(7,8);"><%=tProjectOption%></select>
<select name="TemplateID7"><option value="0">默认模版</option></select>
<select name="CssID7"><option value="0">默认CSS</option></select>
</td>
</tr>
<script type="text/javascript" src="Inc/AjaxTemplate.js"></script>
<tr class="tdbg">
<td width="130"><strong>是否启用本频道Rss：</strong></td>
<td>
<input type="radio" name="IsRss" value="1" <%if IsRss=1 then%>checked<%end if%><%if Cl.Web_Setting(50) = "No" then%> disabled="disabled"<%end if%> />
打开 <input type="radio" name="IsRss" value="0" <%if IsRss=0 then%>checked<%end if%> />
关闭
</td>
</tr>
<tr class="tdbg">
<td width="130"><strong>是否启用本频道Wap：</strong></td>
<td>
<input type="radio" name="IsWap" value="1" <%if IsWap=1 then%>checked<%end if:if Cl.Web_Setting(51) = "No" then%> disabled<%end if%> />
打开 <input type="radio" name="IsWap" value="0" <%if IsWap=0 then%>checked<%end if%> />
关闭
</td>
</tr>
<tr class="tdbg">
<td width="130"><strong>使用下载服务器方案：</strong></td>
<td>
<select name="ServerProjectID" id="ServerProjectID">
<%
Dim rsI
Set rsI=Cl.Execute("select ProjectID,ProjectName from Cl_ServerProject order by ProjectID Desc")
if rsI.eof then
Response.write "<option value='0'>无方案可用</option>"
else
do while Not rsI.eof
Response.write "<option value='"&rsI(0)&"'>"&rsI(1)&"</option>"
rsI.MoveNext
Loop
end if%>
</select> <font color="#3370CC">注：此设置仅针对下载模块</font> </td>
</tr>
<!--上传设置 end-->
</table>
</td>
</tr>
<!--==================================================================-->
<tr class="tdbg">
<td colspan="2" align="center" class="tdbg">
<input name="Action" type="hidden" id="Action" value="<%=sAction%>" />
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=ChannelID%>" />
<%if Action = "Modify" then%>
<input type="hidden" name="ChannelType" value="<%=ChannelType%>" />
<%end if%>
<input type="submit" name="Submit" value=" <%=SubmitValue%> " />
<input name="Cancel" type="button" id="Cancel" value=" 取 消 " onclick="window.location.href='Admin_Channel.asp'" style="cursor:hand;" />
</td>
</tr>
</form>
</table>
<script language="JavaScript" type="text/javascript">
function OutputUploadDir(val){
if (val!=''){
document.getElementById('UploadSetting(1)').value = val;
}
}
CheckSel('ModuleID','<%=ModuleID%>');
chkradio(document.form1.CreatePathType,'<%=CreatePathType%>');
chkradio(document.form1.CreateFileType,'<%=CreateFileType%>');
//CheckSel('CreatePathType','<%=CreatePathType%>');
CheckSel('ServerProjectID','<%=ServerProjectID%>');
CheckSel('UploadSetting(2)','<%=UploadSetting(2)%>');
CheckSel('UploadSetting(3)','<%=UploadSetting(3)%>');
<%if ChannelType=2 or ChannelID=10 then%>
document.getElementById('OuterChannel').style.display = '';
document.getElementById('NoOuterChannel').style.display = 'none';
<%end if%>
function ChkChannelType(stype){
if (stype == 2) {
document.getElementById('OuterChannel').style.display = '';
document.getElementById('NoOuterChannel').style.display = 'none';
}else{
document.getElementById('OuterChannel').style.display = 'none';
document.getElementById('NoOuterChannel').style.display = '';
}
}
</script>
<%
end sub
sub SaveChannelInfo()
Dim sTemp
Dim ChannelName,ReadMe,OpenType,IsShow,IsDisabled,IsRss,IsWap,ChannelType,LinkUrl
Dim ChannelDir,ChannelItemName,ChannelItemUnit
Dim IsCreateHtml,CreateFileExt,CreatePathType,CreateFileType,IsCreateList,AutoCreateList
Dim sUploadSetting,OtherSetting,ServerProjectID
Dim CLogo,CBanner
Redim UploadSetting(15)
Dim DefaultProject,DefaultTemplate,DefaultCss
ChannelID = Cl.GetClng(request.form("ChannelID"))
ChannelName = Trim(request("ChannelName"))
ReadMe = Trim(request("ReadMe"))
OpenType = Cl.GetClng(request("OpenType"))
IsShow = Cl.GetClng(request("IsShow"))
IsDisabled = Cl.GetClng(request("IsDisabled"))
ChannelType = Cl.GetClng(request("ChannelType"))
LinkUrl = Trim(request("LinkUrl"))
ModuleID = Cl.GetClng(request.form("ModuleID"))
ChannelDir = Trim(request("ChannelDir"))
ChannelItemName = Trim(request("ChannelItemName"))
ChannelItemUnit = Trim(request("ChannelItemUnit"))
IsCreateHtml = Cl.GetClng(request("IsCreateHtml"))
IsRss = Cl.GetClng(request("IsRss"))
IsWap = Cl.GetClng(request("IsWap"))
CreateFileExt = Trim(request("CreateFileExt"))
CreatePathType = Cl.GetClng(request("CreatePathType"))
CreateFileType = Cl.GetClng(request("CreateFileType"))
IsCreateList = Cl.GetClng(request("IsCreateList"))
AutoCreateList = Cl.GetClng(request("AutoCreateList"))
CLogo = Trim(request("Logo"))
CBanner = Trim(request("Banner"))
ServerProjectID = Cl.GetClng(request("ServerProjectID"))
for i=0 to 15
UploadSetting(i)=Replace(Trim(Request("UploadSetting("&i&")")),"@","")
next
for i=0 to 9
OtherSetting= OtherSetting & Cl.GetClng(request("OtherSetting("&i&")")) & ","
Next
DefaultProject = Cl.GetClng(request("ProjectID0"))
DefaultTemplate = Cl.GetClng(request("TemplateID0"))
DefaultCss = Cl.GetClng(request("CssID0"))
for i=1 to 7
DefaultProject = DefaultProject & "," & Cl.GetClng(request("ProjectID"&i))
DefaultTemplate = DefaultTemplate & "," & Cl.GetClng(request("TemplateID"&i))
DefaultCss = DefaultCss & "," & Cl.GetClng(request("CssID"&i))
next
if ChannelType<>0 and ChannelType<>1 then ChannelType=2
if Cint(IsCreateHtml)<>0 then IsCreateHtml=1
if ChannelName="" then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>频道名称不能为空！</li>"
end if
if ChannelType=2 or ChannelID=10 then
if LinkUrl="" then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>链接地址不能为空！</li>"
end if
ModuleID = 0
else
if ChannelDir="" and Action<>"SaveModify" then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>频道目录不能为空！</li>"
end if
if ChannelItemName="" then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>项目名称不能为空！</li>"
end if
if ChannelItemUnit="" then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>项目单位不能为空！</li>"
end if
if IsCreateHtml=1 then
if CreateFileExt="" then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>请输入要生成HTML的扩展名！</li>"
end if
end if
end if
if FoundErr=True then Cl.ShowErr(ErrMsg)
'if Not IsNumeric(UploadSetting(0)) then UploadSetting(0)=0
if Not IsNumeric(UploadSetting(2)) then UploadSetting(2)=0
if Not IsNumeric(UploadSetting(3)) then UploadSetting(3)=0
if Not IsNumeric(UploadSetting(5)) then UploadSetting(5)=100
if Not IsNumeric(UploadSetting(6)) then UploadSetting(6)=0
if Not IsNumeric(UploadSetting(8)) then UploadSetting(8)=500
if Not IsNumeric(UploadSetting(9)) then UploadSetting(9)=0
if Not IsNumeric(UploadSetting(11)) then UploadSetting(11)=2048
if Not IsNumeric(UploadSetting(12)) then UploadSetting(12)=0
if Not IsNumeric(UploadSetting(14)) then UploadSetting(14)=2048
if Not IsNumeric(UploadSetting(15)) then UploadSetting(15)=0
sUploadSetting=UploadSetting(0)
for i=1 to 15
sUploadSetting=sUploadSetting & "@" & UploadSetting(i)
next
if IsCreateList<>0 and IsCreateList<>1 then IsCreateList=0
if AutoCreateList<>0 and AutoCreateList<>1 then AutoCreateList=0
if Action="SaveAdd" then
if ChannelType<>2 then
Dim ChkRs
Set ChkRs=Cl.Execute("Select Top 1 ChannelID From Cl_Channel Where ChannelDir='" & ChannelDir & "'")
if not (ChkRs.bof and ChkRs.EOF) then
Set ChkRs=Nothing
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -