📄 admin_js.asp

📁 淘客网上商店网站程序淘客网上商店网站程序淘客网上商店网站程序
💻 ASP
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
	Dim IsHot,IsElite,DateNum,OrderType
	Dim Style1,Style2,Style3,Style4
	Dim SortID,IsDynamic,RefreshTimes
	JsType			= Cl.GetClng(Request("JsType"))
	JsName			= Trim(Request("JsName"))
	JsReadMe		= Trim(Request("JsReadMe"))
	JsFileName		= Trim(Request("JsFileName"))
	IsDynamic		= Cl.GetClng(Request("IsDynamic"))
	RefreshTimes	= Cl.GetClng(Request("RefreshTimes"))
	SortID			= Cl.GetClng(Request("SortID"))
	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"))
	Style4			= Trim(Request("Style4"))
	if JsName = "" then Cl.ShowErr("Js名称不能为空，请重新填写！")
	If IsDynamic=0 And JsFileName="" Then Cl.ShowErr("Js文件名不能为空，请重新填写！")
	JsFileName		= Replace(JsFileName,".","")
	JsFileName		= Replace(JsFileName,"/","")
	JsFileName		= Replace(JsFileName,"\","")
	If JsType=0 then
		sConfig		= JsCode
		If IsNull(sConfig) And sConfig="" then
		Cl.ShowErr("请输入要显示的JS内容！")
		End if
	Else
		If ModuleID=0 Then Cl.ShowErr("请选择要调用的模块！")
		sConfig		= ChannelID & "||" & ClassID & "||" & SpecialID & "||" & TopNum
		sConfig		= sConfig & "||" & IncludeChild & "||" & ShowType & "||" & ColsNum
		sConfig		= sConfig & "||" & IsHot & "||" & IsElite & "||" & DateNum & "||" & OrderType
		sConfig		= sConfig & "@@" & Style1 & "||" & Style2 & "||" & Style3 & "||" & Style4
	End if
	if Action="SaveModifyJs" then
		Dim JsID',rs,SQL
		JsID=Cl.GetClng(Request("JsID"))
		if JsID=0 then Cl.ShowErr("请指定要修改的JSID")
		Cl.Execute("Update Cl_JS Set ChannelID="&ChannelID&",JsName='"&Cl.CheckStr(JsName)&"',JsReadme='"&Cl.CheckStr(JsReadme)&"',JsType="&JsType&",JsFileName='"&Cl.CheckStr(JsFileName)&"',Config='"&Cl.CheckStr(sConfig)&"',SortID="&SortID&",ModuleID="&ModuleID&",IsDynamic="&IsDynamic&",RefreshTimes="&RefreshTimes&" where ID="&JsID&"")
		If IsDynamic=1 Then Call DelJsCache(JsID)
	ElseIf Action="SaveAddJs" then
		Cl.Execute("Insert Into [Cl_Js] (ChannelID,JsName,JsReadme,JsType,JsFileName,Config,SortID,ModuleID,IsDynamic,RefreshTimes) Values ("&ChannelID&",'"&Cl.CheckStr(JsName)&"','"&Cl.CheckStr(JsReadme)&"',"&JsType&",'"&Cl.CheckStr(JsFileName)&"','"&Cl.CheckStr(sConfig)&"',"&SortID&","&ModuleID&","&IsDynamic&","&RefreshTimes&") ")
	Else
		Cl.ShowErr("请指定要修改的JSID")
	end If
	If IsDynamic=0 Then
		If JsType=0 then
			TempData	= Template.ReplaceAllFlag(sConfig)
		Else
			TempData	= GetJsContent(ModuleID,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/"&JsFileName&".Js"
	End if
	Cl.SaveAdminLog
	Call Cl.ShowSuc("恭喜您，添加/修改Js成功！")
End Sub


Sub DelJs()
	Dim JsID,rsJ
	JsID=Cl.GetClng(Request("JsID"))
	if JsID=0 then Cl.ShowErr("请指定要修改的JSID")
	Set rsJ=Cl.Execute("Select IsDynamic,JsFileName From Cl_Js where ID="&JsID&"")
	If Not rsJ.Eof Then 
		If rsJ("IsDynamic")=0 then
		Cl.DelFiles(Cl.WebDir & "Js/"&rsJ(1)&".Js")
		End If
	End if
	Set rsJ=Nothing
	Cl.Execute("Delete From Cl_Js where ID="&JsID&"")
	Cl.SaveAdminLog
	Call Cl.ShowSuc("恭喜您，删除Js成功！")
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 "首页图片:{$ShowPic(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
Rem =================== JS分类开始 =========================
'删除分类
Sub DelJsSort()
	Dim SortID
	SortID = Cl.GetClng(Request("SortID"))
	If SortID<=0 Then
		Cl.ShowErr("请指定要删除的分类ID！")
	End If
	Cl.Execute("Delete From Cl_Js Where SortID= " & SortID)
	Cl.Execute("Delete From Cl_JsSort Where SortID = "&SortID)
	Call Cl.ShowSuc("恭喜您，删除分类成功！")
End Sub
'保存分类
Sub SaveJsSort()
	Dim SortID,SortName,SortDir,SortIntro
	SortID		= Cl.GetClng(Request("SortID"))
	SortName	= Trim(Request("SortName"))
	SortDir		= Trim(Request("SortDir"))
	SortIntro	= Trim(Request("SortIntro"))
	If SortName = "" Then Cl.ShowErr("请指定要修改的分类名称！")
	If SortDir<>"" Then
		SortDir = Replace(SortDir,"/","")
		SortDir = Replace(SortDir,".","")
		SortDir = Replace(SortDir,"asp","")
		SortDir = SortDir & "/"
	End If
	Dim Rs
	Set Rs = Server.CreateObject("Adodb.Recordset")
	OpenConn
	If Action = "SaveModifyJsSort" Then
		Rs.Open "Select * From Cl_JsSort Where SortID="& SortID,Conn,1,3
		If Rs.Eof Then
			Rs.Close : Set Rs = Nothing
			Cl.ShowErr("请指定要修改的分类ID！")
			Exit Sub
		End if
	Else
		Rs.Open "Select Top 1 * From Cl_JsSort",Conn,1,3
		Rs.AddNew
	End If
	Rs("SortName")	= SortName
	Rs("SortDir")	= SortDir
	Rs("SortIntro")	= SortIntro
	Rs.Update
	Rs.Close : Set Rs = Nothing
	Call Cl.ShowSuc("恭喜您，保存分类成功！")
End Sub
'编辑分类
Sub EditJsSort()
	Dim SortID,SortName,SortDir,SortIntro
	If Action="ModifyJsSort" Then
		SortID = Cl.GetClng(Request("SortID"))
		If SortID<=0 Then Cl.ShowErr("请指定要修改的分类ID")
		Dim Rs
		Set Rs = Cl.Execute("Select * From Cl_JsSort Where SortID="&SortID)
		If Rs.Eof Then Cl.ShowErr("请指定要修改的分类ID")
		SortID		= Rs("SortID")
		SortName	= Rs("SortName")
		SortDir		= Rs("SortDir")
		SortIntro	= Rs("SortIntro")
		Rs.Close : Set Rs = Nothing
	Else
		SortID = 0
	End if
%>
<script type="text/javascript">
function checkJsSort()
{
	if (document.myform.SortName.value=="")
	{
		alert("请输入分类名称");
		document.myform.SortName.focus();
		return false;
	}
}
</script>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
	<form action="Admin_Js.asp?Action=Save<%=Action%>" method="post" name="myform" id="myform" onsubmit="return checkJsSort();">
	<tr class="title"> 
		<td height="22" colspan="2" align="center"><strong>JS分类编辑窗口</strong></td>
	</tr>
	<tr class="tdbg">
		<td height="25" align="right"><strong>分类名称：</strong></td>
		<td height="25"><input name="SortName" type="text" id="SortName" size="49" maxlength="50" value="<%=SortName%>"> <font color="#FF0000">*</font></td>
	</tr>
	<tr class="tdbg">
		<td height="25" align="right"><strong>分类目录：</strong></td>
		<td height="25"><input name="SortDir" type="text" id="SortDir" size="49" maxlength="50" value="<%=SortDir%>"> <font color="#FF0000">*</font></td>
	</tr>
	<tr class="tdbg">
		<td height="25" align="right"><strong>分类说明：</strong></td>
		<td height="25"><textarea name="SortIntro" cols="40" rows="3" id="SortIntro"><%=SortIntro%></textarea></td> 
	</tr>
	<tr class="tdbg"> 
		<td height="40" colspan="2" align="center">
		<input name="SortID" type="hidden" id="SortID" value="<%=SortID%>">
		<input name="submit" type="submit" id="submit" value="保存">
		</td>
	</tr>
</form>
</table>
<%
End Sub
'分类列表
Sub JsSortMain()
	SQL = "select SortID,SortName,SortDir,SortIntro,OrderID From Cl_JsSort Order by OrderID desc"
	set rs=server.createobject("adodb.recordset")
	OpenConn : rs.open sql,Conn,1,1
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" Class="border">
	<tr class="title"> 
	  <td width="60" align="center"><strong>ID</strong></td>
	  <td width="100" align="center"><strong>分类名称</strong></td>
	  <td width="100" align="center"><strong>分类目录</strong></td>
	  <td align="center"><strong>分类简介</strong></td>
	  <td width="80" align="center"><strong>操作</strong></td>
	</tr>
	<%
	Do While Not Rs.Eof
%>
	<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'"> 
	  <td align="center"><%=Rs("SortID")%></td>
	  <td align="center"><%=Rs("SortName")%></td>
	  <td align="center"><%=Rs("SortDir")%></td>
	  <td align="center"><%=Left(Rs("SortIntro"),50)%></td>
	  <td align="center"> 
		<a href="Admin_Js.asp?Action=ModifyJsSort&SortID=<%=Rs("SortID")%>">修改</a>
		&nbsp;
		<a href="Admin_Js.asp?Action=DelJsSort&SortID=<%=Rs("SortID")%>" onclick="return confirm('确定要删除此分类吗？注意：删除此分类的同时将删除属于此分类的所有JS配置！');">删除</a>
	  </td>
	</tr>
	<%
	Rs.MoveNext
	Loop
	%>
</table>
<%
End Sub
Rem =================== JS分类结束 =========================

Sub DelJsCache(JsID)
	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)
			Set NodeCache = Nothing
		End If
		Set XMLCache = Nothing
	End If
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.	 │
'└───────────────────────────────────────────────────────┘
'-->
%>
上一页 1 23
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -