admin_js.asp

淘客网上商店网站程序 淘客网上商店网站程序 淘客网上商店网站程序

		<select name="ColsNum" id="ColsNum">
			<option value="1" selected="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">属性选择：</td>
		<td height="25"> <input name="IsHot" type="checkbox" id="IsHot" value="True" <%If IsHot="True" then%>checked="checked"<%End if%> />
		热门&nbsp;&nbsp;&nbsp;&nbsp; <input name="IsElite" type="checkbox" id="IsElite" value="True" <%If IsElite="True" then%>checked="checked"<%End if%> />
		推荐 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<!--<input name="IsOntop" type="checkbox" id="IsOntop" value="True" />
		固顶 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;--><font color="#FF0000">如果都不选，将显示所有属性的记录</font></td>
	</tr>
	<tr class="tdbg"> 
		<td height="25" align="right">日期范围：</td>
		<td height="25">只显示最近 
		<input name="DateNum" type="text" id="DateNum" value="<%=DateNum%>" size="5" maxlength="3" />
		天内的记录&nbsp;&nbsp;&nbsp;&nbsp;<font color="#FF0000">如果为0，则显示所有天数的记录</font></td>
	</tr>
	<tr class="tdbg"> 
		<td height="25" align="right">排序字段：</td>
		<td height="25"><select name="OrderType" id="OrderType">
			<option value="1" selected="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">模板开始标记部分</td>
		<td>
			<textarea name="Style1" id="Style1" style="width:90%;" rows="3"><%=Style1%></textarea>
		</td>
	</tr>
	<tr class="tdbg">
		<td align="right" valign="top">
		模板主体循环标记
		<fieldset>
		<legend>&nbsp;标签说明(注意大小写)&nbsp;</legend>
		<div align="left"><%Call ShowLabelIntro()%></div>
		</fieldset>
		</td>
		<td valign="top">
		<textarea name="Style2" id="Style2" style="width:90%;" rows="15"><%=Style2%></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"><%=Style3%></textarea>
		</td>
	</tr>
	<tr class="tdbg">
		<td align="right" valign="top">模板结束标记部分</td>
		<td>
			<textarea name="Style4" id="Style4" style="width:90%;" rows="3"><%=Style4%></textarea>
		</td>
	</tr>
	<script type="text/javascript">
	ChangeModuleSelect(<%=ModuleID%>);
	ChangeChannelSelect(<%=ChannelID%>);
	CheckSel('ModuleID','<%=ModuleID%>');
	CheckSel('ChannelID','<%=ChannelID%>');
	CheckSel('ClassID','<%=ClassID%>');
	CheckSel('SpecialID','<%=SpecialID%>');
	CheckSel('ShowType','<%=ShowType%>');
	CheckSel('ColsNum','<%=ColsNum%>');
	CheckSel('OrderType','<%=OrderType%>');
	</script>
	<% Else	%>
	<tr class="tdbg"> 
		<td align="right"><strong>输入内容：</strong></td>
		<td><textarea name="JsCode" style="width:100%" rows="15" id="JsCode"><%=Server.HtmlEnCode(Config)%></textarea><br /><font color="#0000ff">说明：可使用HTML语法，支持系统标签！</font></td>
	</tr>
	<%End if%>
	<tr class="tdbg"> 
		<td height="40" colspan="2" align="center">
		<input name="JsID" type="hidden" id="JsID" value="<%=JsID%>" />
		<input name="JsType" type="hidden" id="JsType" value="<%=JsType%>" />
		<input name="submit" type="submit" id="submit" value="保存JS配制" />
		&nbsp;&nbsp; <input type="reset" name="Reset" value="恢复默认值" /></td>
	</tr>
	</form>
</table>
<script type="text/javascript">
CheckSel('SortID','<%=SortID%>');
function CheckDynamic()
{
	if (document.myform.IsDynamic.checked==true)
	{
		$("RefreshTimes").style.visibility="visible";
		$("JsFileName").style.visibility="hidden";
	}
	else
	{
		$("RefreshTimes").style.visibility="hidden";
		$("JsFileName").style.visibility="visible";
	}
}
var IsDynamic = <%=IsDynamic%>;
var JsType = <%=JsType%>;
if (IsDynamic==1)
{
	document.myform.IsDynamic.checked=true;
	$("RefreshTimes").style.visibility="visible";
	$("JsFileName").style.visibility="hidden";
}
else
{
	document.myform.IsDynamic.checked=false;
	$("RefreshTimes").style.visibility="hidden";
	$("JsFileName").style.visibility="visible";
}
</script>
<%
End Sub

Sub JsMain()
	Dim SortID
	SortID = Cl.GetClng(Request("SortID"))
	If SortID> 0 Then
	sql="select * from Cl_Js Where SortID="&SortID&" order by id desc"
	ElseIf SortID=-1 Then
	sql="select * from Cl_Js Where SortID=0 order by id desc"
	Else
	sql="select * from Cl_Js order by id desc"
	End if
	set rs=server.createobject("adodb.recordset")
	OpenConn : rs.open sql,Conn,1,1
%>
<form name="form1" method="POST" action="Admin_Js.asp">
  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" Class="border">
	<tr class="title"> 
	  <td width="50" align="center"><strong>JSID</strong></td>
	  <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="70" align="center"><strong>操作</strong></td>
	</tr>
	<%
	If rs.bof and rs.eof then
		Response.write "<tr class=""tdbg""><td align=""center"" colspan=""5"">当前无记录！</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
		Dim i
		For i=1 To PageSize
			If Rs.Eof Then Exit For
%>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'"> 
	  <td align="center"><%=Rs("ID")%></td>
	  <td align="center"> 
		<%
		If Rs("JsType")=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 align="center"><span title="<%=Rs("JsReadme")%>"><%=Rs("JsName")%></span></td>
	  <td align="center"><%
	  If Rs("IsDynamic") Then
	  Response.write("<font color='#0000ff'>动态</font>")
	  Response.write("<br />刷新:<font color='#ff0033'>"&Rs("RefreshTimes")&"</font> 秒")
	  Else
	  Response.write("<font color='#0000ff'>静态</font>")
	  Response.write("<br />文件:<font color='#ff0033'>"&Rs("JsFileName")&"</font>")
	  End if
	  %></td>
	  <td align="center"><textarea name="JsTempCode" rows="2" style="width:100%" id="JsTempCode"><%
	  If Rs("IsDynamic") Then
	  Response.write("<script language=""javascript"" src=""http://"&Cl.ServerName & InstallDir & "Js.asp?id="&Rs("ID")&"""></script>")
	  else
	  Response.write("<script language=""javascript"" src=""http://"&Cl.ServerName & InstallDir & "Js/" & Rs("JsFileName")&".Js""></script>")
	  end if
	  %></textarea></td>
	  <td align="center"> 
		<a href="Admin_Js.asp?Action=ModifyJs&JsID=<%=Rs("ID")%>" style="color:#0000ff;">修改</a> &nbsp; <a href="Admin_Js.asp?Action=Refresh&JsID=<%=Rs("ID")%>" style="color:#0000ff;">更新</a>
		<br />
		<a href="Admin_JsView.asp?JsID=<%=Rs("ID")%>" target="_blank">演示</a> &nbsp; <a href="Admin_Js.asp?Action=Del&JsID=<%=Rs("ID")%>" onclick="return confirm('确定要删除此Js吗？注意：此操作将不能恢复！');">删除</a>
	  </td>
	</tr>
	<%
		Rs.MoveNext
		
		Next
	End if
	%>
  </table>
</form>
<%
Response.write Cl.ShowPage("Admin_Js.asp",TotalPut,PageSize,"个","Js")

End Sub

Sub Refresh()
	Dim JsID,Rs,SQL
	JsID=Cl.GetClng(Request("JsID"))
	if JsID=0 then Cl.ShowErr("请指定要刷新的JSID")
	Set Rs=Cl.Execute("Select * From Cl_Js where ID="&JsID&"")
	If Rs.eof Then Set Rs=Nothing : Cl.ShowErr("请指定要刷新的JSID") : Exit Sub
	If Rs("IsDynamic")=0 Then
		Dim TempData
		If Rs("JsType")=0 then
			TempData	= Template.ReplaceAllFlag(Rs("Config"))
		Else
			On Error Resume Next 
			Dim Config
			Dim ClassID,IncludeChild,SpecialID,TopNum,ShowType,ColsNum
			Dim IsHot,IsElite,DateNum,OrderType
			Dim Style1,Style2,Style3,Style4
			Config		= Split(Rs("Config"),"@@")
			Config(0)	= Split(Config(0),"||")
			Config(1)	= Split(Config(1),"||")
			ClassID		= Config(0)(1)
			SpecialID	= Config(0)(2)
			TopNum		= Config(0)(3)
			IncludeChild= Config(0)(4)
			ShowType	= Config(0)(5)
			ColsNum		= Config(0)(6)
			IsHot		= Config(0)(7)
			IsElite		= Config(0)(8)
			DateNum		= Config(0)(9)
			OrderType	= Config(0)(10)
			Style1		= Config(1)(0)
			Style2		= Config(1)(1)
			Style3		= Config(1)(2)
			Style4		= Config(1)(3)
			Config		= Null
			On Error GoTo 0
			TempData	= GetJsContent(Rs("ModuleID"),Rs("ChannelID"),ClassID,SpecialID,TopNum,IncludeChild,ShowType,ColsNum,IsHot,IsElite,DateNum,OrderType,Style1,Style2,Style3,Style4)
		End if
		TempData	= Replace (TempData,Chr(34),"\"&Chr(34))
		TempData	= Replace (TempData,Vbcrlf,"\n")
		TempData	= Replace (TempData,Chr(13),"")
		TempData	= Replace (TempData,Chr(10),"\n")
		TempData	= "document.write (""" & TempData & """);"
		Cl.MakeHtml TempData,Cl.WebDir & "Js/"&Rs("JsFileName")&".Js"
	Else
		If IsObject(Application(Cl.CacheName & "_jslist")) Then
			Dim XMLCache,NodeCache
			Set XMLCache = Application(Cl.CacheName & "_jslist")
			Set NodeCache = XMLCache.DocumentElement.SelectSingleNode("Item[@JsID='"&JsID&"']")
			If Not (NodeCache Is Nothing) Then
				XMLCache.DocumentElement.RemoveChild(NodeCache)
				Rem 更新缓存
				Application.Lock
				Set Application(Cl.CacheName & "_jslist") = XMLCache
				Application.UnLock
			End If
			Set XMLCache=Nothing
		End if
	End If
	Call Cl.ShowSuc("恭喜您，刷新Js成功！")
End Sub

Sub SaveJs()
	Dim sConfig
	Dim JsName,JsReadMe,JsFileName,JsCode,JsType
	Dim ClassID,IncludeChild,SpecialID,TopNum,ShowType,ColsNum