admin_jsview.asp

来自「正版创力4.1SQL商业版!!!ASP版。」· ASP 代码 · 共 30 行

<!--#include file="Inc/Const.asp"-->
<%
if Not Cl.TrueOtherPurview("Js") then
	Cl.ShowErr("<br /><li>您无此操作权限！</li>")
end if
Dim JsID,rsJ
JsID=Cl.GetClng(Request("ID"))

if JsID=0 then Cl.ShowErr("请提交正确参数！")
Set rsJ=Cl.Execute("Select ChannelID,JsFileName From Cl_Js where ID="&JsID&"")
Cl.Load_ChannelSetting(rsJ(0))
Response.write "<script language=""Javascript"" src=""" & Cl.WebDir & Cl.Channel.selectSingleNode("@channeldir").text & "/Js/"&rsJ(1)&".Js""></script>"
Set rsJ=Nothing
%>
<%
'<!--
'┌───────────────────────────────────────────────────────┐
'│														 │
'│		CreateLive CMS Version 4.0						 │
'│　　　　　　　　				Powered by Aspoo.CN	 	 │
'│　		　　　　　　　　　　						 │
'│　	邮箱: [e-mail]		[e-mail]　　	 │
'│		ＱＱ: 3315263				596197794			 │
'│		网站: www.aspoo.cn			www.aspoo.com		 │
'│		论坛: bbs.aspoo.cn			bbs.aspoo.com		 │
'│														 │
'│	Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved.	 │
'└───────────────────────────────────────────────────────┘
'-->
%>