www.gusucode.com > 中网景企业网站管理系统 2008源码程序 > admin/Channel.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="opendb.asp" -->
<%
Call CheckAdmin()
Call CnkAdminRight(2)
Dim Action,UpChannelID
Dim ChannelName,ChannelName_en,ChannelItemName,ChannelItemName_en,ChannelItemUnit,ChannelType,ModuleType,Link,ChannelPath,ChannelImage,OpenType
Dim isHTML,Content,Content_en,isStop,isShowNav,isShowSubMenu,isShowComment,ChannelRight,LeftDispBlock,ChannelKeywords,ChannelKeywords_en,ChannelDescription,ChannelDescription_en
Dim PerPageSize,ListDisplayType,ChannelBanner,ChannelBanner_en,ChannelBannerFlash,ChannelBannerFlash_en
Dim AddAdmin,ModiAdmin,DelAdmin,ischk
Action=Trim(Request("Action"))
UpChannelID=Trim(Request("UpChannelID"))
if UpChannelID<>"" then UpChannelID=Cint(UpChannelID) else UpChannelID=0
ChannelName=Trim(Request.Form("ChannelName"))
ChannelName_en=Trim(Request.Form("ChannelName_en"))
ChannelItemName=Trim(Request.Form("ChannelItemName"))
ChannelItemName_en=Trim(Request.Form("ChannelItemName_en"))
ChannelItemUnit=Trim(Request.Form("ChannelItemUnit"))
ChannelType=Trim(Request.Form("ChannelType"))
ModuleType=Trim(Request.Form("ModuleType"))
ChannelPath=Trim(Request.Form("ChannelPath"))
ChannelImage=Trim(Request.Form("ChannelImage"))
OpenType=Trim(Request.Form("OpenType"))
Link=Trim(Request.Form("Link"))
isHTML=Trim(Request.Form("isHTML"))
Content=Trim(Request.Form("Content"))
Content_en=Trim(Request.Form("Content_en"))
isStop=Trim(Request.Form("isStop"))
isShowNav=Trim(Request.Form("isShowNav"))
isShowSubMenu=Trim(Request.Form("isShowSubMenu"))
isShowComment=Trim(Request.Form("isShowComment"))
ChannelRight=Trim(Request.Form("ChannelRight"))
LeftDispBlock=Trim(Request.Form("LeftDispBlock"))
ChannelKeywords=Trim(Request.Form("ChannelKeywords"))
ChannelKeywords_en=Trim(Request.Form("ChannelKeywords_en"))
ChannelDescription=Trim(Request.Form("ChannelDescription"))
ChannelDescription_en=Trim(Request.Form("ChannelDescription_en"))
PerPageSize=Trim(Request.Form("PerPageSize"))
ListDisplayType=Trim(Request.Form("ListDisplayType"))
AddAdmin=Trim(Request.Form("AddAdmin"))
ModiAdmin=Trim(Request.Form("ModiAdmin"))
DelAdmin=Trim(Request.Form("DelAdmin"))
ChannelBanner=Trim(Request.Form("ChannelBanner"))
ChannelBanner_en=Trim(Request.Form("ChannelBanner_en"))
ChannelBannerFlash=Trim(Request.Form("ChannelBannerFlash"))
ChannelBannerFlash_en=Trim(Request.Form("ChannelBannerFlash_en"))
Call Head()
%>
<script language="javascript">
<!--
function mOvr(src,clrOver){
if (!src.contains(event.fromElement)) {
//src.style.cursor = 'hand';
src.bgColor = clrOver;
}
}
function mOut(src,clrIn) {
if (!src.contains(event.toElement)) {
src.style.cursor = 'default';
src.bgColor = clrIn;
}
}
function mClk1(src,id) {
window.location .href =src;
}
//-->
</script>
<script language="JavaScript">
<!--
function cform(){
if(!confirm("真的删除吗?"))
return false;
}//-->
</script>
<body>
<div class="cnkbox"> <% If UpChannelID>0 Then Response.Write(GetChannelContent(UpChannelID,"ChannelName")&" -- ")%> 管理导航： <a href="Channel.asp?UpChannelID=<%= UpChannelID %>">栏目管理首页</a> | <% if ishfsys=1 then %><a href="Channel.asp?UpChannelID=<%= UpChannelID %>&Action=Add">添加新栏目</a><% End If %></div>
<%
select case Action
case "saveadd"
Call SaveAdd()
case "savemodi"
Call SaveModi()
case "del"
Call del()
case "setpaixu"
Call paixu()
case ""
%>
<div class="cnkbox">
<div class="title"><% If UpChannelID>0 Then Response.Write(GetChannelContent(UpChannelID,"ChannelName")&" -- ")%> 栏目管理</div>
<div class="content">
<% Dim ipage
sql="select * from cnk_Channel where ChannelName<>'系统保留' and UpChannelID="&UpChannelID&" order by Paixu"
rs.open sql,conn,1,3
if rs.recordcount=0 then
Response.Write "未有内容"
Response.end
else
%>
<table width="96%" border="0" cellpadding="3" cellspacing="1">
<tr bgcolor="#C2E0FE" align="center">
<td width="4%">排序</td>
<td width="4%">启用</td>
<td width="7%">ChannelID</td>
<td width="23%"> 栏目名称</td>
<td width="7%">打开方式</td>
<td width="7%" align="center">栏目类型</td>
<td width="14%" align="center">链接地址</td>
<td width="6%" align="center">项目单位</td>
<td width="6%" align="center">项目名称</td>
<td width="13%" align="center">功能模块</td>
<td width="9%" align="center">操作</td>
</tr>
<% do while not rs.eof%>
<tr bgcolor="#F6F6F6" onMouseOut="mOut(this,'#F6F6F6');" onMouseOver="mOvr(this,'#EBFFBB');">
<form name="form<%= ipage %>" method="post" action="Channel.asp">
<td align="center">
<input name="Paixu" type="text" class="input" id="Paixu" value="<%= rs("Paixu") %>" size="4" maxlength="2">
<input name="ChannelID" type="hidden" id="ChannelID" value="<%= rs("ChannelID") %>">
<input name="UpChannelID" type="hidden" id="UpChannelID" value="<%= UpChannelID %>">
<input name="Action" type="hidden" id="Action" value="setpaixu"> </td>
</form>
<td align="center"><% If rs("isStop")=0 Then Response.Write("<span class=""bluefont"">√</span>")
If rs("isStop")=1 Then Response.Write("<span class=""redfont"">×</span>")%></td>
<td align="center"><% =rs("ChannelID")%></td>
<td><% If Lang=0 or Lang=2 Then Response.Write(rs("ChannelName")&" ")
If Lang=1 or Lang=2 Then Response.Write(rs("ChannelName_en")&" ")%></td>
<td align="center"><% If rs("OpenType")=1 Then Response.Write("新窗口") Else Response.Write("原窗口")%></td>
<td align="center">
<% If rs("ChannelType")=0 Then Response.Write("内部栏目")
If rs("ChannelType")=1 Then Response.Write("外部栏目")
'If rs("ChannelType")=2 Then Response.Write("外部链接")%>
</td>
<td><% =rs("Link")%></td>
<td align="center"><% =rs("ChannelItemUnit")%></td>
<td align="center"><% =rs("ChannelItemName")%></td>
<td align="center"><% =ShowModuleName(rs("ModuleType"))%></td>
<td align="center">
<a href="?ChannelID=<%=rs("ChannelID")%>&UpChannelID=<%=UpChannelID%>&Action=modi">修改</a> |
<% If rs("ChannelID")>20 Then Response.Write("<a href=""?Action=del&ChannelID="&rs("ChannelID")&"&UpChannelID="&UpChannelID&""" onClick=""return cform()"">删除</a>")%> </td>
</tr>
<%rs.movenext
loop%>
</table>
注：输入排序数字后回车即可
<% rs.close
set rs=nothing
End If %>
</div>
</div>
<% Case "Add" %>
<form name="form1" method="post" action="Channel.asp">
<div class="cnkbox">
<div class="title"><% If UpChannelID>0 Then Response.Write(GetChannelContent(UpChannelID,"ChannelName")&" -- ")%> 添加栏目</div>
<div class="content">
<div id="list">
<ul>
<li class="t1">启用/关闭：</li>
<li class="t2">
<label for="isStop1"><input name="isStop" type="radio" id="isStop1" value="0" checked /> 启用</label>
<label for="isStop2"><input type="radio" name="isStop" value="1" id="isStop2" /> 关闭</label>
</li>
</ul>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">栏目中文名称：</li>
<li class="t2">
<input name="ChannelName" type="text" class="input" id="ChannelName" size="30" maxlength="50" />
</li>
</ul>
<% End If %>
<ul>
<li class="t1">栏目英文名称：</li>
<li class="t2">
<input name="ChannelName_en" type="text" class="input" id="ChannelName_en" size="30" maxlength="50" />
</li>
</ul>
<ul>
<li class="t1">栏目图片：</li>
<li class="t2">
<input name="ChannelImage" type="text" class="input" id="ChannelImage" size="30" maxlength="100" />
</li>
</ul>
<ul>
<li class="t1">栏目类型：</li>
<li class="t2">
<label for="ChannelType0">
<input name="ChannelType" type="radio" id="ChannelType0" value="0" checked onClick="javascript:document.getElementById('inout').style.display='';" />
内部栏目</label>
功能模块：<select name="ModuleType" id="ModuleType" class="input">
<option value="1">单页内容模块</option>
<option value="2" selected>文章/新闻模块</option>
</select>
<br>
<label for="ChannelType1">
<input type="radio" name="ChannelType" value="1" id="ChannelType1" onClick="javascript:document.getElementById('inout').style.display='none';" />
外部栏目</label>
链接地址：<input name="Link" type="text" class="input" id="Link" size="40" maxlength="255" />
可填上 javascript:void(0);表示空链接
</li>
</ul>
<ul>
<li class="t1">打开方式：</li>
<li class="t2">
<label for="open1"><input type="radio" name="OpenType" value="0" id="open1" checked /> 原窗口</label>
<label for="open2"><input name="OpenType" type="radio" id="open2" value="1" /> 新窗口</label>
</li>
</ul>
<ul>
<li class="t1">显示在导航菜单：</li>
<li class="t2">
<label for="nav1"><input name="isShowNav" type="radio" id="nav1" value="1" checked /> 是</label>
<label for="nav2"><input name="isShowNav" type="radio" id="nav2" value="0" /> 否</label>
</li>
</ul>
<div id="inout">
<ul>
<li class="t1">显示下拉菜单：</li>
<li class="t2">
<label for="submenu1"><input name="isShowSubMenu" type="radio" id="submenu1" value="1" checked /> 是</label>
<label for="submenu2"><input name="isShowSubMenu" type="radio" id="submenu2" value="0" /> 否</label>
</li>
</ul>
<ul>
<li class="t1">显示发表评论：</li>
<li class="t2">
<label for="cmt1"><input name="isShowComment" type="radio" id="cmt1" value="1" /> 是</label>
<label for="cmt2"><input name="isShowComment" type="radio" id="cmt2" value="0" checked /> 否</label> (--只对部分栏目有效)
</li>
</ul>
<ul>
<li class="t1">浏览权限：</li>
<li class="t2">
<label for="ChannelRight1"><input name="ChannelRight" type="radio" id="ChannelRight1" value="0" checked /> 所有用户</label>
<label for="ChannelRight2"><input type="radio" name="ChannelRight" value="1" id="ChannelRight2" /> 注册用户</label>
<label for="ChannelRight3"><input type="radio" name="ChannelRight" value="2" id="ChannelRight3" /> VIP用户</label>
<!--input type="radio" name="ChannelRight" value="3" id="ChannelRight4" />
<label for="ChannelRight4">代理商</label-->
</li>
</ul>
<ul>
<li class="t1">前台页面边栏显示：</li>
<li class="t2">
<label for="LeftDispBlock1"><input name="LeftDispBlock" type="checkbox" id="LeftDispBlock1" value="1" checked="checked" />
用户登录</label>
<label for="LeftDispBlock2"><input type="checkbox" name="LeftDispBlock" value="2" id="LeftDispBlock2" checked="checked" />
搜索</label>
<label for="LeftDispBlock3"><input type="checkbox" name="LeftDispBlock" value="3" id="LeftDispBlock3" checked="checked" />
产品列表</label>
<label for="LeftDispBlock4"><input type="checkbox" name="LeftDispBlock" value="4" id="LeftDispBlock4" checked="checked" />
联系方式</label>
</li>
</ul>
<ul>
<li class="t1">信息列表页每页显示信息条数：</li>
<li class="t2">
<input name="PerPageSize" type="text" class="input" id="PerPageSize" value="20" size="30" maxlength="50" />
必填数字
</li>
</ul>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">中文栏目Banner背景图片：</li>
<li class="t2">
<input name="ChannelBanner" type="text" class="input" id="ChannelBanner" size="40" maxlength="50" />
<input type="button" name="Submit" class="button" value="上传" onClick="window.open('upload_flash.asp?formname=form1&editname=ChannelBanner&uppath=images&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')"> 如没有，系统将使用基本设置统一的Banner
</li>
</ul>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<ul>
<li class="t1">英文栏目Banner背景图片：</li>
<li class="t2">
<input name="ChannelBanner_en" type="text" class="input" id="ChannelBanner_en" size="40" maxlength="50" />
<input type="button" name="Submit" class="button" value="上传" onClick="window.open('upload_flash.asp?formname=form1&editname=ChannelBanner_en&uppath=images&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')"> 如没有，系统将使用基本设置统一的Banner
</li>
</ul>
<% End If %>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">中文栏目Flash Banner：</li>
<li class="t2">
<input name="ChannelBannerFlash" type="text" class="input" id="ChannelBannerFlash" size="40" maxlength="50" />
<input type="button" name="Submit" class="button" value="上传" onClick="window.open('upload_flash.asp?formname=form1&editname=ChannelBannerFlash&uppath=images&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')"> 如没有，系统将使用基本设置统一的Flash Banner
</li>
</ul>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<ul>
<li class="t1">英文栏目Flash Banner：</li>
<li class="t2">
<input name="ChannelBannerFlash_en" type="text" class="input" id="ChannelBannerFlash_en" size="40" maxlength="50" />
<input type="button" name="Submit" class="button" value="上传" onClick="window.open('upload_flash.asp?formname=form1&editname=ChannelBannerFlash_en&uppath=images&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')"> 如没有，系统将使用基本设置统一的Flash Banner
</li>
</ul>
<% End If %>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">栏目中文关键词：</li>
<li class="t2">
<input name="ChannelKeywords" type="text" class="input" id="ChannelKeywords" size="40" maxlength="255" />
用逗号隔开</li>
</ul>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<ul>
<li class="t1">栏目英文关键词：</li>
<li class="t2">
<input name="ChannelKeywords_en" type="text" class="input" id="ChannelKeywords_en" size="40" maxlength="255" />
用逗号隔开</li>
</ul>
<% End If %>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">栏目中文描述：</li>
<li class="t2">
<input name="ChannelDescription2" type="text" class="input" id="ChannelDescription2" size="40" maxlength="255" />
用逗号隔开</li>
</ul>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<ul>
<li class="t1">栏目英文描述：</li>
<li class="t2">
<input name="ChannelDescription_en" type="text" class="input" id="ChannelDescription_en" size="40" maxlength="255" />
用逗号隔开</li>
</ul>
<% End If %>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">项目中文名称：</li>
<li class="t2">
<input name="ChannelItemName" type="text" class="input" id="ChannelItemName" size="40" maxlength="20" />
</li>
</ul>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<ul>
<li class="t1">项目英文名称：</li>
<li class="t2">
<input name="ChannelItemName_en" type="text" class="input" id="ChannelItemName_en" size="40" maxlength="20" />
</li>
</ul>
<% End If %>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">中文项目单位：</li>
<li class="t2">
<input name="ChannelItemUnit" type="text" class="input" id="ChannelItemUnit" size="30" maxlength="50" />
</li>
</ul>
<% End If %>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">栏目中文介绍：</li>
<li class="t2">
<textarea name="Content" cols="70" rows="5" class="input" id="Content"></textarea>
</li>
</ul>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<ul>
<li class="t1">栏目英文介绍：</li>
<li class="t2">
<textarea name="Content_en" cols="70" rows="5" class="input" id="Content_en"></textarea>
</li>
</ul>
<% End If %>
<ul>
<li class="t1">可添加内容的管理员：</li>
<li class="t2">
<% rs.open "select AdminName from cnk_Admin",conn,1,1
do while not rs.eof
Response.Write("<input name=""AddAdmin"" type=""checkbox"" id=""AddAdmin"" checked=""checked"" value="""&rs("AdminName")&""">"&vbcrlf)
Response.Write(rs("AdminName")&vbcrlf)
rs.movenext
loop
rs.close%>
</li>
</ul>
<ul>
<li class="t1">可修改内容的管理员：</li>
<li class="t2">
<% rs.open "select AdminName from cnk_Admin",conn,1,1
do while not rs.eof
Response.Write("<input name=""ModiAdmin"" type=""checkbox"" id=""ModiAdmin"" checked=""checked"" value="""&rs("AdminName")&""">"&vbcrlf)
Response.Write(rs("AdminName")&vbcrlf)
rs.movenext
loop
rs.close%>
</li>
</ul>
<ul>
<li class="t1">可删除内容的管理员：</li>
<li class="t2">
<% rs.open "select AdminName from cnk_Admin",conn,1,1
do while not rs.eof
Response.Write("<input name=""DelAdmin"" type=""checkbox"" id=""DelAdmin"" checked=""checked"" value="""&rs("AdminName")&""">"&vbcrlf)
Response.Write(rs("AdminName")&vbcrlf)
rs.movenext
loop
rs.close%>
</li>
</ul>
</div>
<div class="clearboth"></div>
</div>
</div>
</div>
<div align="center">
<input name="Action" type="hidden" id="Action" value="saveadd" />
<input name="UpChannelID" type="hidden" id="UpChannelID" value="<%= UpChannelID %>" />
<input name="提交" type="submit" class="button" value="提交保存" />
<input name="重置" type="reset" class="button" value="恢复" />
</div>
</form>
<% Case "modi"
rs.open "select * from cnk_Channel where ChannelID="&ChannelID,conn,1,1
dim rs1
Set rs1=Server.Createobject("ADODB.Recordset")
%>
<form name="form1" method="post" action="Channel.asp">
<div class="cnkbox">
<div class="title"><% =GetChannelContent(ChannelID,"ChannelName")&" -- "%> 修改栏目</div>
<div class="content">
<div id="list">
<ul>
<li class="t1">启用/关闭：</li>
<li class="t2">
<label for="isStop1"><input type="radio" name="isStop" value="0" id="isStop1" <% If rs("isStop")=0 Then Response.Write("checked=""checked""")%> />
启用</label>
<label for="isStop2"><input type="radio" name="isStop" value="1" id="isStop2" <% If rs("isStop")=1 Then Response.Write("checked=""checked""")%> />
关闭</label>
</li>
</ul>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">栏目中文名称：</li>
<li class="t2">
<input name="ChannelName" type="text" class="input" id="ChannelName" size="30" maxlength="50" value="<%=rs("ChannelName")%>" />
</li>
</ul>
<% End If %>
<ul>
<li class="t1">栏目英文名称：</li>
<li class="t2">
<input name="ChannelName_en" type="text" class="input" id="ChannelName_en" size="30" maxlength="50" value="<%=rs("ChannelName_en")%>" />
</li>
</ul>
<ul>
<li class="t1">栏目图片：</li>
<li class="t2">
<input name="ChannelImage" type="text" class="input" id="ChannelImage" size="30" maxlength="100" value="<%=rs("ChannelImage")%>" />
</li>
</ul>
<ul>
<li class="t1">栏目类型：</li>
<li class="t2">
<label for="ChannelType0">
<input type="radio" name="ChannelType" value="0" <% If rs("ChannelType")=0 Then Response.Write("checked=""checked""")%> id="ChannelType0" disabled="disabled" />
内部栏目</label>
功能模块：<select name="ModuleType" id="ModuleType" class="input" disabled="disabled">
<option value="1" <% If rs("ModuleType")=1 Then Response.Write("selected=""selected""")%>>单页内容模块</option>
<option value="2" <% If rs("ModuleType")=2 Then Response.Write("selected=""selected""")%>>文章/新闻模块</option>
</select>
<br>
<label for="ChannelType1">
<input type="radio" name="ChannelType" value="1" <% If rs("ChannelType")=1 Then Response.Write("checked=""checked""")%> id="ChannelType1" disabled="disabled" />
外部栏目</label>
链接地址：<input name="Link" type="text" class="input" id="Link" value="<%= rs("Link") %>" size="40" maxlength="255" />
可填上 javascript:void(0);表示空链接
</li>
</ul>
<ul>
<li class="t1">打开方式：</li>
<li class="t2">
<label for="open1"><input type="radio" name="OpenType" value="0" id="open1" <% If rs("OpenType")=0 Then Response.Write("checked=""checked""")%> />
原窗口</label>
<label for="open2"><input type="radio" name="OpenType" value="1" id="open2" <% If rs("OpenType")=1 Then Response.Write("checked=""checked""")%> />
新窗口</label>
</li>
</ul>
<ul>
<li class="t1">显示在导航菜单：</li>
<li class="t2">
<label for="nav1"><input name="isShowNav" type="radio" id="nav1" value="1" <% If rs("isShowNav")=1 Then Response.Write("checked=""checked""")%> />
是</label>
<label for="nav2"><input name="isShowNav" type="radio" id="nav2" value="0" <% If rs("isShowNav")=0 Then Response.Write("checked=""checked""")%> />
否</label>
</li>
</ul>
<div<% If rs("ChannelType")=1 Then Response.Write(" style=""display:none""")%>>
<ul>
<li class="t1">显示下拉菜单：</li>
<li class="t2">
<label for="submenu1"><input name="isShowSubMenu" type="radio" id="submenu1" value="1" <% If rs("isShowSubMenu")=1 Then Response.Write("checked=""checked""")%> />
是</label>
<label for="submenu2"><input name="isShowSubMenu" type="radio" id="submenu2" value="0" <% If rs("isShowSubMenu")=0 Then Response.Write("checked=""checked""")%> />
否</label>
</li>
</ul>
<ul>
<li class="t1">显示发表评论：</li>
<li class="t2">
<label for="cmt1"><input name="isShowComment" type="radio" id="cmt1" value="1" <% If rs("isShowComment")=1 Then Response.Write("checked=""checked""")%> /> 是</label>
<label for="cmt2"><input name="isShowComment" type="radio" id="cmt2" value="0" <% If rs("isShowComment")=0 Then Response.Write("checked=""checked""")%> /> 否</label> (--只对部分栏目有效)
</li>
</ul>
<ul>
<li class="t1">浏览权限：</li>
<li class="t2">
<label for="ChannelRight1"><input type="radio" name="ChannelRight" value="0" id="ChannelRight1" <% If rs("ChannelRight")=0 Then Response.Write("checked=""checked""")%> />
所有用户</label>
<label for="ChannelRight2"><input type="radio" name="ChannelRight" value="1" id="ChannelRight2" <% If rs("ChannelRight")=1 Then Response.Write("checked=""checked""")%> />
注册用户</label>
<label for="ChannelRight3"><input type="radio" name="ChannelRight" value="2" id="ChannelRight3" <% If rs("ChannelRight")=2 Then Response.Write("checked=""checked""")%> />
VIP用户</label>
<label for="ChannelRight4"><input type="radio" name="ChannelRight" value="3" id="ChannelRight4" <% If rs("ChannelRight")=3 Then Response.Write("checked=""checked""")%> />
代理商</label>
</li>
</ul>
<ul>
<li class="t1">前台页面边栏显示：</li>
<li class="t2">
<label for="LeftDispBlock1"><input name="LeftDispBlock" type="checkbox" id="LeftDispBlock1" value="1" <% If isDispBlock(ChannelID,1)=1 Then Response.Write("checked=""checked""")%> />
用户登录</label>
<label for="LeftDispBlock2"><input type="checkbox" name="LeftDispBlock" value="2" id="LeftDispBlock2" <% If isDispBlock(ChannelID,2)=1 Then Response.Write("checked=""checked""")%> />
搜索</label>
<label for="LeftDispBlock3"><input type="checkbox" name="LeftDispBlock" value="3" id="LeftDispBlock3" <% If isDispBlock(ChannelID,3)=1 Then Response.Write("checked=""checked""")%> />
产品列表</label>
<label for="LeftDispBlock4"><input type="checkbox" name="LeftDispBlock" value="4" id="LeftDispBlock4" <% If isDispBlock(ChannelID,4)=1 Then Response.Write("checked=""checked""")%> />
联系方式</label>
</li>
</ul>
<ul>
<li class="t1">列表页显示方式：</li>
<li class="t2">
<select name="ListDisplayType" class="input" id="ListDisplayType">
<% Select case rs("ModuleType")
case 1,8%>
<option value="0" <% If rs("ListDisplayType")=0 Then Response.Write("selected=""selected""")%>>无列表</option>
<% case 2 %>
<option value="0" <% If rs("ListDisplayType")=0 Then Response.Write("selected=""selected""")%>>仅标题列表</option>
<option value="1" <% If rs("ListDisplayType")=1 Then Response.Write("selected=""selected""")%>>标题+日期</option>
<option value="2" <% If rs("ListDisplayType")=2 Then Response.Write("selected=""selected""")%>>标题+作者+日期</option>
<option value="3" <% If rs("ListDisplayType")=3 Then Response.Write("selected=""selected""")%>>标题+作者+日期+前100字简介</option>
<option value="4" <% If rs("ListDisplayType")=4 Then Response.Write("selected=""selected""")%>>图片+标题+作者+日期+前100字简介</option>
<option value="5" <% If rs("ListDisplayType")=5 Then Response.Write("selected=""selected""")%>>图片阵列+标题</option>
<% case 3 %>
<option value="0" <% If rs("ListDisplayType")=0 Then Response.Write("selected=""selected""")%>>阵列图片+名称</option>
<option value="1" <% If rs("ListDisplayType")=1 Then Response.Write("selected=""selected""")%>>一行一个图片+名称+简介</option>
<option value="2" <% If rs("ListDisplayType")=2 Then Response.Write("selected=""selected""")%>>一行二个图片+名称+简介</option>
<option value="3" <% If rs("ListDisplayType")=3 Then Response.Write("selected=""selected""")%>>一行一条标题/名称列表</option>
<% case 4 %>
<option value="0" <% If rs("ListDisplayType")=0 Then Response.Write("selected=""selected""")%>>阵列图片+名称</option>
<option value="1" <% If rs("ListDisplayType")=1 Then Response.Write("selected=""selected""")%>>每页四幅缩略图+一幅大图，手工播放</option>
<option value="2" <% If rs("ListDisplayType")=2 Then Response.Write("selected=""selected""")%>>每页五幅缩略图+一幅大图，自动播放</option>
<option value="3" <% If rs("ListDisplayType")=3 Then Response.Write("selected=""selected""")%>>全部图片自动轮换播放</option>
<% case 5 %>
<option value="0" <% If rs("ListDisplayType")=0 Then Response.Write("selected=""selected""")%>>表格:名称|类型|大小|平台|下载 </option>
<option value="1" <% If rs("ListDisplayType")=1 Then Response.Write("selected=""selected""")%>>名称+简介+类型+大小+平台+下载</option>
<% case 6 %>
<option value="0" <% If rs("ListDisplayType")=0 Then Response.Write("selected=""selected""")%>>平板模式 </option>
<option value="1" <% If rs("ListDisplayType")=1 Then Response.Write("selected=""selected""")%>>论坛模式</option>
<% case 7 %>
<option value="0" <% If rs("ListDisplayType")=0 Then Response.Write("selected=""selected""")%>>招聘职位+日期 </option>
<option value="1" <% If rs("ListDisplayType")=1 Then Response.Write("selected=""selected""")%>>招聘职位+日期+简介</option>
<option value="2" <% If rs("ListDisplayType")=2 Then Response.Write("selected=""selected""")%>>显示全部内容</option>
<% end select %>
</select>
</li>
</ul>
<ul>
<li class="t1">信息列表页每页显示信息条数：</li>
<li class="t2">
<input name="PerPageSize" type="text" class="input" id="PerPageSize" size="30" maxlength="50" value="<%= rs("PerPageSize") %>" />
</li>
</ul>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">中文栏目Banner背景图片：</li>
<li class="t2">
<input name="ChannelBanner" type="text" class="input" id="ChannelBanner" size="40" maxlength="50" value="<%= rs("ChannelBanner") %>" />
<input type="button" name="Submit" class="button" value="上传" onClick="window.open('upload_flash.asp?formname=form1&editname=ChannelBanner&uppath=images&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
</li>
</ul>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<ul>
<li class="t1">英文栏目Banner背景图片：</li>
<li class="t2">
<input name="ChannelBanner_en" type="text" class="input" id="ChannelBanner_en" size="40" maxlength="50" value="<%= rs("ChannelBanner_en") %>" />
<input type="button" name="Submit" class="button" value="上传" onClick="window.open('upload_flash.asp?formname=form1&editname=ChannelBanner_en&uppath=images&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
</li>
</ul>
<% End If %>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">中文栏目Flash Banner：</li>
<li class="t2">
<input name="ChannelBannerFlash" type="text" class="input" id="ChannelBannerFlash" size="40" maxlength="50" value="<%= rs("ChannelBannerFlash") %>" />
<input type="button" name="Submit" class="button" value="上传" onClick="window.open('upload_flash.asp?formname=form1&editname=ChannelBannerFlash&uppath=images&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
</li>
</ul>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<ul>
<li class="t1">英文栏目Flash Banner：</li>
<li class="t2">
<input name="ChannelBannerFlash_en" type="text" class="input" id="ChannelBannerFlash_en" size="40" maxlength="50" value="<%= rs("ChannelBannerFlash_en") %>" />
<input type="button" name="Submit" class="button" value="上传" onClick="window.open('upload_flash.asp?formname=form1&editname=ChannelBannerFlash_en&uppath=images&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
</li>
</ul>
<% End If %>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">栏目中文关键词：</li>
<li class="t2">
<input name="ChannelKeywords" type="text" class="input" id="ChannelKeywords" size="40" maxlength="255" value="<%= rs("ChannelKeywords") %>" />
用逗号隔开</li>
</ul>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<ul>
<li class="t1">栏目英文关键词：</li>
<li class="t2">
<input name="ChannelKeywords_en" type="text" class="input" id="ChannelKeywords_en" size="40" maxlength="255" value="<%= rs("ChannelKeywords_en") %>" />
用逗号隔开</li>
</ul>
<% End If %>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">栏目中文描述：</li>
<li class="t2">
<input name="ChannelDescription" type="text" class="input" id="ChannelDescription" size="40" maxlength="255" value="<%= rs("ChannelDescription") %>" />
用逗号隔开</li>
</ul>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<ul>
<li class="t1">栏目英文描述：</li>
<li class="t2">
<input name="ChannelDescription_en" type="text" class="input" id="ChannelDescription_en" size="40" maxlength="255" value="<%= rs("ChannelDescription_en") %>" />
用逗号隔开</li>
</ul>
<% End If %>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">项目中文名称：</li>
<li class="t2">
<input name="ChannelItemName" type="text" class="input" id="ChannelItemName" value="<%= rs("ChannelItemName") %>" size="40" maxlength="20" />
</li>
</ul>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<ul>
<li class="t1">项目英文名称：</li>
<li class="t2">
<input name="ChannelItemName_en" type="text" class="input" id="ChannelItemName_en" value="<%= rs("ChannelItemName_en") %>" size="40" maxlength="20" />
</li>
</ul>
<% End If %>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">中文项目单位：</li>
<li class="t2">
<input name="ChannelItemUnit" type="text" class="input" id="ChannelItemUnit" value="<%= rs("ChannelItemUnit") %>" size="30" maxlength="50" />
</li>
</ul>
<% End If %>
<% If Lang=0 or Lang=2 Then %>
<ul>
<li class="t1">栏目中文介绍：</li>
<li class="t2">
<textarea name="Content" cols="70" rows="5" class="input" id="Content"><%= rs("Content") %></textarea>
</li>
</ul>
<% End If %>
<% If Lang=1 or Lang=2 Then %>
<ul>
<li class="t1">栏目英文介绍：</li>
<li class="t2">
<textarea name="Content_en" cols="70" rows="5" class="input" id="Content_en"><%= rs("Content_en") %></textarea>
</li>
</ul>
<% End If %>
<ul>
<li class="t1">可添加内容的管理员：</li>
<li class="t2">
<% rs1.open "select AdminName from cnk_Admin",conn,1,1
do while not rs1.eof
if isAdminRight("AddAdmin",ChannelID,rs1("AdminName"))=1 then ischk="checked"
Response.Write("<input name=""AddAdmin"" type=""checkbox"" id=""AddAdmin"" value="""&rs1("AdminName")&""" "&ischk&" />"&vbcrlf)
Response.Write(rs1("AdminName")&vbcrlf)
ischk=""
rs1.movenext
loop
rs1.close
ischk=""%>
</li>
</ul>
<ul>
<li class="t1">可修改内容的管理员：</li>
<li class="t2">
<% rs1.open "select AdminName from cnk_Admin",conn,1,1
do while not rs1.eof
if isAdminRight("ModiAdmin",ChannelID,rs1("AdminName"))=1 then ischk="checked"
Response.Write("<input name=""ModiAdmin"" type=""checkbox"" id=""ModiAdmin"" value="""&rs1("AdminName")&""" "&ischk&" />"&vbcrlf)
Response.Write(rs1("AdminName")&vbcrlf)
ischk=""
rs1.movenext
loop
rs1.close
ischk=""%>
</li>
</ul>
<ul>
<li class="t1">可删除内容的管理员：</li>
<li class="t2">
<% rs1.open "select AdminName from cnk_Admin",conn,1,1
do while not rs1.eof
if isAdminRight("DelAdmin",ChannelID,rs1("AdminName"))=1 then ischk="checked"
Response.Write("<input name=""DelAdmin"" type=""checkbox"" id=""DelAdmin"" value="""&rs1("AdminName")&""" "&ischk&" />"&vbcrlf)
Response.Write(rs1("AdminName")&vbcrlf)
ischk=""
rs1.movenext
loop
rs1.close
ischk=""
set rs1=nothing%>
</li>
</ul>
</div>
<div class="clearboth"></div>
</div>
</div>
</div>
<div align="center">
<input name="Action" type="hidden" id="Action" value="savemodi" />
<input name="ChannelID" type="hidden" id="ChannelID" value="<%= ChannelID %>" />
<input name="UpChannelID" type="hidden" id="UpChannelID" value="<%= UpChannelID %>" />
<input name="提交" type="submit" class="button" value="提交保存" />
<input name="重置" type="reset" class="button" value="恢复" />
</div>
</form>
<% rs.close
End Select
If Trim(Request.QueryString("ls"))="1" Then Response.Write("<script>parent.contents.history.go(0);</script>")
Call Foot()
Call Closedb()
Sub SaveAdd()
if PerPageSize="" then PerPageSize=0
if UpChannelID="" then UpChannelID=0
ListDisplayType=0 '给默认的显示方式
sql="insert into Cnk_Channel"
sql=sql&" (UpChannelID,ChannelName,ChannelName_en,ChannelItemName,ChannelItemName_en,ChannelItemUnit,ChannelType,ModuleType,Link,ChannelImage,OpenType"
sql=sql&",Content,Content_en,isStop,isShowNav,isShowSubMenu,isShowComment,ChannelRight,LeftDispBlock,ChannelKeywords,ChannelKeywords_en,ChannelDescription,ChannelDescription_en,ChannelBanner,ChannelBanner_en,ChannelBannerFlash,ChannelBannerFlash_en"
sql=sql&",PerPageSize,ListDisplayType,AddAdmin,ModiAdmin,DelAdmin)"
sql=sql&" values ("&UpChannelID&",'"&ChannelName&"','"&ChannelName_en&"','"&ChannelItemName&"','"&ChannelItemName_en&"','"&ChannelItemUnit&"',"&ChannelType&","&ModuleType&",'"&Link&"','"&ChannelImage&"',"&OpenType&""
sql=sql&",'"&Content&"','"&Content_en&"',"&isStop&","&isShowNav&","&isShowSubMenu&","&isShowComment&","&ChannelRight&",'"&LeftDispBlock&"','"&ChannelKeywords&"','"&ChannelKeywords_en&"','"&ChannelDescription&"','"&ChannelDescription_en&"','"&ChannelBanner&"','"&ChannelBanner_en&"','"&ChannelBannerFlash&"','"&ChannelBannerFlash_en&"'"
sql=sql&","&PerPageSize&","&ListDisplayType&",'"&AddAdmin&"','"&ModiAdmin&"','"&DelAdmin&"')"
'Response.Write(sql)
conn.execute(sql)
rs.open "select top 1 ChannelID,UpChannelID,ChannelPath from Cnk_Channel order by ChannelID DESC",conn,1,1
if ModuleType=1 then conn.execute("insert into cnk_company_content (ChannelID) values ("&rs("ChannelID")&")")
if rs("UpChannelID")=0 then
conn.execute("update cnk_Channel set ChannelPath='"&rs("ChannelID")&"' where ChannelID="&rs("ChannelID"))
else
Dim rschpa
set rschpa=conn.execute("select ChannelPath from Cnk_Channel where ChannelID="&rs("UpChannelID"))
conn.execute("update cnk_Channel set ChannelPath='"&rschpa(0)&","&rs("ChannelID")&"' where ChannelID="&rs("ChannelID"))
end if
rs.close
Call alertmsg_url("添加成功","Channel.asp?UpChannelID="&UpChannelID&"&ls=1")
End Sub
Sub SaveModi()
if PerPageSize="" then PerPageSize=0
if ListDisplayType="" then ListDisplayType=0
Link=Trim(Request.Form("Link"))
sql="update Cnk_Channel set"
sql=sql&" ChannelName='"&ChannelName&"',ChannelName_en='"&ChannelName_en&"',ChannelItemName='"&ChannelItemName&"',ChannelItemName_en='"&ChannelItemName_en&"',ChannelItemUnit='"&ChannelItemUnit&"',Link='"&Link&"',ChannelImage='"&ChannelImage&"',OpenType="&OpenType&""
sql=sql&",Content='"&Content&"',Content_en='"&Content_en&"',isStop="&isStop&",isShowNav="&isShowNav&",isShowSubMenu="&isShowSubMenu&",isShowComment="&isShowComment&",ChannelRight="&ChannelRight&",LeftDispBlock='"&LeftDispBlock&"',ChannelKeywords='"&ChannelKeywords&"',ChannelKeywords_en='"&ChannelKeywords_en&"',ChannelDescription='"&ChannelDescription&"',ChannelDescription_en='"&ChannelDescription_en&"',ChannelBanner='"&ChannelBanner&"',ChannelBanner_en='"&ChannelBanner_en&"',ChannelBannerFlash='"&ChannelBannerFlash&"',ChannelBannerFlash_en='"&ChannelBannerFlash_en&"'"
'if ChannelID=3 and Link<>"" then sql=sql&",Link='"&Link&"'"
sql=sql&",PerPageSize="&PerPageSize&",ListDisplayType="&ListDisplayType&",AddAdmin='"&AddAdmin&"',ModiAdmin='"&ModiAdmin&"',DelAdmin='"&DelAdmin&"' where ChannelID="&ChannelID
conn.execute(sql)
Call alertmsg_url("修改成功","Channel.asp?UpChannelID="&UpChannelID)
End Sub
Sub del()
dim rstag,tname
conn.execute("delete from cnk_company_content where ChannelID="&ChannelID)
conn.execute("delete from cnk_Channel where ChannelID="&ChannelID)
Call alertmsg_url("删除成功","Channel.asp?UpChannelID="&UpChannelID&"&ls=1")
End Sub
Sub paixu()
conn.execute("update cnk_Channel set Paixu="&Trim(Request.Form("Paixu"))&" where ChannelID="&ChannelID)
Response.Write("<script>window.location.href='Channel.asp?UpChannelID="&UpChannelID&"';</script>")
End Sub
%>