<% if Not Cl.TrueChannelPurview(2,ChannelID) then Admin_ShowErr("

您无此操作权限！

") end if if ChannelID=0 then Admin_ShowErr("

您无此操作权限！

") Const MaxPerPage=20 Dim Action,ClassID,SpecialID,JsType Dim CurrentPath,TempData Dim SystemTopDir,SystemDir Action=Trim(request("Action")) SystemTopDir="http://"&Request.servervariables("Server_name") SystemDir=SystemTopDir & Cl.WebDir JsType=Cl.ChkClng(Trim(Request("JsType"))) CurrentPage=Cl.ChkClng(request("page")) Cl.GetChannelSetting(ChannelID) ModuleID=Clng(Cl.Channel_Setting(20)) Header %>

JS 代码管理
管理导航：	管理<%=Cl.Channel_Setting(2)%>的JS代码 \| 添加JS[标签] \| 添加JS[配置]

<% Select Case Action Case "AddJs" AddJS Case "ModifyJs" ModifyJS Case "SaveJs" SaveJs Case "SaveModify" SaveJs Case "Del" DelJs Case "RefreshJs" RefreshJs(ChannelID) Response.write Cl.ShowSuc("恭喜您，刷新所有Js成功！") Case Else JsMain End Select Footer Sub JsMain() sql="select ID,ChannelID,JsName,JsReadme,JsType,JsFileName,Config from Cl_Js Where ChannelID="&ChannelID&" order by id desc" set rs=server.createobject("adodb.recordset") OpenConn : rs.open sql,Conn,1,1 %>

<% If rs.bof and rs.eof then Response.write "" rs.close:set rs=Nothing Else TotalPut = rs.recordcount if (TotalPut mod MaxPerPage)=0 then TotalPages = TotalPut \ MaxPerPage else TotalPages = TotalPut \ MaxPerPage + 1 end if if CurrentPage > TotalPages then CurrentPage=TotalPages if CurrentPage < 1 then CurrentPage=1 rs.move (CurrentPage-1)*MaxPerPage SQL=rs.GetRows(MaxPerPage) rs.close:set rs=Nothing For i=0 to Ubound(SQL,2) %> <% Next End if %>

JS类型	JS名称	JS文件名	调用代码	操作
无任何JS文件。
<% If SQL(4,i)=0 then response.write "标签" Else response.write "配置" End If 'ID,ChannelID,JsName,JsReadme,JsType,JsFileName,Config %>	<%=SQL(2,i)%>	<%=SQL(5,i)%>	<script language="javascript" src="<%=SystemDir & Cl.Channel_Setting(4) & "/Js/" & SQL(5,i)%>.Js"></script>	修改演示删除

<% Response.write Cl.ShowPage("Admin_Js.asp?ChannelID="&ChannelID,TotalPut,MaxPerPage,"个","Js") if Cl.Web_Info(15) = "1" then%> <% end if End Sub Sub AddJs() %> <% ShowStyleCode if JsType=1 then %> <% end if End Sub sub AddJs_0() %> 输入标签： <% end sub sub AddJs_1() %> 所属栏目：包含子栏目
不能指定为外部栏目所属专题： <%=Cl.Channel_Setting(2)%>数目：请输入要显示<%=Cl.Channel_Setting(2)%>的记录数显示类型：分栏： <%=Cl.Channel_Setting(2)%>属性：热门<%=Cl.Channel_Setting(2)%> 推荐<%=Cl.Channel_Setting(2)%> 如果都不选，将显示所有<%=Cl.Channel_Setting(2)%> 日期范围：只显示最近天内的<%=Cl.Channel_Setting(2)%> 如果为空，则显示所有天数的<%=Cl.Channel_Setting(2)%> 排序字段：调用模板设置(请用HTML语法填写) 模板总表格标记部分

标签说明(注意大小写)

内容部分:{%ContentBody%}

模板主体循环标记

标签说明(注意大小写)

<%Call ShowLabelIntro()%>

模板换行标记部分

<% end sub Sub ModifyJs() Dim ID',rs,SQL ID=Trim(Request("ID")) if Not Isnumeric(ID) then Admin_ShowErr("请指定要修改的JSID") Set Rs=Cl.Execute("Select * From Cl_Js Where ID="&Clng(ID)&"") if Rs.Bof and Rs.Eof then Admin_ShowErr("请指定要修改的JSID") %> <% ShowStyleCode End Sub sub ModifyJs_0() %> 输入标签： <% end sub sub ModifyJs_1() Dim sTr sTr=Split(Rs("Config"),"@@") sTr(0)=Split(sTr(0),"||") sTr(1)=Split(sTr(1),"||") %> 所属栏目： Checked<%end if%>> 包含子栏目
不能指定为外部栏目所属专题： <%=Cl.Channel_Setting(2)%>数目：请输入要显示<%=Cl.Channel_Setting(2)%>的记录数显示类型：分栏： <%=Cl.Channel_Setting(2)%>属性： Checked<%end if%>> 热门<%=Cl.Channel_Setting(2)%> Checked<%end if%>> 推荐<%=Cl.Channel_Setting(2)%> 如果都不选，将显示所有<%=Cl.Channel_Setting(2)%> 日期范围：只显示最近天内的<%=Cl.Channel_Setting(2)%> 如果为空，则显示所有天数的<%=Cl.Channel_Setting(2)%> 排序字段：调用模板设置(请用HTML语法填写) 模板总表格标记部分

标签说明(注意大小写)

内容部分:{%ContentBody%}

模板主体循环标记

标签说明(注意大小写)

<%Call ShowLabelIntro()%>

模板换行标记部分

<% end sub Sub SaveJs() Dim sConfig Dim JsName,JsReadMe,JsFileName,JsCode Dim ClassID,IncludeChild,SpecialID,TopNum,ShowType,ColsNum Dim IsHot,IsElite,DateNum,OrderType Dim Style1,Style2,Style3 JsName = Trim(Request("JsName")) JsReadMe = Trim(Request("JsReadMe")) JsFileName = Trim(Request("JsFileName")) JsCode = Trim(Request("JsCode")) ClassID = Cl.ChkClng(Request("ClassID")) IncludeChild = Cl.ChkCBool(Request("IncludeChild")) SpecialID = Cl.ChkClng(Request("SpecialID")) TopNum = Cl.ChkClng(Request("TopNum")) ShowType = Cl.ChkClng(Request("ShowType")) ColsNum = Cl.ChkClng(Request("ColsNum")) '============== IsHot = Cl.ChkCBool(Request("IsHot")) IsElite = Cl.ChkCBool(Request("IsElite")) DateNum = Cl.ChkClng(Request("DateNum")) OrderType = Cl.ChkClng(Request("OrderType")) Style1 = Trim(Request("Style1")) Style2 = Trim(Request("Style2")) Style3 = Trim(Request("Style3")) if JsName = "" or JsFileName = "" then Admin_ShowErr("Js名与Js文件名不能为空！") JsFileName = Replace(JsFileName,".","") JsFileName = Replace(JsFileName,"/","") JsFileName = Replace(JsFileName,"\","") Cl.LoadTempLates("") If JsType=0 then sConfig = JsCode If IsNull(sConfig) And sConfig="" then Admin_ShowErr("请输入标签！") End if TempData = Cl.ReplaceAllFlag(sConfig) TempData = replace(replace(replace(TempData,"'",""),chr(10),"\n"),chr(13),"\n") TempData = "document.write ('" & TempData & "');" Else sConfig = ChannelID & "||" & ClassID & "||" & SpecialID & "||" & TopNum sConfig = sConfig & "||" & IncludeChild & "||" & ShowType & "||" & ColsNum sConfig = sConfig & "||" & IsHot & "||" & IsElite & "||" & DateNum & "||" & OrderType sConfig = sConfig & "@@" & Style1 & "||" & Style2 & "||" & Style3 Select Case ModuleID Case 1 TempData = "document.write ('" & GetArticle(ChannelID,ClassID,SpecialID,TopNum,IncludeChild,ShowType,ColsNum,IsHot,IsElite,DateNum,OrderType,Style1,Style2,Style3) & "');" Case 2 TempData = "document.write ('" & GetSoft(ChannelID,ClassID,SpecialID,TopNum,IncludeChild,ShowType,ColsNum,IsHot,IsElite,DateNum,OrderType,Style1,Style2,Style3) & "');" Case 3 TempData = "document.write ('" & GetPhoto(ChannelID,ClassID,SpecialID,TopNum,IncludeChild,ShowType,ColsNum,IsHot,IsElite,DateNum,OrderType,Style1,Style2,Style3) & "');" Case 4 TempData = "document.write ('" & GetMovie(ChannelID,ClassID,SpecialID,TopNum,IncludeChild,ShowType,ColsNum,IsHot,IsElite,DateNum,OrderType,Style1,Style2,Style3) & "');" Case 5 TempData = "document.write ('" & GetProduct(ChannelID,ClassID,SpecialID,TopNum,IncludeChild,ShowType,ColsNum,IsHot,IsElite,DateNum,OrderType,Style1,Style2,Style3) & "');" End Select End if if Action="SaveModify" then Dim ID',rs,SQL ID=Cl.ChkClng(Request("ID")) if ID=0 then Admin_ShowErr("请指定要修改的JSID") Cl.Execute("Update Cl_JS Set JsName='"&JsName&"',JsReadme='"&JsReadme&"',JsType="&JsType&",JsFileName='"&JsFileName&"',Config='"&sConfig&"' where ID="&ID&"") else Cl.Execute("Insert Into [Cl_Js] (ChannelID,JsName,JsReadme,JsType,JsFileName,Config) Values ("&ChannelID&",'"&JsName&"','"&JsReadme&"','"&JsType&"','"&JsFileName&"','"&sConfig&"') ") end if TempData=Replace(TempData,Vbcrlf,"") Cl.MakeHtml TempData,Cl.WebDir & Cl.Channel_Setting(4) & "/Js/"&JsFileName&".Js" Cl.SaveAdminLog Response.write Cl.ShowSuc("恭喜您，添加/修改Js成功！") End Sub Sub DelJs() Dim ID,rsJ ID=Cl.ChkClng(Trim(Request("ID"))) if ID=0 then Admin_ShowErr("请指定要修改的JSID") Set rsJ=Cl.Execute("Select JsFileName From Cl_Js where ID="&ID&"") Cl.DelFiles(Cl.WebDir & Cl.Channel_Setting(4) & "/Js/"&rsJ(0)&".Js") Set rsJ=Nothing Cl.Execute("Delete From Cl_Js where ID="&ID&"") Cl.SaveAdminLog Response.write Cl.ShowSuc("恭喜您，删除Js成功！") End Sub Sub ShowStyleCode() %> <% End Sub Sub ShowLabelIntro() Response.write "标题ID:{%InfoID%}
" Response.write "标题前缀:{%Prefixion%}
" Response.write "属性图片:{%PropertyImg%}
" Response.write "标题名称:{%Title(30)%}
" Response.write "标题链接:{%LinkUrl%}
" Response.write "栏目ID:{%ClassID%}
" Response.write "栏目名称:{%ClassName%}
" Response.write "栏目链接:{%ClassUrl%}
" Response.write "图片代码:{%ImgUrl(120,120)%}
" Response.write "简介代码:{%Intro(200)%}
" Response.write "更新时间:{%UpdateTime(1)%}
" Select Case ChannelID Case 1 Response.write "内容作者:{%Author%}
" Response.write "点击数:{%Hits%}" Case 2 Response.write "内容作者:{%Author%}
" Response.write "点击数:{%Hits%}" Case 3 Response.write "内容作者:{%Author%}
" Response.write "点击数:{%Hits%}" Case 4 Response.write "内容作者:{%Author%}
" Response.write "点击数:{%Hits%}" Case 5 Response.write "内容作者:{%Author%}
" Response.write "点击数:{%Hits%}" End Select End Sub %>

添加<%=Cl.Channel_Setting(2)%>的JS
JS名称：	*
JS说明：
JS文件名：	* 注：直接输入文件名即可，不用扩展名。
参数配置

修改文章的JS
JS名称：	"> *
JS说明：	<%=Rs("JsReadme")%>
JS文件名：	"> * 注：直接输入文件名即可，不用扩展名。
参数配置
"> ">