📄 js_free_manage.asp

📁 后台目录:qwbAdmin/Login.asp 登陆用户名:admin 登陆密码:admin
💻 ASP
字号:
<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_InterFace/ns_Function.asp" -->
<!--#include file="../../FS_Inc/Function.asp" -->
<!--#include file="lib/cls_main.asp" -->
<!--#include file="lib/cls_js.asp"-->
<!--#include file="../../FS_Inc/Func_page.asp" -->

<%'Copyright (c) 2006 Foosun Inc. Code by Einstein.Liu
Dim Conn,FS_JsObj,Js_Rs,Manner,i
Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
'权限判断
'Call MF_Check_Pop_TF("NS_Class_000001") 
'得到会员组列表 
MF_Default_Conn
MF_Session_TF 
if not MF_Check_Pop_TF("NS_Sysjs") then Err_Show
Set FS_JsObj=New Cls_Js
'---------------------------------分页定义
int_RPP=15 '设置每页显示数目
int_showNumberLink_=8 '数字导航显示数目
showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
str_nonLinkColor_="#999999" '非热链接颜色
toF_="<font face=webdings title=""首页"">9</font>"  			'首页 
toP10_=" <font face=webdings title=""上十页"">7</font>"			'上十
toP1_=" <font face=webdings title=""上一页"">3</font>"			'上一
toN1_=" <font face=webdings title=""下一页"">4</font>"			'下一
toN10_=" <font face=webdings title=""下十页"">8</font>"			'下十
toL_="<font face=webdings title=""最后一页"">:</font>"			'尾页
'-----------------------------------------
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>CMS4.0</title>
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
</head>
<body>
<script src="js/Public.js" language="JavaScript"></script>
<form action="Js_Free_Action.asp?act=delete" method="post" name="JSForm">
  <table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
	<tr> 
	  <td class="xingmu" colspan="11"><a href="#" onMouseOver="this.T_BGCOLOR='#404040';this.T_FONTCOLOR='#FFFFFF';return escape('<div align=\'center\'>FoosunCMS4.0<br> Code by 刘南兵 <BR>Copyright (c) 2006 Foosun Inc</div>')" class="sd"><strong>自由JS管理</strong></a><a href="../../help?Lable=NS_Class_Templet" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0">
	</tr>
	<tr class="hback_1">
	<td align="center" width="30%">名称</td>
	<td align="center">类型</td>
	<td align="center">样式</td>
	<td align="center" width="20%">新闻条数[点击查看详情]</td>
	<td align="center">代码</td>
	<td align="center" width="20%">添加时间</td>
	<td align="center" width="5%"><input type="checkbox" name="chk_FreeJs" id="chk_FreeJs" value='' onClick="javascript:checkAll()"></td> 
	</tr> 
	<%
		Set Js_Rs=Server.CreateObject(G_FS_RS)
		Js_Rs.open "Select id from FS_NS_FreeJS",Conn,1,1
		If Not Js_Rs.eof then
		'分页使用-----------------------------------
			Js_Rs.PageSize=int_RPP
			cPageNo=NoSqlHack(Request.QueryString("page"))
			If cPageNo="" Then cPageNo = 1
			If not isnumeric(cPageNo) Then cPageNo = 1
			cPageNo = Clng(cPageNo)
			If cPageNo<=0 Then cPageNo=1
			If cPageNo>Js_Rs.PageCount Then cPageNo=Js_Rs.PageCount 
			Js_Rs.AbsolutePage=cPageNo
		End if
		'--------------------------------------
		For i=0 To int_RPP
			If Js_Rs.eof Then Exit For
			Response.Write("<tr class='hback'>"&vbcrlf)
			FS_JsObj.getFreeJsParam(Js_Rs("id"))
			Response.Write("<td align='center'><a href='Js_Free_Add.asp?act=edit&jsid="&FS_JsObj.id&"' title='点击进行修改'>"&FS_JsObj.cname&"</a></td>")
			if FS_JsObj.js_type=1 then
				Response.Write("<td align='center'>图片</td>"&vbcrlf)
			else
				Response.Write("<td align='center'>文字</td>"&vbcrlf)
			End if
			Select Case FS_JsObj.manner
				Case 1  Manner="样式A"
				Case 2  Manner="样式B"
				Case 3  Manner="样式C"
				Case 4  Manner="样式D"
				Case 5  Manner="样式E"
				Case 6  Manner="样式A"
				Case 7  Manner="样式B"
				Case 8  Manner="样式C"
				Case 9  Manner="样式D"
				Case 10 Manner="样式E"
				Case 11 Manner="样式F"
				Case 12 Manner="样式G"
				Case 13 Manner="样式H"
				Case 14 Manner="样式I"
				Case 15 Manner="样式J"
				Case 16 Manner="样式K"
				Case 17 Manner="样式L"
			End Select
			Response.Write("<td align='center'>"&Manner&"</td>"&vbcrlf)
			Dim NewsNumberRs,NewsNumber
			Set NewsNumberRs=Conn.execute("Select count(ID) from FS_NS_FreeJsFile where jsname='"&FS_JsObj.ename&"'")
			if not NewsNumberRs.eof then
				NewsNumber=NewsNumberRs(0)
			Else
				NewsNumber=0
			End if
			Response.Write("<td align='center'><a href='#' onClick=""newsDetial('"&FS_JsObj.ename&"')"">"&NewsNumber&"(<font color=""red"">"&FS_JsObj.newsNum&"</font>)</a></td>"&vbcrlf)
			Response.Write("<td align='center'><a href=""javascript:getCode('"&FS_JsObj.id&"')"">代码</a></td>"&vbcrlf)
			Response.Write("<td align='center'>"&FS_JsObj.addtime&"</td>"&vbcrlf)
			Response.Write("<td align='center'><input type='checkbox' name='chk_FreeJs' value='"&FS_JsObj.id&"' id='chk_FreeJs_"&FS_JsObj.id&"'></td>")
			Response.Write("</tr>"&vbcrlf)
			Js_Rs.movenext
		next
	%>
	<tr class="hback"> 
	<td colspan="11" align="right">
	<button onClick="javascript:location='Js_Free_Add.asp'">新增</button> &nbsp;
	<button onClick="javascript:DeleteJs()">删除</button> &nbsp;
	<!--<button onClick="">查看新闻</button>-->&nbsp;
	</td>
	</tr>
	<%
	Response.Write("<tr>"&vbcrlf)
	Response.Write("<td align='right' colspan='11'  class=""hback"">"&fPageCount(js_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)&"</td>"&vbcrlf)
	Response.Write("</tr>"&vbcrlf)
	%>
  </table> 
</form>
<script language="javascript" type="text/javascript" src="../../FS_Inc/wz_tooltip.js"></script>
</body>
<script  language="JavaScript">  
<!--  
	function DeleteJs()
	{
		var chkJs_Array=document.all.chk_FreeJs;
		var chkTF=false;
		if (chkJs_Array[0]==null)
		{
			return 
		}
		else
		{
			//判断是否选择了记录
			for(var i=1;i<chkJs_Array.length;i++)
			{
				if (chkJs_Array[i].checked)
				{
					chkTF=true
				}
			}
		}
		if(chkTF)
		{
			if(confirm("确认要删除选中的记录？"))
				document.JSForm.submit();
		}else
		{
			alert("请选择你要删除的对象");
		}
	}
	function checkAll()
	{
		var chkJs_Array=document.all.chk_FreeJs;
		if (chkJs_Array[0]==null)
		{
			return 
		}
		if(chkJs_Array[0].checked)
		{
			for(var i=1;i<chkJs_Array.length;i++)
			{
				chkJs_Array[i].checked=true;
			}
		}else if(!chkJs_Array[0].checked)
		{
			for(var i=1;i<chkJs_Array.length;i++)
			{
				chkJs_Array[i].checked=false;
			}
		}
	}
	function getCode(jsid)
	{
		if (jsid!=""&&!isNaN(jsid))
		{
			OpenWindow('lib/Frame.asp?PageTitle=获取JS调用代码&FileName=showJsPath.asp&JsID='+jsid,360,140,window);
		}else
		{
			alert("出现错误，请联系客服人员！")
		}
	}
	function newsDetial(JsName)
	{
		if (JsName!=""&&JsName!=null)
		{
			OpenWindow('lib/Frame.asp?PageTitle=调用新闻列表&FileName=showJsNews.asp&JsName='+JsName,360,400,window);
		}else
		{
			alert("出现错误，请联系客服人员！")
		}
	}
//-->  
</script>  
<%
Conn.close
Set Conn=nothing
Set Js_Rs=nothing
%>
</html>
<!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->
⌨️ 快捷键说明

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