<% Option Explicit %>
<!--#include file="../../Inc/Const.asp" -->
<!--#include file="../../Inc/Cls_DB.asp" -->
<%
'==============================================================================
'软件名称：风讯网站信息管理系统
'当前版本：Foosun Content Manager System 2.0 
'最新更新：2004.12
'==============================================================================
'商业注册联系：028-85098980-601,602 技术支持：028-85098980-606、607,客户支持：608
'产品咨询QQ：159410,655071,66252421
'技术支持:所有程序使用问题，请提问到bbs.foosun.net我们将及时回答您
'程序开发：风讯开发组 & 风讯插件开发组
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.net  演示站点：test.cooin.com    
'网站建设专区：www.cooin.com
'==============================================================================
'免费版本请在新闻首页保留版权信息，并做上本站LOGO友情连接
'==============================================================================
Dim DBC,Conn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../../Inc/Session.asp" -->
<!--#include file="../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P0502") then Call ReturnError2()
		Dim TempType,RsJSObj,JsSql,JSType,FileNum,TempNumStr,TempObj,MannerStr,JsEName,JSFlag
			 JsSql = "select * from FreeJS order by Type asc,ID asc"
			 JSFlag = "自由JS列表"
		Set RsJSObj = Conn.Execute(JsSql)
		%>
<html>
<link href="../../CSS/css.css" rel="stylesheet" type="text/css">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>自由JS列表</title>
</head>
<script src="../JS/PublicJS.js" language="JavaScript"></script>
<body topmargin="0" leftmargin="0" oncontextmenu="return false;"  ondragstart="return false;" onselectstart="return false;">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
  <td>
  <table border="0" cellspacing="0" cellpadding="0">
	<tr align="left">
	  <td><img src="../Images/Freejstop.gif" width="18" height="18"></td>
	  <td><span class="TempletSelectItem" JsID="" onClick="ClickClass(this)">自由列表</span></td>
	</tr>
  </table>
  </td>
  </tr>
  <%if RsJSObj.eof then %>
  <tr> 
    <td > <div align="center"><font color="#FF0000">暂时没有记录</font></div></td>
  </tr>
  <% end if
	do while Not RsJSObj.Eof
%>
  <tr height="20"> 
    <td><table width="159" height="21" border="0" cellpadding="0" cellspacing="0">
        <tr align="left">
          <td width="39"><img src="../Images/folder-.gif" width="18" height="18"><img src="../Images/Js/Freejs1.gif" width="18" height="18"></td>
          <td width="120"><span class="TempletItem" JsID="<%=RsJSObj("ID")%>" onClick="ClickClass(this)"><% = RsJSObj("CName") %></span></td>
        </tr>
      </table></td>
  </tr>
  <%
		RsJSObj.MoveNext
	loop
	RsJSObj.close
	set RsJSObj=nothing
%>
</table>
</body>
</html>
<%
Set Conn = Nothing
%>
<script>
function ClickClass(Obj)
{
   var JsID = Obj.JsID
   for (var i=0;i<document.all.length;i++)
   if (document.all(i).className=='TempletSelectItem') document.all(i).className='TempletItem';
	Obj.className='TempletSelectItem';
	if (JsID=='')
	   {
		parent.frames['OpreateWindow'].location='JsList.asp';
	    }
	else
	   {
		parent.frames['OpreateWindow'].location='FileList.asp?JsID='+JsID;
		}
}
</script>