📄 js_sys_add.asp
字号:
<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_Inc/Function.asp"-->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_InterFace/NS_Function.asp" -->
<!--#include file="../../FS_InterFace/NS_Public.asp" -->
<!--#include file="lib/Cls_RefreshJs.asp"-->
<% 'Copyright (c) 2006 Foosun Inc. Code by awen
Dim Conn,FS_NS_JS_Obj,FS_NS_JS_Sql,sErrStr
MF_Default_Conn
'session判断
MF_Session_TF
if not MF_Check_Pop_TF("NS040") then Err_Show
Dim FileID,RsSysModObj,FunClassID,Types,ScrLink,ScrNewsType ,sRootDir,str_CurrPath,str_CurrPathPic,db_NewsDir
Dim Str_ErrorUrl,Str_ErrCodes,FileTypeStr
Str_ErrorUrl=server.URLEncode("../Js_Sys_Add.asp")
if G_VIRTUAL_ROOT_DIR<>"" then sRootDir="/"+G_VIRTUAL_ROOT_DIR else sRootDir=""
if Session("Admin_Is_Super") = 1 then
str_CurrPathPic = sRootDir &"/"&G_UP_FILES_DIR
Else
str_CurrPathPic = Replace(sRootDir &"/"&G_UP_FILES_DIR&"/adminfiles/"&Session("Admin_Name"),"//","/")
End if
str_CurrPath = replace(sRootDir,"//","/") &"/"& db_NewsDir
str_CurrPath = Replace(str_CurrPath,"'","\'")
Set RsSysModObj = Conn.Execute("select top 1 NewsDir from FS_NS_SysParam")
if not RsSysModObj.eof then
db_NewsDir = RsSysModObj(0)
end if
RsSysModObj.close
if isnull(db_NewsDir) or db_NewsDir="" then
Str_ErrCodes=Server.URLEncode("<li>抱歉新闻系统参数的 文章系统前台目录 配置为空。无法继续。</li>")
response.Redirect("lib/error.asp?ErrCodes="&Str_ErrCodes&"&ErrorUrl="&Str_ErrorUrl)
response.End()
end if
Types = "System" ''系统JS
Function ClassList()
Dim Rs,SelectStr
Set Rs = Conn.Execute("select ClassID,ClassCName from FS_NS_NewsClass where ParentID = '0' and DelFlag=0 order by AddTime desc")
do while Not Rs.Eof
If Cstr(FunClassID) = Cstr(Rs("ClassID")) then
SelectStr = " selected"
Else
SelectStr = ""
End If
ClassList = ClassList & "<option value="""&Rs("ClassID")&""""& SelectStr & ">" & Rs("ClassCName") & chr(10) & chr(13)
ClassList = ClassList & ChildClassList(Rs("ClassID"),"")
Rs.MoveNext
loop
Rs.Close
Set Rs = Nothing
End Function
Function ChildClassList(ClassID,Temp)
Dim TempRs,TempStr,SelectStrs
Set TempRs = Conn.Execute("Select ClassID,ClassCName,ChildNum from FS_NS_NewsClass where ParentID = '" & ClassID & "' and DelFlag=0 order by AddTime desc ")
TempStr = Temp & " - "
do while Not TempRs.Eof
If Cstr(FunClassID) = Cstr(TempRs("ClassID")) then
SelectStrs = " selected"
Else
SelectStrs = ""
End If
if TempRs("ChildNum") = 0 then
ChildClassList = ChildClassList & "<option value="""&TempRs("ClassID")&"""" & SelectStrs & ">" & TempStr & TempRs("ClassCName") & "</option>"& chr(10) & chr(13)
else
ChildClassList = ChildClassList & "<option value="""&TempRs("ClassID")&"""" & SelectStrs & ">" & TempStr & TempRs("ClassCName") & "</option>"& chr(10) & chr(13)
end if
ChildClassList = ChildClassList & ChildClassList(TempRs("ClassID"),TempStr)
TempRs.MoveNext
loop
TempRs.Close
Set TempRs = Nothing
End Function
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>系统JS管理___Powered by foosun Inc.</title>
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<script language="JavaScript" src="js/Public.js"></script>
</HEAD>
<BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes oncontextmenu="return true;">
<form action="?action=add&FileID=<%=FileID%>" method="post" name="ClassJSForm">
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
<tr class="hback">
<td class="xingmu" >系统JS管理</td>
</tr>
<tr class="hback">
<td class="hback" ><a href="Js_Sys_manage.asp?Act=View" >管理首页</a> |
<a href="Js_Sys_Add.asp">新增</a> |
<a href="Js_Sys_manage.asp?Act=Search">查询</a>
</td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
<tr class="hback">
<td width="15%" height="26"> 中文名称</td>
<td width="35%">
<input name="FileCName" type="text" id="FileCName" style="width:90%" value=""></td>
<td width="15%"> 文件名称</td>
<td width="35%">
<input name="FileName" type="text" id="FileName" style="width:90%" value=""></td>
</tr>
<tr class="hback">
<td width="15%" height="26"> 选择栏目</td>
<td width="35%">
<input name="strClassName" type="text" id="strClassName" style="width:50%" value="" readonly="">
<input name="strClassID" type="hidden" id="strClassID" value="">
<input type="button" name="Submit" value="选择栏目" onClick="SelectClass();"> </td>
<td colspan="2">不选择则调出所有 </td>
</tr>
<tr class="hback">
<td height="26"> 新闻类型</td>
<td height="26"><select name="NewsType" style="width:90%" onChange="ChooseNewsType(this.options[this.selectedIndex].value);">
<option value="RecNews">推荐新闻</option>
<option value="MarqueeNews">滚动新闻</option>
<option value="PicNews">图片新闻</option>
<option value="NewNews">最新新闻</option>
<option value="HotNews">热点新闻</option>
<option value="ProclaimNews">公告新闻</option>
</select></td>
<td height="26"> 点击数大于</td>
<td height="26"><input name="setHitsValue" type="text" onChange="if(/\D/.test(this.value)){alert('只能输入数字');this.value='';}" size="5" maxlength="4">
用于热点新闻,当点击数大于多少</td>
</tr>
<tr class="hback">
<td height="26"> 更多链接</td>
<td>
<select name="MoreContent" id="MoreContent" style="width:90% " onChange="ChooseLink(this.options[this.selectedIndex].value);" <%If Types = "System" then Response.Write("disabled")%>>
<option value="1">是</option>
<option value="0">否</option>
</select></td>
<td> 链接字样</td>
<td>
<input name="LinkWord" type="text" id="LinkWord" style="width:90%" value="" <%If Types = "System" then Response.Write("disabled")%>></td>
</tr>
<tr class="hback">
<td height="26"> 新闻数量</td>
<td>
<input name="NewsNum" type="text" id="NewsNum" style="width:90%" value="5" onChange="if(/\D/.test(this.value)){alert('只能输入数字');this.value='5';}"> </td>
<td> 每行数量</td>
<td>
<input name="RowNum" type="text" id="RowNum" style="width:90%" value="80" onChange="if(/\D/.test(this.value)){alert('只能输入数字');this.value='80';}"> </td>
</tr>
<tr class="hback">
<td height="26"> 链接样式</td>
<td>
<input name="LinkCSS" type="text" id="LinkCSS" style="width:90%" value="" <%If Types = "System" then Response.Write("disabled")%>></td>
<td> 标题字数</td>
<td>
<input name="TitleNum" type="text" id="TitleNum" style="width:90%" value="" onChange="if(/\D/.test(this.value)){alert('只能输入数字');this.value='';}"></td>
</tr>
<tr class="hback">
<td height="26"> 图片宽度</td>
<td>
<input name="PicWidth" type="text" id="PicWidth" style="width:90%" value="100" onChange="if(/\D/.test(this.value)){alert('只能输入数字');this.value='100';}"></td>
<td> 标题样式</td>
<td>
<input name="TitleCSS" type="text" id="TitleCSS" style="width:90%" value=""></td>
</tr>
<tr class="hback">
<td height="26"> 图片高度</td>
<td>
<input name="PicHeight" type="text" id="PicHeight" style="width:90%" value="100" onChange="if(/\D/.test(this.value)){alert('只能输入数字');this.value='100';}"> </td>
<td> 新闻行距</td>
<td>
<input name="RowSpace" type="text" id="RowSpace" style="width:90%" value="2" onChange="if(/\D/.test(this.value)){alert('只能输入数字');this.value='2';}"></td>
</tr>
<tr class="hback">
<td height="26"> 滚动速度</td>
<td>
<input name="MarSpeed" type="text" id="MarSpeed" style="width:90%" value="2" onChange="if(/\D/.test(this.value)){alert('只能输入数字');this.value='2';}"></td>
<td> 滚动方向</td>
<td>
<select name="MarDirection" id="MarDirection" style="width:90% ">
<option value="up">向上</option>
<option value="down">向下</option>
<option value="left">向左</option>
<option value="right">向右</option>
</select></td>
</tr>
<tr class="hback">
<td height="26"> 公告宽度</td>
<td>
<input name="MarWidth" type="text" id="MarWidth" style="width:90%" value="200" onChange="if(/\D/.test(this.value)){alert('只能输入数字');this.value='200';}"></td>
<td> 公告高度</td>
<td>
<input name="MarHeight" type="text" id="MarHeight" style="width:90%" value="25" onChange="if(/\D/.test(this.value)){alert('只能输入数字');this.value='25';}"></td>
</tr>
<tr class="hback">
<td height="26"> 显示标题</td>
<td>
<select name="ShowTitle" id="ShowTitle" style="width:90%">
<option value="1">是</option>
<option value="0">否</option>
</select></td>
<td> 新开窗口</td>
<td>
<select name="OpenMode" id="OpenMode" style="width:90%">
<option value="1">是</option>
<option value="0">否</option>
</select></td>
</tr>
<tr class="hback">
<td height="26"> 导航图片</td>
<td>
<input name="NaviPic" type="text" id="NaviPic" style="width:60%" value="" readonly>
<input type="button" name="bnt_ChoosePic_naviPic" value="选择图片" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPic.asp?CurrPath=<%=str_CurrPathPic %>',500,300,window,document.ClassJSForm.NaviPic);"></td>
<td> 行间图片</td>
<td>
<input name="RowBetween" type="text" id="RowBetween" style="width:52%" value="" readonly>
<input type="button" name="bnt_ChoosePic_rowBettween" value="选择图片" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPic.asp?CurrPath=<%=str_CurrPathPic %>',500,300,window,document.ClassJSForm.RowBetween);"></td>
</tr>
<tr class="hback">
<td height="26"> 调用日期</td>
<td>
<select name="DateType" id="DateType" style="width:90%">
<option value="0">调用日期类型</option>
<option value="1"><%=Year(Now)&"-"&Month(Now)&"-"&Day(Now)%></option>
<option value="2"><%=Year(Now)&"."&Month(Now)&"."&Day(Now)%></option>
<option value="3"><%=Year(Now)&"/"&Month(Now)&"/"&Day(Now)%></option>
<option value="4"><%=Month(Now)&"/"&Day(Now)&"/"&Year(Now)%></option>
<option value="5"><%=Day(Now)&"/"&Month(Now)&"/"&Year(Now)%></option>
<option value="6"><%=Month(Now)&"-"&Day(Now)&"-"&Year(Now)%></option>
<option value="7"><%=Month(Now)&"."&Day(Now)&"."&Year(Now)%></option>
<option value="8"><%=Month(Now)&"-"&Day(Now)%></option>
<option value="9"><%=Month(Now)&"/"&Day(Now)%></option>
<option value="10"><%=Month(Now)&"."&Day(Now)%></option>
<option value="11"><%=Month(Now)&"月"&Day(Now)&"日"%></option>
<option value="12"><%=day(Now)&"日"&Hour(Now)&"时"%></option>
<option value="13"><%=day(Now)&"日"&Hour(Now)&"点"%></option>
<option value="14"><%=Hour(Now)&"时"&Minute(Now)&"分"%></option>
<option value="15"><%=Hour(Now)&":"&Minute(Now)%></option>
<option value="16"><%=Year(Now)&"年"&Month(Now)&"月"&Day(Now)&"日"%></option>
</select></td>
<td> 保存路径</td>
<td>
<input name="SaveFilePath" type="text" id="SaveFilePath" style="width:52%" value="">
<INPUT type="button" name="Submit4" value="选择路径" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPathFrame.asp?CurrPath=<%= str_CurrPath %>',300,250,window,document.ClassJSForm.SaveFilePath);document.ClassJSForm.SaveFilePath.focus();"></td>
</tr>
<tr class="hback">
<td height="26"> 日期样式</td>
<td>
<input name="DateCSS" type="text" id="DateCSS" style="width:90%" value=""></td>
<td> 显示栏目</td>
<td>
<select name="ClassName" id="ClassName" style="width:90%">
<option value="1">显示</option>
<option value="0">不显示</option>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -