📄 admin_js.asp
字号:
<%
if Rs("JsType")=1 then
ModifyJs_1
Else
ModifyJs_0
End IF
%>
<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="<%=Rs("JsType")%>">
<input name="ID" type="hidden" id="ID" value="<%=Rs("ID")%>">
<input name="submit" type="submit" id="submit" value="保存JS配制">
<input type="reset" name="Reset" value="恢复默认值"></td>
</tr>
</table>
</form>
<%
ShowStyleCode
End Sub
sub ModifyJs_0()
%>
<tr class="tdbg">
<td align="right"><strong>输入标签：</strong></td>
<td>
<textarea name="JsCode" style="width:100%" rows="5" id="JsCode"><%=Rs("Config")%></textarea>
</td>
</tr>
<%
end sub
sub ModifyJs_1()
Dim sTr
sTr=Split(Rs("Config"),"@@")
sTr(0)=Split(sTr(0),"||")
sTr(1)=Split(sTr(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,sTr(0)(1),0,3)%>
</select> <input name="IncludeChild" type="checkbox" id="IncludeChild" value="True" <%if Cl.GetCBool(sTr(0)(4)) then%>Checked<%end if%>> 包含子栏目
<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,sTr(0)(2),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="<%=sTr(0)(3)%>" 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">一栏</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" <%if Cl.GetCBool(sTr(0)(7)) then%>Checked<%end if%>>
热门<%=Cl.Channel.selectSingleNode("@channelitemname").text%> <input name="IsElite" type="checkbox" id="IsElite" value="True" <%if Cl.GetCBool(sTr(0)(8)) then%>Checked<%end if%>>
推荐<%=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="<%=sTr(0)(9)%>" 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"><%=sTr(1)(0)%></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"><%=sTr(1)(1)%></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"><%=sTr(1)(2)%></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>
<script language="JavaScript" type="text/javascript">
CheckSel('ShowType','<%=sTr(0)(5)%>');
CheckSel('ColsNum','<%=sTr(0)(6)%>');
CheckSel('OrderType','<%=sTr(0)(10)%>');
</script>
<%
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.GetClng(Request("ClassID"))
IncludeChild = Cl.GetCBool(Request("IncludeChild"))
SpecialID = Cl.GetClng(Request("SpecialID"))
TopNum = Cl.GetClng(Request("TopNum"))
ShowType = Cl.GetClng(Request("ShowType"))
ColsNum = Cl.GetClng(Request("ColsNum"))
'==============
IsHot = Cl.GetCBool(Request("IsHot"))
IsElite = Cl.GetCBool(Request("IsElite"))
DateNum = Cl.GetClng(Request("DateNum"))
OrderType = Cl.GetClng(Request("OrderType"))
Style1 = Trim(Request("Style1"))
Style2 = Trim(Request("Style2"))
Style3 = Trim(Request("Style3"))
if JsName = "" or JsFileName = "" then Cl.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
Cl.ShowErr("请输入标签！")
End if
TempData = Template.ReplaceAllFlag(sConfig)
TempData = replace(TempData,chr(34),"\"&chr(34))
TempData = 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 = GetArticle(ChannelID,ClassID,SpecialID,TopNum,IncludeChild,ShowType,ColsNum,IsHot,IsElite,DateNum,OrderType,Style1,Style2,Style3)
Case 2
TempData = GetSoft(ChannelID,ClassID,SpecialID,TopNum,IncludeChild,ShowType,ColsNum,IsHot,IsElite,DateNum,OrderType,Style1,Style2,Style3)
Case 3
TempData = GetPhoto(ChannelID,ClassID,SpecialID,TopNum,IncludeChild,ShowType,ColsNum,IsHot,IsElite,DateNum,OrderType,Style1,Style2,Style3)
Case 4
TempData = GetMovie(ChannelID,ClassID,SpecialID,TopNum,IncludeChild,ShowType,ColsNum,IsHot,IsElite,DateNum,OrderType,Style1,Style2,Style3)
Case 5
TempData = GetProduct(ChannelID,ClassID,SpecialID,TopNum,IncludeChild,ShowType,ColsNum,IsHot,IsElite,DateNum,OrderType,Style1,Style2,Style3)
End Select
TempData = "document.write (""" & Replace(TempData,Chr(34),"\"&Chr(34)) & """);"
End if
if Action="SaveModify" then
Dim ID',rs,SQL
ID=Cl.GetClng(Request("ID"))
if ID=0 then Cl.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.selectSingleNode("@channeldir").text & "/Js/"&JsFileName&".Js"
Cl.SaveAdminLog
Call Cl.ShowSuc("恭喜您，添加/修改Js成功！")
End Sub
Sub DelJs()
Dim ID,rsJ
ID=Cl.GetClng(Trim(Request("ID")))
if ID=0 then Cl.ShowErr("请指定要修改的JSID")
Set rsJ=Cl.Execute("Select JsFileName From Cl_Js where ID="&ID&"")
Cl.DelFiles(Cl.WebDir & Cl.Channel.selectSingleNode("@channeldir").text & "/Js/"&rsJ(0)&".Js")
Set rsJ=Nothing
Cl.Execute("Delete From Cl_Js where ID="&ID&"")
Cl.SaveAdminLog
Call Cl.ShowSuc("恭喜您，删除Js成功！")
End Sub
Sub ShowStyleCode()
%>
<div id="ShowType_0" style="display:none">
<td width="*">{$PropertyImg} <font color=blue>{$Prefixion}</font> <a href="{$LinkUrl}" target="_blank">{$Title(20)}</a><td>
</div>
<div id="ShowType_1" Style="display:none">
<td width="*"> <a href="{$LinkUrl}" target="_blank">{$Title(30)}<br />{$Intro(200)}……</a></td>
</div>
<div id="ShowType_2" Style="display:none">
<td width="*"> <a href="{$LinkUrl}" target="_blank">{$ImgUrl(120,120)}</a><td>
</div>
<div id="ShowType_3" Style="display:none">
<td width="*"> <a href="{$LinkUrl}" target="_blank">{$ImgUrl(120,120)}<br />{$Title(30)}</a><td>
</div>
<div id="ShowType_4" Style="display:none">
<td width="*"> <a href="{$LinkUrl}" target="_blank">{$ImgUrl(120,120)}<br />{$Title(30)}</a><td>
<td>{$Intro(200)}……</td>
</div>
<script language="VBScript" type="text/vbscript">
Function ShowTypeSel(Val)
dim sShowType
sShowType = document.getElementById("ShowType_" & Val).innerHTML
sShowType = Replace(sShowType,"<BR>","<br />")
sShowType = Replace(sShowType,"<A","<a")
sShowType = Replace(sShowType,"</A>","</a>")
sShowType = Replace(sShowType,"<FONT","<font")
sShowType = Replace(sShowType,"</FONT>","</font>")
sShowType = Replace(sShowType,"<IMG","<ing")
sShowType = Replace(sShowType,"<TD","<td")
sShowType = Replace(sShowType,"</TD>","</td>")
sShowType = Replace(sShowType,"<TR","<tr")
sShowType = Replace(sShowType,"</TR>","</tr>")
document.getElementById("Style2").value = sShowType
End Function
</script>
<%
End Sub
Sub ShowLabelIntro()
Response.write "内容ＩＤ:{$InfoID}<br />"
Response.write "标题前缀:{$Prefixion}<br />"
Response.write "标题名称:{$Title(30)}<br />"
Response.write "标题链接:{$LinkUrl}<br />"
Response.write "属性图片:{$PropertyImg}<br />"
Response.write "栏目ＩＤ:{$ClassID}<br />"
Response.write "栏目名称:{$ClassName}<br />"
Response.write "栏目链接:{$ClassLinkUrl}<br />"
Response.write "首页图片:{$ImgUrl(120,120)}<br />"
Response.write "内容简介:{$Intro(200)}<br />"
Response.write "更新时间:{$UpdateTime(1)}<br />"
Response.write "内容作者:{$Author}<br />"
Response.write "点击数:{$Hits}"
'Select Case ChannelID
'Case 1
'Case 2
'Case 3
'Case 4
'Case 5
'End Select
End Sub
%>
<%
'<!--
'┌───────────────────────────────────────────────────────┐
'│ │
'│ CreateLive CMS Version 4.0 │
'│ Powered by Aspoo.CN │
'│ │
'│ 邮箱: support@aspoo.cn Info@aspoo.cn │
'│ ＱＱ: 3315263 596197794 │
'│ 网站: www.aspoo.cn www.aspoo.com │
'│ 论坛: bbs.aspoo.cn bbs.aspoo.com │
'│ │
'│ Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved. │
'└───────────────────────────────────────────────────────┘
'-->
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -