📄 admin_js.asp
字号:
<!--#include file="Inc/Const.asp"-->
<!--#include file="../Inc/Cl_Function_Article.asp"-->
<!--#include file="../Inc/Cl_Function_Soft.asp"-->
<!--#include file="../Inc/Cl_Function_Photo.asp"-->
<!--#include file="../Inc/Cl_Function_Movie.asp"-->
<!--#include file="../Inc/Cl_Function_Product.asp"-->
<%
if Not Cl.TrueChannelPurview(2,ChannelID) then
Cl.ShowErr("<li>您无此操作权限！</li>")
end if
if ChannelID=0 then Cl.ShowErr("<li>您无此操作权限！</li>")
Const PageSize=20
Dim Action,ClassID,SpecialID,JsType
Dim CurrentPath,TempData,rsInfo
Dim SystemTopDir,SystemDir
Action=Trim(request("Action"))
SystemTopDir="http://"&Request.servervariables("Server_name")
SystemDir=SystemTopDir & Cl.WebDir
JsType=Cl.GetClng(Trim(Request("JsType")))
CurrentPage=Cl.GetClng(request("page"))
Cl.Load_ChannelSetting(ChannelID)
ModuleID=Clng(Cl.Channel.selectSingleNode("@moduleid").text)
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>JS 代 码 管 理</strong></td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航：</strong></td>
<td height="30"><a href="Admin_Js.asp?ChannelID=<%=Channelid%>">管理<%=Cl.Channel.selectSingleNode("@channelitemname").text%>的JS代码</a>
| <a href="Admin_Js.asp?ChannelID=<%=Channelid%>&Action=AddJs&JsType=0">添加JS[<font color=#0000ff>标签</font>]</a>
| <a href="Admin_Js.asp?ChannelID=<%=Channelid%>&Action=AddJs&JsType=1">添加JS[<font color=#ff0033>配置</font>]</a></td>
</tr>
</table>
<br />
<%
Select Case Action
Case "AddJs"
AddJS
Case "ModifyJs"
ModifyJS
Case "SaveJs"
SaveJs
Case "SaveModify"
SaveJs
Case "Del"
DelJs
Case "RefreshJs"
RefreshJs(ChannelID)
Call 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
%>
<form name="form1" method="POST" action="Admin_Js.asp?ChannelID=<%=ChannelID%>">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" Class="border">
<tr class="title">
<td width="60" align="center"><strong>JS类型</strong></td>
<td width="100" align="center"><strong>JS名称</strong></td>
<td width="100" align="center"><strong>JS文件名</strong></td>
<td align="center"><strong>调用代码</strong></td>
<td width="40" align="center"><strong>操作</strong></td>
</tr>
<%
If rs.bof and rs.eof then
Response.write "<tr class=""tdbg""><td align=""center"" colspan=5>无任何JS文件。</td></tr>"
rs.close:set rs=Nothing
Else
TotalPut = rs.recordcount
if (TotalPut mod PageSize)=0 then
TotalPages = TotalPut \ PageSize
else
TotalPages = TotalPut \ PageSize + 1
end if
if CurrentPage > TotalPages then CurrentPage=TotalPages
if CurrentPage < 1 then CurrentPage=1
rs.move (CurrentPage-1)*PageSize
SQL=rs.GetRows(PageSize)
rs.close:set rs=Nothing
For i=0 to Ubound(SQL,2)
%>
<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
<td width="60" align="center">
<%
If SQL(4,i)=0 then
response.write "<font color=#0000ff>标签</font>"
Else
response.write "<font color=#ff0033>配置</font>"
End If
'ID,ChannelID,JsName,JsReadme,JsType,JsFileName,Config
%>
</td>
<td width="100" align="center"><Span title="<%=SQL(3,i)%>"><%=SQL(2,i)%></Span></td>
<td width="100" align="center"><%=SQL(5,i)%></td>
<td align="center"><textarea name="JsTempCode" rows="3" style="width:100%" id="JsTempCode"><script language="javascript" src="<%=SystemDir & Cl.Channel.selectSingleNode("@channeldir").text & "/Js/" & SQL(5,i)%>.Js"></script></textarea></td>
<td width="40" align="center">
<a href="Admin_Js.asp?ChannelID=<%=ChannelID%>&Action=ModifyJs&ID=<%=SQL(0,i)%>">修改</a><br /><a href="Admin_JsView.asp?ChannelID=<%=ChannelID%>&ID=<%=SQL(0,i)%>" target="_blank">演示</a><br />
<a href="Admin_Js.asp?ChannelID=<%=ChannelID%>&Action=Del&ID=<%=SQL(0,i)%>" onclick="return confirm('确定要删除此Js吗？');">删除</a>
</td>
</tr>
<%
Next
End if
%>
</table>
</form>
<%
Response.write Cl.ShowPage("Admin_Js.asp?ChannelID="&ChannelID,TotalPut,PageSize,"个","Js")
if Cl.Web_Info(15) = "1" then%>
<form name="formRefresh" method="Post" action="Admin_Js.asp?ChannelID=<%=ChannelID%>">
<div align="center">
<input name="Action" type="hidden" id="Action" value="RefreshJs">
<input name="Submit" type="submit" value=" 刷新所有<%=Cl.Channel.selectSingleNode("@channelitemname").text%>JS文件 ">
</div>
</form>
<%
end if
End Sub
Sub AddJs()
%>
<form action="Admin_Js.asp?Action=SaveJs" method="post" name="myform" id="myform">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="title">
<td height="22" colspan="2" align="center"><strong>添加<%=Cl.Channel.selectSingleNode("@channelitemname").text%>的JS</strong></td>
</tr>
<tr class="tdbg">
<td height="25" align="right"><strong>JS名称：</strong></td>
<td height="25"><input name="JsName" type="text" id="JsName" size="49" maxlength="50"> <font color="#FF0000">*</font></td>
</tr>
<tr class="tdbg">
<td height="25" align="right"><strong>JS说明：</strong></td>
<td height="25"><textarea name="JsReadme" cols="40" rows="3" id="JsReadme"></textarea></td> </tr>
<tr class="tdbg">
<td height="25" align="right"><strong>JS文件名：</strong></td>
<td height="25"><input name="JsFileName" type="text" id="JsFileName" size="49" maxlength="50"> <font color="#FF0000">*</font><br /><font color=#0000ff>注：直接输入文件名即可，不用扩展名。</font></td> </tr>
<tr class="title">
<td height="22" colspan="2" align="center"><strong>参数配置</strong></td>
</tr>
<%
Select Case JsType
Case 1 : AddJs_1
'Case 2 : AddJs_2
Case Else : AddJs_0
End Select
%>
<tr class="tdbg">
<td height="40" colspan="2" align="center">
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=ChannelID%>">
<input name="JsType" type="hidden" id="JsType" value="<%=JsType%>">
<input name="submit" type="submit" id="submit" value="保存JS配制">
<input type="reset" name="Reset" value="恢复默认值"></td>
</tr>
</table>
</form>
<%
ShowStyleCode
if JsType=1 then %>
<script language="VBScript" type="text/vbscript">
ShowTypeSel(0)
</script><%
end if
End Sub
sub AddJs_0()
%>
<tr class="tdbg">
<td align="right"><strong>输入标签：</strong></td>
<td><textarea name="JsCode" style="width:100%" rows="5" id="JsCode"></textarea></td>
</tr>
<%
end sub
sub AddJs_1()
%>
<tr class="tdbg">
<td height="25" align="right" width=250>所属栏目：</td>
<td height="25"><select name="ClassID" id="ClassID">
<option value="0">不指定栏目</option>
<%=ShowClass_Option(ChannelID,0,0,3)%>
</select> <input name="IncludeChild" type="checkbox" id="IncludeChild" value="True" checked> 包含子栏目
<br /><font color="#0000FF">不能指定为外部栏目</font></td>
</tr>
<tr class="tdbg">
<td height="25" align="right">所属专题：</td>
<td height="25">
<select name="SpecialID" id="SpecialID">
<%=ShowSpecial_Option(ChannelID,SpecialID,1)%>
</select>
</td>
</tr>
<tr class="tdbg">
<td height="25" align="right"><%=Cl.Channel.selectSingleNode("@channelitemname").text%>数目：</td>
<td height="25"><input name="TopNum" type="text" value="10" size="5" maxlength="3">
<font color="#FF0000">请输入要显示<%=Cl.Channel.selectSingleNode("@channelitemname").text%>的记录数</font></td>
</tr>
<tr class="tdbg">
<td height="25" align="right">显示类型：</td>
<td height="25"><select name="ShowType" id="ShowType" onchange="ShowTypeSel(this.selectedIndex)">
<option value="0" selected>标题</option>
<option value="1">标题+内容</option>
<option value="2">图片</option>
<option value="3">图片+标题</option>
<option value="4">图片+标题+内容</option>
</select> 分栏：
<select name="ColsNum" id="ColsNum">
<option value="1" selected>一栏</option>
<option value="2">两栏</option>
<option value="3">三栏</option>
<option value="4">四栏</option>
<option value="5">五栏</option>
</select> </td>
</tr>
<tr class="tdbg">
<td height="25" align="right"><%=Cl.Channel.selectSingleNode("@channelitemname").text%>属性：</td>
<td height="25"> <input name="IsHot" type="checkbox" id="IsHot" value="True">
热门<%=Cl.Channel.selectSingleNode("@channelitemname").text%> <input name="IsElite" type="checkbox" id="IsElite" value="True">
推荐<%=Cl.Channel.selectSingleNode("@channelitemname").text%> <font color="#FF0000">如果都不选，将显示所有<%=Cl.Channel.selectSingleNode("@channelitemname").text%></font></td>
</tr>
<tr class="tdbg">
<td height="25" align="right">日期范围：</td>
<td height="25">只显示最近
<input name="DateNum" type="text" id="DateNum" value="100" size="5" maxlength="3">
天内的<%=Cl.Channel.selectSingleNode("@channelitemname").text%> <font color="#FF0000">如果为空，则显示所有天数的<%=Cl.Channel.selectSingleNode("@channelitemname").text%></font></td>
</tr>
<tr class="tdbg">
<td height="25" align="right">排序字段：</td>
<td height="25"><select name="OrderType" id="OrderType">
<option value="1" selected>ID(降序)</option>
<option value="2">ID(升序)</option>
<option value="3">更新时间(降序)</option>
<option value="4">更新时间(升序)</option>
<option value="5">点击次数(降序)</option>
<option value="6">点击次数(升序)</option>
</select>
</td>
</tr>
<tr class=title><td colspan="2" class=title align="center">调用模板设置(请用HTML语法填写)</td></tr>
<tr class="tdbg">
<td align="right" valign="top">模板总表格标记部分
<fieldset>
<legend> 标签说明(注意大小写) </legend>
<div align="left">
内容部分:{$ContentBody}
</div>
</fieldset>
</td>
<td>
<textarea name="Style1" ID="Style1" style="width:90%;" rows="5"><table width="100%" border=0 align="center" cellpadding=0 cellspacing=0><tr>{$ContentBody}</tr></table></textarea>
<br /><a href="javascript:admin_Size(-3,'Style1')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(3,'Style1')"><img src="images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
<tr class="tdbg">
<td align="right" valign="top">
模板主体循环标记
<fieldset>
<legend> 标签说明(注意大小写) </legend>
<div align="left"><%Call ShowLabelIntro()%></div>
</fieldset>
</td>
<td valign="top">
<textarea name="Style2" ID="Style2" style="width:90%;" rows="10"></textarea>
<br /><a href="javascript:admin_Size(-3,'Style2')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(3,'Style2')"><img src="images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
<tr class="tdbg">
<td align="right" valign="top">模板换行标记部分
</td>
<td>
<textarea name="Style3" ID="Style3" style="width:90%;" rows="3"></tr><tr align="left"></textarea>
<br /><a href="javascript:admin_Size(-3,'Style3')"><img src="images/minus.gif" unselectable="on" border='0'></a> <a href="javascript:admin_Size(3,'Style3')"><img src="images/plus.gif" unselectable="on" border='0'></a>
</td>
</tr>
<%
end sub
Sub ModifyJs()
Dim ID',rs,SQL
ID=Trim(Request("ID"))
if Not Isnumeric(ID) then Cl.ShowErr("请指定要修改的JSID")
Set Rs=Cl.Execute("Select * From Cl_Js Where ID="&Clng(ID)&"")
if Rs.Bof and Rs.Eof then Cl.ShowErr("请指定要修改的JSID")
%>
<form action="Admin_Js.asp?ChannelID=<%=ChannelID%>&Action=SaveModify" method="post" name="myform" id="myform">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="title">
<td height="22" colspan="2" align="center"><strong>修改文章的JS</strong></td>
</tr>
<tr class="tdbg">
<td height="25" align="right"><strong>JS名称：</strong></td>
<td height="25"><input name="JsName" type="text" id="JsName" size="49" maxlength="50" value="<%=Rs("JsName")%>"> <font color="#FF0000">*</font></td>
</tr>
<tr class="tdbg">
<td height="25" align="right"><strong>JS说明：</strong></td>
<td height="25"><textarea name="JsReadme" cols="40" rows="3" id="JsReadme"><%=Rs("JsReadme")%></textarea></td> </tr>
<tr class="tdbg">
<td height="25" align="right"><strong>JS文件名：</strong></td>
<td height="25"><input name="JsFileName" type="text" id="JsFileName" size="49" maxlength="50" value="<%=Rs("JsFileName")%>"> <font color="#FF0000">*</font><br /><font color=#0000ff>注：直接输入文件名即可，不用扩展名。</font></td> </tr>
<tr class="title">
<td height="22" colspan="2" align="center"><strong>参数配置</strong></td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -