28,390
社区成员
发帖
与我相关
我的任务
分享Microsoft VBScript 运行时错误 '800a01f4'
大家好请帮我看一下点击频道更新时出现Microsoft VBScript 运行时错误 '800a01f4'
变量未定义: 'CreateClassJs'
\sd\Admin_Channel.asp, line 1327
另一个问题创建频道出错，执行查询代码时发现错误，请检查您的查询代码是否正确。Microsoft Jet 数据库引擎找不到输入表或查询 'CreateFiles'。 确定它是否存在，以及它的名称的拼写是否正确。
Select Data From CreateFiles Where ID=1
请大家看看什么意思
<!--#include file="Admin_Const.asp"-->
<!--#include file="../Inc/Function_Article.asp"-->
<!--#include file="../Inc/Function_Soft.asp"-->
<!--#include file="../Inc/Function_Photo.asp"-->
<!--#include file="../Inc/Function_Movie.asp"-->
<%
if Not Cl.TrueOtherPurview("Channel") then
Admin_ShowErr("<br /><li>您无此操作权限！</li>")
end if
dim Action',ChannelID
dim iCount,j
'ChannelType 0为系统，1为内部，2为外部
Action=Trim(request("Action"))
Header
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="title">
<td height="22" colspan="2" align="center"><strong>网 站 频 道 管 理</strong></td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航：</strong></td>
<td><a href="Admin_Channel.asp">频道管理首页</a> | <a href="Admin_Channel.asp?Action=Add">添加新频道</a> | <a href="Admin_Channel.asp?Action=OrderID">修改频道排序</a> | <a href="Admin_Channel.asp?Action=SelectStyle">批量选择模板/Css</a></td>
</tr>
</table>
<%
Select Case Action
Case "Add"
call ChannelInfo()
Case "SaveAdd"
call SaveChannelInfo()
Case "Modify"
call ChannelInfo()
Case "SaveModify"
call SaveChannelInfo()
Case "Del"
call DelChannel()
Case "OrderID"
call OrderID()
Case "UpOrder"
call UpOrder()
Case "DownOrder"
call DownOrder()
Case "SelectStyle"
call SelectStyle()
Case "UpdateStyle"
call UpdateStyle()
Case "UpdateStyleAll"
call UpdateStyleAll()
Case "RefreshChannelJs"
call RefreshChannelJs()
Call Cl.OutMsg("恭喜您，所有频道Js刷新成功！","Admin_Channel.asp")
Case "IsShow"
Call IsShow()
Case "CIsShow"
Call CIsShow()
Case "IsDisabled"
Call IsDisabled()
Case "CIsDisabled"
Call CIsDisabled()
Case "OWindow"
Call OWindow()
Case "NWindow"
Call NWindow()
Case "Update"
Call UpdateChannel()
Case else
call main()
end Select
if FoundErr=True then Admin_ShowErr(ErrMsg)
Footer
Sub Main()
Dim SQL
SQL = "select ChannelID,ChannelName,ChannelItemName,ChannelItemUnit,ChannelDir,LinkUrl,OrderID,ChannelType,OpenType,IsShow,IsDisabled,IsCreateHtml,ModuleID from Channel order by OrderID"
Set rs=Cl.Execute(SQL)
%>
<br />
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="title">
<td width="50" align="center"><strong>频道ID</strong></td>
<td height="22" align="center" width="80"><strong>频道名称</strong></td>
<td align="center"><strong>目录或链接地址</strong></td>
<td width="60" align="center"><strong>模块</strong></td>
<td width="60" align="center"><strong>显示</strong></td>
<td width="60" align="center"><strong>禁用</strong></td>
<td width="60" height="22" align="center"><strong>打开方式</strong></td>
<td width="50" align="center"><strong>排序ID</strong></td>
<td width="60" align="center"><strong>属性</strong></td>
<td width="100" height="22" align="center"><strong>常规操作</strong></td>
</tr>
<%
if Not (rs.Bof and rs.Eof) then
SQL=rs.GetRows(-1)
For i=0 to Ubound(SQL,2)
%>
<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
<td width="50" align="center"> <b><%=SQL(0,i)%></b> </td>
<td align="center" width="80"><%=SQL(1,i)%></td>
<td><%
if SQL(7,i)>1 then
response.write Cl.ReplaceDir(SQL(5,i))
else
response.write SQL(4,i)
end if
%></td>
<td width="60" align="center"><%
Select Case SQL(12,i)
Case 1 : response.write "文章"
Case 2 : response.write "下载"
Case 3 : response.write "图片"
Case 4 : response.write "影视"
Case 5 : response.write "商城"
Case 6 : response.write "留言"
Case Else : response.write "未定义"
End Select
%></td>
<td width="60" align="center"><%
if SQL(9,i)=0 then
response.write "<a href='Admin_Channel.asp?Action=IsShow&ChannelID=" & SQL(0,i) & "'><font color=#ff0033>不显示</font></a>"
else
response.write "<a href='Admin_Channel.asp?Action=CIsShow&ChannelID=" & SQL(0,i) & "'><font color=#0000ff>显示</font></a>"
end if
%></td>
<td width="60" align="center"><%
if SQL(10,i)=0 then
response.write "<a href='Admin_Channel.asp?Action=IsDisabled&ChannelID=" & SQL(0,i) & "'><font color=#0000ff>使用</font></a>"
else
response.write "<a href='Admin_Channel.asp?Action=CIsDisabled&ChannelID=" & SQL(0,i) & "'><font color=#ff0033>禁用</font></a>"
end if
%></td>
<td width="60" align="center"><%
if SQL(8,i)=1 then
response.write "<a href='Admin_Channel.asp?Action=OWindow&ChannelID=" & SQL(0,i) & "'><font color=#ff0033>新窗口</font></a>"
else
response.write "<a href='Admin_Channel.asp?Action=NWindow&ChannelID=" & SQL(0,i) & "'><font color=#0000ff>原窗口</font></a>"
end if
%></td>
<td width="50" align="center"> <%=SQL(6,i)%> </td>
<td width="60" align="center">
<%
Select Case SQL(7,i)
Case 0
response.write "<font color=#ff0033>系统</font>"
if SQL(11,i)=1 then response.write "/<font color=blue>Html</font>"
Case 1
response.write "<font color=#006600>内部</font>"
if SQL(11,i)=1 then response.write "/<font color=blue>Html</font>"
Case else
response.write "外部"
end Select
%>
变量未定义: 'CreateClassJs'
\sd\Admin_Channel.asp, line 1327
另一个问题创建频道出错，执行查询代码时发现错误，请检查您的查询代码是否正确。Microsoft Jet 数据库引擎找不到输入表或查询 'CreateFiles'。 确定它是否存在，以及它的名称的拼写是否正确。
Select Data From CreateFiles Where ID=1
请大家看看什么意思
<!--#include file="Admin_Const.asp"-->
<!--#include file="../Inc/Function_Article.asp"-->
<!--#include file="../Inc/Function_Soft.asp"-->
<!--#include file="../Inc/Function_Photo.asp"-->
<!--#include file="../Inc/Function_Movie.asp"-->
<%
if Not Cl.TrueOtherPurview("Channel") then
Admin_ShowErr("<br /><li>您无此操作权限！</li>")
end if
dim Action',ChannelID
dim iCount,j
'ChannelType 0为系统，1为内部，2为外部
Action=Trim(request("Action"))
Header
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="title">
<td height="22" colspan="2" align="center"><strong>网 站 频 道 管 理</strong></td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航：</strong></td>
<td><a href="Admin_Channel.asp">频道管理首页</a> | <a href="Admin_Channel.asp?Action=Add">添加新频道</a> | <a href="Admin_Channel.asp?Action=OrderID">修改频道排序</a> | <a href="Admin_Channel.asp?Action=SelectStyle">批量选择模板/Css</a></td>
</tr>
</table>
<%
Select Case Action
Case "Add"
call ChannelInfo()
Case "SaveAdd"
call SaveChannelInfo()
Case "Modify"
call ChannelInfo()
Case "SaveModify"
call SaveChannelInfo()
Case "Del"
call DelChannel()
Case "OrderID"
call OrderID()
Case "UpOrder"
call UpOrder()
Case "DownOrder"
call DownOrder()
Case "SelectStyle"
call SelectStyle()
Case "UpdateStyle"
call UpdateStyle()
Case "UpdateStyleAll"
call UpdateStyleAll()
Case "RefreshChannelJs"
call RefreshChannelJs()
Call Cl.OutMsg("恭喜您，所有频道Js刷新成功！","Admin_Channel.asp")
Case "IsShow"
Call IsShow()
Case "CIsShow"
Call CIsShow()
Case "IsDisabled"
Call IsDisabled()
Case "CIsDisabled"
Call CIsDisabled()
Case "OWindow"
Call OWindow()
Case "NWindow"
Call NWindow()
Case "Update"
Call UpdateChannel()
Case else
call main()
end Select
if FoundErr=True then Admin_ShowErr(ErrMsg)
Footer
Sub Main()
Dim SQL
SQL = "select ChannelID,ChannelName,ChannelItemName,ChannelItemUnit,ChannelDir,LinkUrl,OrderID,ChannelType,OpenType,IsShow,IsDisabled,IsCreateHtml,ModuleID from Channel order by OrderID"
Set rs=Cl.Execute(SQL)
%>
<br />
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="title">
<td width="50" align="center"><strong>频道ID</strong></td>
<td height="22" align="center" width="80"><strong>频道名称</strong></td>
<td align="center"><strong>目录或链接地址</strong></td>
<td width="60" align="center"><strong>模块</strong></td>
<td width="60" align="center"><strong>显示</strong></td>
<td width="60" align="center"><strong>禁用</strong></td>
<td width="60" height="22" align="center"><strong>打开方式</strong></td>
<td width="50" align="center"><strong>排序ID</strong></td>
<td width="60" align="center"><strong>属性</strong></td>
<td width="100" height="22" align="center"><strong>常规操作</strong></td>
</tr>
<%
if Not (rs.Bof and rs.Eof) then
SQL=rs.GetRows(-1)
For i=0 to Ubound(SQL,2)
%>
<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
<td width="50" align="center"> <b><%=SQL(0,i)%></b> </td>
<td align="center" width="80"><%=SQL(1,i)%></td>
<td><%
if SQL(7,i)>1 then
response.write Cl.ReplaceDir(SQL(5,i))
else
response.write SQL(4,i)
end if
%></td>
<td width="60" align="center"><%
Select Case SQL(12,i)
Case 1 : response.write "文章"
Case 2 : response.write "下载"
Case 3 : response.write "图片"
Case 4 : response.write "影视"
Case 5 : response.write "商城"
Case 6 : response.write "留言"
Case Else : response.write "未定义"
End Select
%></td>
<td width="60" align="center"><%
if SQL(9,i)=0 then
response.write "<a href='Admin_Channel.asp?Action=IsShow&ChannelID=" & SQL(0,i) & "'><font color=#ff0033>不显示</font></a>"
else
response.write "<a href='Admin_Channel.asp?Action=CIsShow&ChannelID=" & SQL(0,i) & "'><font color=#0000ff>显示</font></a>"
end if
%></td>
<td width="60" align="center"><%
if SQL(10,i)=0 then
response.write "<a href='Admin_Channel.asp?Action=IsDisabled&ChannelID=" & SQL(0,i) & "'><font color=#0000ff>使用</font></a>"
else
response.write "<a href='Admin_Channel.asp?Action=CIsDisabled&ChannelID=" & SQL(0,i) & "'><font color=#ff0033>禁用</font></a>"
end if
%></td>
<td width="60" align="center"><%
if SQL(8,i)=1 then
response.write "<a href='Admin_Channel.asp?Action=OWindow&ChannelID=" & SQL(0,i) & "'><font color=#ff0033>新窗口</font></a>"
else
response.write "<a href='Admin_Channel.asp?Action=NWindow&ChannelID=" & SQL(0,i) & "'><font color=#0000ff>原窗口</font></a>"
end if
%></td>
<td width="50" align="center"> <%=SQL(6,i)%> </td>
<td width="60" align="center">
<%
Select Case SQL(7,i)
Case 0
response.write "<font color=#ff0033>系统</font>"
if SQL(11,i)=1 then response.write "/<font color=blue>Html</font>"
Case 1
response.write "<font color=#006600>内部</font>"
if SQL(11,i)=1 then response.write "/<font color=blue>Html</font>"
Case else
response.write "外部"
end Select
%>
...全文
请发表友善的回复…
发表回复
chy158 2009-12-27
- 打赏
- 举报
感谢youngsheep热情帮助
youngsheep 2009-12-26
- 打赏
- 举报
你的数据库表有问题
如果不行加QQ：1618988
注明：CSDN ASP
如果不行加QQ：1618988
注明：CSDN ASP
chy158 2009-12-26
- 打赏
- 举报
<tr class="tdbg">
<td width="130"><strong>项目名称：</strong></td>
<td><input name="ChannelItemName" type="text" id="ChannelItemName" size="20" maxlength="50" value="<%=ChannelItemName%>"> <font color=red>*</font><br /><font color="#ff0033">如：“文章”“软件”“图片”等。</font></td>
</tr>
<tr class="tdbg">
<td width="130"><strong>项目单位：</strong></td>
<td><input name="ChannelItemUnit" type="text" id="ChannelItemUnit" size="20" maxlength="50" value="<%=ChannelItemUnit%>"> <font color=red>*</font><br /><font color="#ff0033">如：“篇”“个”“张”等。</font></td>
</tr>
<tr class="tdbg">
<td width="130"><strong><font color=blue>是否生成HTML：</font></strong></td>
<td>
<input type="radio" name="IsCreateHtml" value="1" <%if IsCreateHtml=1 then%>checked<%end if%> <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>>
<font color=blue>生成</font> <input type="radio" name="IsCreateHtml" value="0" <%if IsCreateHtml<>1 then%>checked<%end if%> <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>>
<font color=blue>不生成</font>
</td>
</tr>
<tr class="tdbg">
<td width="130"><strong>文件的扩展名：</strong></td>
<td><input name="CreateFileExt" type="text" id="CreateFileExt" size="30" maxlength="50" value="<%=CreateFileExt%>" <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>> <font color=red>*</font><br /><font color="#3370CC">只填扩展名。例：要生成“*.shtml”，填“shtml”即可。</font></td>
</tr>
<tr class="tdbg">
<td width="130"><strong>生成目录结构：</strong></td>
<td>
<input type="radio" name="CreatePathType" value="0">Html目录/频道/大类(英文目录)/小类(英文目录)/文件<br />
<font color="#3370CC">例如：<%=Cl.htmlDir%>Article/Help/SysTem/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="1">Html目录/频道/大类(ClassID)/小类(ClassID)/文件<br />
<font color="#3370CC">例如：<%=Cl.htmlDir%>Article/25/36/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="2">Html目录/频道/栏目(英文目录)/文件<br />
<font color="#3370CC">例如：<%=Cl.htmlDir%>Article/Help/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="3">Html目录/频道/栏目(ClassID)/文件<br />
<font color="#3370CC">例如：<%=Cl.htmlDir%>Article/25/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="4">Html目录/频道/文件<br />
<font color="#3370CC">例如：<%=Cl.htmlDir%>Article/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="5">Html目录/频道/年月/文件<br />
<font color="#3370CC">例如：<%=Cl.htmlDir%>Article/200603/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="6">Html目录/频道/年/月/文件<br />
<font color="#3370CC">例如：<%=Cl.htmlDir%>Article/2006/03/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="7">频道/Html目录/大类(英文目录)/小类(英文目录)/文件<br />
<font color="#3370CC">例如：Article/<%=Cl.htmlDir%>Help/SysTem/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="8">频道/Html目录/大类(ClassID)/小类(ClassID)/文件<br />
<font color="#3370CC">例如：Article/<%=Cl.htmlDir%>25/36/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="9">频道/大类(英文目录)/小类(英文目录)/文件<br />
<font color="#3370CC">例如：Article/Help/SysTem/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="10">频道/大类(ClassID)/小类(ClassID)/文件<br />
<font color="#3370CC">例如：Article/25/36/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="11">频道/Html目录/栏目(英文目录)/文件<br />
<font color="#3370CC">例如：Article/<%=Cl.htmlDir%>Help/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="12">频道/Html目录/栏目(ClassID)/文件<br />
<font color="#3370CC">例如：Article/<%=Cl.htmlDir%>25/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="13">频道/栏目(英文目录)/文件<br />
<font color="#3370CC">例如：Article/Help/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="14">频道/栏目(ClassID)/文件<br />
<font color="#3370CC">例如：Article/25/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="15">频道/Html目录/文件<br />
<font color="#3370CC">例如：Article/<%=Cl.htmlDir%>20060325.html</font><br />
<input type="radio" name="CreatePathType" value="16">频道/Html目录/年月/文件<br />
<font color="#3370CC">例如：Article/<%=Cl.htmlDir%>200603/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="17">频道/Html目录/年/月/文件<br />
<font color="#3370CC">例如：Article/<%=Cl.htmlDir%>2006/03/20060325.html</font>
</td>
</tr>
<tr class="tdbg">
<td width="130"><strong>生成文件结构：</strong></td>
<td>
<input type="radio" name="CreateFileType" value="0">标题ID号+更新时间
<font color="#3370CC">例如：168200603250345234.html</font><br />
<input type="radio" name="CreateFileType" value="1">标题ID号
<font color="#3370CC">例如：168.html</font><br />
<input type="radio" name="CreateFileType" value="2">更新时间
<font color="#3370CC">例如：200603250345234.html</font><br />
<input type="radio" name="CreateFileType" value="3">栏目ID+_+标题ID号+更新时间
<font color="#3370CC">例如：25_168200603250345234.html</font><br />
<input type="radio" name="CreateFileType" value="4">栏目ID+_+标题ID号
<font color="#3370CC">例如：25_168.html</font><br />
<input type="radio" name="CreateFileType" value="5">栏目ID+_+更新时间
<font color="#3370CC">例如：25_200603250345234.html</font>
</td>
</tr>
<tr class="tdbg">
<td width="130"><strong>是否生成相关列表：</strong></td>
<td>
<input type="radio" name="IsCreateList" value="1" <%if IsCreateList=1 then%>checked<%end if%> <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>>
生成
<input type="radio" name="IsCreateList" value="0" <%if IsCreatelist<>1 then%>checked<%end if%> <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>>
不生成<br /><font color="#3370CC">如果选择否，则除内容页外栏目等列表将使用Asp文件（对于数据量较大的站，建议选否）</font></td>
</tr>
<tr class="tdbg">
<td width="130"><strong>自动生成相关列表：</strong></td>
<td>
<input type="radio" name="AutoCreateList" value="1" <%if AutoCreateList=1 then%>checked<%end if%> <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>>
生成
<input type="radio" name="AutoCreateList" value="0" <%if AutoCreateList<>1 then%>checked<%end if%> <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>>
不生成
<br /><font color="#3370CC">添加或修改文章后，自动生成相关列表，默认为生成（对于数据量较大的站，建议选否）</font></td>
</tr>
<tr class="tdbg">
<td width="130"><strong>频道模板/风格：</strong></td>
<td>
模板：<select name="Styleid">
<%
Dim rs_s
set rs_s = Cl.Execute("select ID,StyleName from Style Order by ID")
if rs_s.eof and rs_s.bof then
response.write "请先添加模板！"
else
do while not rs_s.eof
response.write "<option value="""&rs_s(0)&""""
If rs_s(0)=StyleID Then response.write " selected"
response.write ">"&rs_s(1)&"</option>"
rs_s.MoveNext
Loop
End If
Set rs_s=Nothing
%>
</select> CSS风格：<select name="Cssid">
<%
Dim strTempCss,strCssName
strTempCss=Split(Cl.CacheData(15,0),"@@@")(0)
strCssName=Split(strTempCss,"|||")
for i=0 to ubound(strCssName)-1
response.write "<option value="""&i&""""
If i=CssID Then response.write " selected"
response.write ">"&strCssName(i)&"</option>"
next%>
</select>
</td>
</tr>
<!--上传设置-->
<tr class="tdbg">
<td width="130"><strong>允许上传用户等级：</strong></td>
<td><input name="UploadSetting(0)" type="text" id="UploadSetting(0)" value="<%=UploadSetting(0)%>" size="66" onclick="SelectUserGroup('UploadSetting(0)');" Readonly>
</td>
</tr>
<tr class="tdbg">
<td width="130"><strong>上传文件存放目录：</strong></td>
<td><input name="UploadSetting(1)" type="text" value="<%=UploadSetting(1)%>" ID="UploadSetting(1)" size="23">
<b>分类：</b><select name="UploadSetting(2)" id="UploadSetting(2)">
<option value="0">不使用</option>
<option value="1">年</option>
<option value="2">年-月</option>
<option value="3">年\月</option>
<option value="4">年-月-日</option>
<option value="5">年-月\日</option>
<option value="6">年\月\日</option>
</select>
<b>路径：</b><select name="UploadSetting(3)" id="UploadSetting(3)">
<option value="0">绝对根路径</option>
<option value="1">绝对全路径</option>
</select>
<td width="130"><strong>项目名称：</strong></td>
<td><input name="ChannelItemName" type="text" id="ChannelItemName" size="20" maxlength="50" value="<%=ChannelItemName%>"> <font color=red>*</font><br /><font color="#ff0033">如：“文章”“软件”“图片”等。</font></td>
</tr>
<tr class="tdbg">
<td width="130"><strong>项目单位：</strong></td>
<td><input name="ChannelItemUnit" type="text" id="ChannelItemUnit" size="20" maxlength="50" value="<%=ChannelItemUnit%>"> <font color=red>*</font><br /><font color="#ff0033">如：“篇”“个”“张”等。</font></td>
</tr>
<tr class="tdbg">
<td width="130"><strong><font color=blue>是否生成HTML：</font></strong></td>
<td>
<input type="radio" name="IsCreateHtml" value="1" <%if IsCreateHtml=1 then%>checked<%end if%> <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>>
<font color=blue>生成</font> <input type="radio" name="IsCreateHtml" value="0" <%if IsCreateHtml<>1 then%>checked<%end if%> <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>>
<font color=blue>不生成</font>
</td>
</tr>
<tr class="tdbg">
<td width="130"><strong>文件的扩展名：</strong></td>
<td><input name="CreateFileExt" type="text" id="CreateFileExt" size="30" maxlength="50" value="<%=CreateFileExt%>" <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>> <font color=red>*</font><br /><font color="#3370CC">只填扩展名。例：要生成“*.shtml”，填“shtml”即可。</font></td>
</tr>
<tr class="tdbg">
<td width="130"><strong>生成目录结构：</strong></td>
<td>
<input type="radio" name="CreatePathType" value="0">Html目录/频道/大类(英文目录)/小类(英文目录)/文件<br />
<font color="#3370CC">例如：<%=Cl.htmlDir%>Article/Help/SysTem/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="1">Html目录/频道/大类(ClassID)/小类(ClassID)/文件<br />
<font color="#3370CC">例如：<%=Cl.htmlDir%>Article/25/36/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="2">Html目录/频道/栏目(英文目录)/文件<br />
<font color="#3370CC">例如：<%=Cl.htmlDir%>Article/Help/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="3">Html目录/频道/栏目(ClassID)/文件<br />
<font color="#3370CC">例如：<%=Cl.htmlDir%>Article/25/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="4">Html目录/频道/文件<br />
<font color="#3370CC">例如：<%=Cl.htmlDir%>Article/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="5">Html目录/频道/年月/文件<br />
<font color="#3370CC">例如：<%=Cl.htmlDir%>Article/200603/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="6">Html目录/频道/年/月/文件<br />
<font color="#3370CC">例如：<%=Cl.htmlDir%>Article/2006/03/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="7">频道/Html目录/大类(英文目录)/小类(英文目录)/文件<br />
<font color="#3370CC">例如：Article/<%=Cl.htmlDir%>Help/SysTem/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="8">频道/Html目录/大类(ClassID)/小类(ClassID)/文件<br />
<font color="#3370CC">例如：Article/<%=Cl.htmlDir%>25/36/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="9">频道/大类(英文目录)/小类(英文目录)/文件<br />
<font color="#3370CC">例如：Article/Help/SysTem/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="10">频道/大类(ClassID)/小类(ClassID)/文件<br />
<font color="#3370CC">例如：Article/25/36/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="11">频道/Html目录/栏目(英文目录)/文件<br />
<font color="#3370CC">例如：Article/<%=Cl.htmlDir%>Help/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="12">频道/Html目录/栏目(ClassID)/文件<br />
<font color="#3370CC">例如：Article/<%=Cl.htmlDir%>25/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="13">频道/栏目(英文目录)/文件<br />
<font color="#3370CC">例如：Article/Help/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="14">频道/栏目(ClassID)/文件<br />
<font color="#3370CC">例如：Article/25/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="15">频道/Html目录/文件<br />
<font color="#3370CC">例如：Article/<%=Cl.htmlDir%>20060325.html</font><br />
<input type="radio" name="CreatePathType" value="16">频道/Html目录/年月/文件<br />
<font color="#3370CC">例如：Article/<%=Cl.htmlDir%>200603/20060325.html</font><br />
<input type="radio" name="CreatePathType" value="17">频道/Html目录/年/月/文件<br />
<font color="#3370CC">例如：Article/<%=Cl.htmlDir%>2006/03/20060325.html</font>
</td>
</tr>
<tr class="tdbg">
<td width="130"><strong>生成文件结构：</strong></td>
<td>
<input type="radio" name="CreateFileType" value="0">标题ID号+更新时间
<font color="#3370CC">例如：168200603250345234.html</font><br />
<input type="radio" name="CreateFileType" value="1">标题ID号
<font color="#3370CC">例如：168.html</font><br />
<input type="radio" name="CreateFileType" value="2">更新时间
<font color="#3370CC">例如：200603250345234.html</font><br />
<input type="radio" name="CreateFileType" value="3">栏目ID+_+标题ID号+更新时间
<font color="#3370CC">例如：25_168200603250345234.html</font><br />
<input type="radio" name="CreateFileType" value="4">栏目ID+_+标题ID号
<font color="#3370CC">例如：25_168.html</font><br />
<input type="radio" name="CreateFileType" value="5">栏目ID+_+更新时间
<font color="#3370CC">例如：25_200603250345234.html</font>
</td>
</tr>
<tr class="tdbg">
<td width="130"><strong>是否生成相关列表：</strong></td>
<td>
<input type="radio" name="IsCreateList" value="1" <%if IsCreateList=1 then%>checked<%end if%> <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>>
生成
<input type="radio" name="IsCreateList" value="0" <%if IsCreatelist<>1 then%>checked<%end if%> <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>>
不生成<br /><font color="#3370CC">如果选择否，则除内容页外栏目等列表将使用Asp文件（对于数据量较大的站，建议选否）</font></td>
</tr>
<tr class="tdbg">
<td width="130"><strong>自动生成相关列表：</strong></td>
<td>
<input type="radio" name="AutoCreateList" value="1" <%if AutoCreateList=1 then%>checked<%end if%> <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>>
生成
<input type="radio" name="AutoCreateList" value="0" <%if AutoCreateList<>1 then%>checked<%end if%> <%if Cl.Web_Info(15) <> "1" then%> Disabled<%end if%>>
不生成
<br /><font color="#3370CC">添加或修改文章后，自动生成相关列表，默认为生成（对于数据量较大的站，建议选否）</font></td>
</tr>
<tr class="tdbg">
<td width="130"><strong>频道模板/风格：</strong></td>
<td>
模板：<select name="Styleid">
<%
Dim rs_s
set rs_s = Cl.Execute("select ID,StyleName from Style Order by ID")
if rs_s.eof and rs_s.bof then
response.write "请先添加模板！"
else
do while not rs_s.eof
response.write "<option value="""&rs_s(0)&""""
If rs_s(0)=StyleID Then response.write " selected"
response.write ">"&rs_s(1)&"</option>"
rs_s.MoveNext
Loop
End If
Set rs_s=Nothing
%>
</select> CSS风格：<select name="Cssid">
<%
Dim strTempCss,strCssName
strTempCss=Split(Cl.CacheData(15,0),"@@@")(0)
strCssName=Split(strTempCss,"|||")
for i=0 to ubound(strCssName)-1
response.write "<option value="""&i&""""
If i=CssID Then response.write " selected"
response.write ">"&strCssName(i)&"</option>"
next%>
</select>
</td>
</tr>
<!--上传设置-->
<tr class="tdbg">
<td width="130"><strong>允许上传用户等级：</strong></td>
<td><input name="UploadSetting(0)" type="text" id="UploadSetting(0)" value="<%=UploadSetting(0)%>" size="66" onclick="SelectUserGroup('UploadSetting(0)');" Readonly>
</td>
</tr>
<tr class="tdbg">
<td width="130"><strong>上传文件存放目录：</strong></td>
<td><input name="UploadSetting(1)" type="text" value="<%=UploadSetting(1)%>" ID="UploadSetting(1)" size="23">
<b>分类：</b><select name="UploadSetting(2)" id="UploadSetting(2)">
<option value="0">不使用</option>
<option value="1">年</option>
<option value="2">年-月</option>
<option value="3">年\月</option>
<option value="4">年-月-日</option>
<option value="5">年-月\日</option>
<option value="6">年\月\日</option>
</select>
<b>路径：</b><select name="UploadSetting(3)" id="UploadSetting(3)">
<option value="0">绝对根路径</option>
<option value="1">绝对全路径</option>
</select>
chy158 2009-12-26
- 打赏
- 举报
<script language="JavaScript" type="text/javascript">
function CheckForm()
{
if (document.form1.ChannelName.value == "") {
alert("请输入频道名称！");
document.form1.ChannelName.focus();
return false;
}
if (document.getElementById('OuterChannel').style.display == 'none'){
var str="<%=Action%>";
if (document.form1.ChannelDir.value == "" && str=="Add"){
alert("请输入频道目录！");
document.form1.ChannelDir.focus();
return false;
}
if (document.form1.ChannelItemName.value == "") {
alert("请输入频道项目名称！");
document.form1.ChannelItemName.focus();
return false;
}
if (document.form1.ChannelItemUnit.value == "") {
alert("请输入频道项目单位！");
document.form1.ChannelItemUnit.focus();
return false;
}
}
else{
if (document.form1.LinkUrl.value == "") {
alert("请输入链接地址！");
document.form1.LinkUrl.focus();
return false;
}
}
return true;
}
</script>
<form method="post" action="Admin_Channel.asp" name="form1" onsubmit="return CheckForm();">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="title">
<td height="22" colspan="2"> <div align="center"><strong><%=SubmitValue%> 频 道</strong></div></td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>频道名称：</strong></td>
<td><input name="ChannelName" type="text" id="ChannelName" value="<%=ChannelName%>" size="49" maxlength="200"> <font color=red>*</font></td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>频道说明：</strong></td>
<td><textarea name="ReadMe" cols="40" rows="5" id="ReadMe"><%=ReadMe%></textarea></td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>打开方式：</strong></td>
<td>
<input type="radio" name="OpenType" value="0" <%if OpenType=0 then%>checked<%end if%>>
原窗口
<input type="radio" name="OpenType" value="1" <%if OpenType<>0 then%>checked<%end if%>>
新窗口</td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>是否显示：</strong></td>
<td>
<input type="radio" name="IsShow" value="1" <%if IsShow<>0 then%>checked<%end if%>>
显 示 <input type="radio" name="IsShow" value="0" <%if IsShow=0 then%>checked<%end if%>>
不显示
</td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>是否禁用：</strong></td>
<td>
<input type="radio" name="IsDisabled" value="0" <%if IsDisabled=0 then%>checked<%end if%>>
使 用
<input type="radio" name="IsDisabled" value="1" <%if IsDisabled<>0 then%>checked<%end if%>>
禁 用</td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>频道类型：</strong></td>
<td>
<input type="radio" name="ChannelType" value="0" Disabled <%if ChannelType=1 then%> checked<%end if%>> 系统
<input type="radio" name="ChannelType" value="1" <%=ChkDisabled%><%if ChannelType=1 then%> checked<%end if%> OnClick="ChkChannelType('1');"> 内部
<input type="radio" name="ChannelType" value="2" <%=ChkDisabled%><%if ChannelType<>1 and ChannelType<>0 then%> checked<%end if%> OnClick="ChkChannelType('2');"> 外部
</td>
</tr>
<tr class="tdbg" ID="OuterChannel" style="DisPlay:none">
<td width="150" align="right"><strong>链接地址：</strong></td>
<td><input name="LinkUrl" type="text" id="LinkUrl" size="49" maxlength="200" value="<%=LinkUrl%>"><br /><font color=red>请输入请输入完整的URL地址。</font></td>
</tr>
<!--==================================================================-->
<tr class="tdbg" id="NoOuterChannel">
<td width="150" align="right"><strong>内部频道参数：</strong></td>
<td>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="tdbg">
<td width="130"><strong>使用模块：</strong></td>
<td>
<select name="ModuleID" ID="ModuleID" <%=ChkDisabled%>>
<option value="1">文章模块</option>
<option value="2">下载模块</option>
<option value="3">图片模块</option>
<%if SysTemVersion>1 or Action="Modify" then%>
<option value="4">影视模块</option>
<%end if%>
<%if Action<>"Add" then%>
<option value="5">商城模块</option>
<option value="6">留言模块</option>
<option value="0">网站首页</option>
<%end if%>
</select>
</td>
</tr>
<tr class="tdbg">
<td width="130"><strong>频道目录：</strong></td>
<td><input name="ChannelDir" type="text" id="ChannelDir" size="20" maxlength="50" onkeyup="OutputUploadDir(this.value);" value="<%=ChannelDir%>" <%=ChkDisabled%>> <font color=red>*</font><br /><font color="#ff0033">注意：只能是英文，不能带空格或“\”、“/”等符号，此项添加后不允许更改。</font></td>
</tr>
function CheckForm()
{
if (document.form1.ChannelName.value == "") {
alert("请输入频道名称！");
document.form1.ChannelName.focus();
return false;
}
if (document.getElementById('OuterChannel').style.display == 'none'){
var str="<%=Action%>";
if (document.form1.ChannelDir.value == "" && str=="Add"){
alert("请输入频道目录！");
document.form1.ChannelDir.focus();
return false;
}
if (document.form1.ChannelItemName.value == "") {
alert("请输入频道项目名称！");
document.form1.ChannelItemName.focus();
return false;
}
if (document.form1.ChannelItemUnit.value == "") {
alert("请输入频道项目单位！");
document.form1.ChannelItemUnit.focus();
return false;
}
}
else{
if (document.form1.LinkUrl.value == "") {
alert("请输入链接地址！");
document.form1.LinkUrl.focus();
return false;
}
}
return true;
}
</script>
<form method="post" action="Admin_Channel.asp" name="form1" onsubmit="return CheckForm();">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="title">
<td height="22" colspan="2"> <div align="center"><strong><%=SubmitValue%> 频 道</strong></div></td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>频道名称：</strong></td>
<td><input name="ChannelName" type="text" id="ChannelName" value="<%=ChannelName%>" size="49" maxlength="200"> <font color=red>*</font></td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>频道说明：</strong></td>
<td><textarea name="ReadMe" cols="40" rows="5" id="ReadMe"><%=ReadMe%></textarea></td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>打开方式：</strong></td>
<td>
<input type="radio" name="OpenType" value="0" <%if OpenType=0 then%>checked<%end if%>>
原窗口
<input type="radio" name="OpenType" value="1" <%if OpenType<>0 then%>checked<%end if%>>
新窗口</td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>是否显示：</strong></td>
<td>
<input type="radio" name="IsShow" value="1" <%if IsShow<>0 then%>checked<%end if%>>
显 示 <input type="radio" name="IsShow" value="0" <%if IsShow=0 then%>checked<%end if%>>
不显示
</td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>是否禁用：</strong></td>
<td>
<input type="radio" name="IsDisabled" value="0" <%if IsDisabled=0 then%>checked<%end if%>>
使 用
<input type="radio" name="IsDisabled" value="1" <%if IsDisabled<>0 then%>checked<%end if%>>
禁 用</td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>频道类型：</strong></td>
<td>
<input type="radio" name="ChannelType" value="0" Disabled <%if ChannelType=1 then%> checked<%end if%>> 系统
<input type="radio" name="ChannelType" value="1" <%=ChkDisabled%><%if ChannelType=1 then%> checked<%end if%> OnClick="ChkChannelType('1');"> 内部
<input type="radio" name="ChannelType" value="2" <%=ChkDisabled%><%if ChannelType<>1 and ChannelType<>0 then%> checked<%end if%> OnClick="ChkChannelType('2');"> 外部
</td>
</tr>
<tr class="tdbg" ID="OuterChannel" style="DisPlay:none">
<td width="150" align="right"><strong>链接地址：</strong></td>
<td><input name="LinkUrl" type="text" id="LinkUrl" size="49" maxlength="200" value="<%=LinkUrl%>"><br /><font color=red>请输入请输入完整的URL地址。</font></td>
</tr>
<!--==================================================================-->
<tr class="tdbg" id="NoOuterChannel">
<td width="150" align="right"><strong>内部频道参数：</strong></td>
<td>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="tdbg">
<td width="130"><strong>使用模块：</strong></td>
<td>
<select name="ModuleID" ID="ModuleID" <%=ChkDisabled%>>
<option value="1">文章模块</option>
<option value="2">下载模块</option>
<option value="3">图片模块</option>
<%if SysTemVersion>1 or Action="Modify" then%>
<option value="4">影视模块</option>
<%end if%>
<%if Action<>"Add" then%>
<option value="5">商城模块</option>
<option value="6">留言模块</option>
<option value="0">网站首页</option>
<%end if%>
</select>
</td>
</tr>
<tr class="tdbg">
<td width="130"><strong>频道目录：</strong></td>
<td><input name="ChannelDir" type="text" id="ChannelDir" size="20" maxlength="50" onkeyup="OutputUploadDir(this.value);" value="<%=ChannelDir%>" <%=ChkDisabled%>> <font color=red>*</font><br /><font color="#ff0033">注意：只能是英文，不能带空格或“\”、“/”等符号，此项添加后不允许更改。</font></td>
</tr>
chy158 2009-12-26
- 打赏
- 举报
代码交多，多贴几次
</td>
<td width="100" align="center"><%
response.write "<a href='Admin_Channel.asp?Action=Modify&ChannelID=" & SQL(0,i) & "'>修改</a> "
if SQL(0,i)=0 then
response.write "<font color=#888888>删除</font> "
response.write "<font color=#888888>更新</font>"
else
Select Case SQL(7,i)
Case 2
response.write "<a href='Admin_Channel.asp?Action=Del&ChannelID=" & SQL(0,i) & "' onClick=""return confirm('确定要删除此频道吗？\n\n注意：如果是内部频道，此操作将会删除频道相关的所有数据（包括此频道模版及频道目录文件夹），此操作不可恢复！');"">删除</a> "
response.write "<font color=#888888>更新</font>"
Case 1
response.write "<a href='Admin_Channel.asp?Action=Del&ChannelID=" & SQL(0,i) & "' onClick=""return confirm('确定要删除此频道吗？\n\n注意：如果是内部频道，此操作将会删除频道相关的所有数据（包括此频道模版及频道目录文件夹），此操作不可恢复！');"">删除</a> "
response.write "<a href='Admin_Channel.asp?Action=Update&ChannelID=" & SQL(0,i) & "' onClick=""return confirm('确定要更新此频道吗？\n\n注意：更新此频道将更新相应的JS，统计信息，及频道文件！');"">更新</a>"
Case else
response.write "<font color=#888888>删除</font> "
response.write "<a href='Admin_Channel.asp?Action=Update&ChannelID=" & SQL(0,i) & "' onClick=""return confirm('确定要更新此频道吗？\n\n注意：更新此频道将更新相应的JS，统计信息，及频道文件！');"">更新</a>"
end Select
end if
%></td>
</tr>
<%
Next
SQL=Empty
End if
if Cl.Web_Info(15) = "1" then
%>
<form name="formRefresh" method="Post" action="Admin_Channel.asp">
<tr class="tdbg">
<td height="40" colspan="10" align="center">
<input name="Action" type="hidden" id="Action" value="RefreshChannelJs">
<input name="Submit" type="submit" value=" 刷新所有频道JS文件 "></td>
</tr>
</form>
<%end if%>
</table>
<%
rs.Close:set rs=Nothing
end sub
sub ChannelInfo()
dim ChannelID,sTemp,ChkDisabled
dim ChannelName,ReadMe,OpenType,IsShow,IsDisabled,ChannelType,LinkUrl,IsRss,IsWap
dim ModuleID,ChannelDir,ChannelItemName,ChannelItemUnit
dim IsCreateHtml,CreatePathType,CreateFileType,CreateFileExt,IsCreateList,AutoCreateList
dim StyleID,CssID,UploadSetting,OtherSetting
dim CLogo,CBanner
dim sAction,SubmitValue
if Action = "Modify" then
sAction="SaveModify":SubmitValue="修 改"
ChannelID = Trim(Request("ChannelID"))
if Not IsNumeric(ChannelID) then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>请指定要修改频道ID</li>"
exit sub
end if
set rs=Cl.Execute("select * from Channel where ChannelID=" & Clng(ChannelID))
if rs.bof and rs.eof then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>找不到指定的频道！</li>"
Exit sub
end if
ChannelName = rs("ChannelName") : ReadMe = rs("ReadMe")
OpenType = rs("OpenType") : ChannelType = rs("ChannelType")
IsShow = rs("IsShow") : LinkUrl = rs("LinkUrl")
ModuleID = rs("ModuleID") : ChannelDir = rs("ChannelDir")
ChannelItemName = rs("ChannelItemName") : ChannelItemUnit = rs("ChannelItemUnit")
IsCreateHtml = rs("IsCreateHtml") : CreatePathType = rs("CreatePathType")
CreateFileType = rs("CreateFileType") : CreateFileExt = rs("CreateFileExt")
IsCreateList = rs("IsCreateList") : AutoCreateList = rs("AutoCreateList")
StyleID = rs("StyleID") : CssID = rs("CssID")
CLogo = rs("Logo") : CBanner = rs("Banner")
IsDisabled = rs("IsDisabled"):IsRss = rs("IsRss"):IsWap = rs("IsWap")
OtherSetting = Split(Rs("OtherSetting"),",")
if Ubound(OtherSetting)<9 then Redim OtherSetting(9)
if IsNull(rs("UploadSetting")) or rs("UploadSetting")="" then
UploadSetting=Split("1,2,3,4@Other@2@0@jpg|gif|bmp|png@100@1@swf@500@1@rm|mp3|wav|mid|avi|mpg|mpeg|asf|wma@2048@1@rar|zip|exe|doc|xls|chm@2048@1","@")
else
UploadSetting=Split(rs("UploadSetting"),"@")
'if Ubound(UploadSetting)<15 then
'UploadSetting=Split("4@Other@2@0@jpg|gif|bmp|png@100@1@swf@500@1@rm|mp3|wav|mid|avi|mpg|mpeg|asf|wma@2048@1@rar|zip|exe|doc|xls|chm@2048@1","@")
'end if
end if
ChkDisabled="Disabled"
set rs = Nothing
else
sAction = "SaveAdd" : SubmitValue = "添 加"
OpenType = 1 : ChannelType = 1 : IsShow = 1 : ModuleID = 1
IsCreateHtml = 0 : CreatePathType = 0 : CreateFileType = 0 : CreateFileExt = "html"
IsCreateList = 1 : AutoCreateList = 1 : StyleID = Cl.StyleID : CssID = Cl.CssID
CLogo = "" : CBanner = "" : IsDisabled = 0
UploadSetting=Split("1,2,3,4@Other@2@0@jpg|gif|bmp|png@100@1@swf@500@1@rm|mp3|wav|mid|avi|mpg|mpeg|asf|wma@2048@1@rar|zip|exe|doc|xls|chm@2048@1","@")
OtherSetting=Array(0,12,1,20,20,20,20,20,10,20)
ChkDisabled=""
end if
%>
<br />
</td>
<td width="100" align="center"><%
response.write "<a href='Admin_Channel.asp?Action=Modify&ChannelID=" & SQL(0,i) & "'>修改</a> "
if SQL(0,i)=0 then
response.write "<font color=#888888>删除</font> "
response.write "<font color=#888888>更新</font>"
else
Select Case SQL(7,i)
Case 2
response.write "<a href='Admin_Channel.asp?Action=Del&ChannelID=" & SQL(0,i) & "' onClick=""return confirm('确定要删除此频道吗？\n\n注意：如果是内部频道，此操作将会删除频道相关的所有数据（包括此频道模版及频道目录文件夹），此操作不可恢复！');"">删除</a> "
response.write "<font color=#888888>更新</font>"
Case 1
response.write "<a href='Admin_Channel.asp?Action=Del&ChannelID=" & SQL(0,i) & "' onClick=""return confirm('确定要删除此频道吗？\n\n注意：如果是内部频道，此操作将会删除频道相关的所有数据（包括此频道模版及频道目录文件夹），此操作不可恢复！');"">删除</a> "
response.write "<a href='Admin_Channel.asp?Action=Update&ChannelID=" & SQL(0,i) & "' onClick=""return confirm('确定要更新此频道吗？\n\n注意：更新此频道将更新相应的JS，统计信息，及频道文件！');"">更新</a>"
Case else
response.write "<font color=#888888>删除</font> "
response.write "<a href='Admin_Channel.asp?Action=Update&ChannelID=" & SQL(0,i) & "' onClick=""return confirm('确定要更新此频道吗？\n\n注意：更新此频道将更新相应的JS，统计信息，及频道文件！');"">更新</a>"
end Select
end if
%></td>
</tr>
<%
Next
SQL=Empty
End if
if Cl.Web_Info(15) = "1" then
%>
<form name="formRefresh" method="Post" action="Admin_Channel.asp">
<tr class="tdbg">
<td height="40" colspan="10" align="center">
<input name="Action" type="hidden" id="Action" value="RefreshChannelJs">
<input name="Submit" type="submit" value=" 刷新所有频道JS文件 "></td>
</tr>
</form>
<%end if%>
</table>
<%
rs.Close:set rs=Nothing
end sub
sub ChannelInfo()
dim ChannelID,sTemp,ChkDisabled
dim ChannelName,ReadMe,OpenType,IsShow,IsDisabled,ChannelType,LinkUrl,IsRss,IsWap
dim ModuleID,ChannelDir,ChannelItemName,ChannelItemUnit
dim IsCreateHtml,CreatePathType,CreateFileType,CreateFileExt,IsCreateList,AutoCreateList
dim StyleID,CssID,UploadSetting,OtherSetting
dim CLogo,CBanner
dim sAction,SubmitValue
if Action = "Modify" then
sAction="SaveModify":SubmitValue="修 改"
ChannelID = Trim(Request("ChannelID"))
if Not IsNumeric(ChannelID) then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>请指定要修改频道ID</li>"
exit sub
end if
set rs=Cl.Execute("select * from Channel where ChannelID=" & Clng(ChannelID))
if rs.bof and rs.eof then
FoundErr=True
ErrMsg=ErrMsg & "<br /><li>找不到指定的频道！</li>"
Exit sub
end if
ChannelName = rs("ChannelName") : ReadMe = rs("ReadMe")
OpenType = rs("OpenType") : ChannelType = rs("ChannelType")
IsShow = rs("IsShow") : LinkUrl = rs("LinkUrl")
ModuleID = rs("ModuleID") : ChannelDir = rs("ChannelDir")
ChannelItemName = rs("ChannelItemName") : ChannelItemUnit = rs("ChannelItemUnit")
IsCreateHtml = rs("IsCreateHtml") : CreatePathType = rs("CreatePathType")
CreateFileType = rs("CreateFileType") : CreateFileExt = rs("CreateFileExt")
IsCreateList = rs("IsCreateList") : AutoCreateList = rs("AutoCreateList")
StyleID = rs("StyleID") : CssID = rs("CssID")
CLogo = rs("Logo") : CBanner = rs("Banner")
IsDisabled = rs("IsDisabled"):IsRss = rs("IsRss"):IsWap = rs("IsWap")
OtherSetting = Split(Rs("OtherSetting"),",")
if Ubound(OtherSetting)<9 then Redim OtherSetting(9)
if IsNull(rs("UploadSetting")) or rs("UploadSetting")="" then
UploadSetting=Split("1,2,3,4@Other@2@0@jpg|gif|bmp|png@100@1@swf@500@1@rm|mp3|wav|mid|avi|mpg|mpeg|asf|wma@2048@1@rar|zip|exe|doc|xls|chm@2048@1","@")
else
UploadSetting=Split(rs("UploadSetting"),"@")
'if Ubound(UploadSetting)<15 then
'UploadSetting=Split("4@Other@2@0@jpg|gif|bmp|png@100@1@swf@500@1@rm|mp3|wav|mid|avi|mpg|mpeg|asf|wma@2048@1@rar|zip|exe|doc|xls|chm@2048@1","@")
'end if
end if
ChkDisabled="Disabled"
set rs = Nothing
else
sAction = "SaveAdd" : SubmitValue = "添 加"
OpenType = 1 : ChannelType = 1 : IsShow = 1 : ModuleID = 1
IsCreateHtml = 0 : CreatePathType = 0 : CreateFileType = 0 : CreateFileExt = "html"
IsCreateList = 1 : AutoCreateList = 1 : StyleID = Cl.StyleID : CssID = Cl.CssID
CLogo = "" : CBanner = "" : IsDisabled = 0
UploadSetting=Split("1,2,3,4@Other@2@0@jpg|gif|bmp|png@100@1@swf@500@1@rm|mp3|wav|mid|avi|mpg|mpeg|asf|wma@2048@1@rar|zip|exe|doc|xls|chm@2048@1","@")
OtherSetting=Array(0,12,1,20,20,20,20,20,10,20)
ChkDisabled=""
end if
%>
<br />
