开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
Js_Sys_Modify.asp
资源名称：eat.rar　[点击查看]
上传用户：jisenq
上传日期：2014-06-29
资源大小：7216k
文件大小：23k
源码类别：

数据库编程

开发平台：

ASP/ASPX

Js_Sys_Modify.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../../FS_Inc/Const.asp" -->
  3. <!--#include file="../../FS_Inc/Function.asp"-->
  4. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  5. <!--#include file="../../FS_InterFace/NS_Function.asp" -->
  6. <!--#include file="lib/Cls_RefreshJs.asp"-->
  7. <% 'Copyright (c) 2006 Foosun Inc. Code by awen
  8. Dim Conn,FS_NS_JS_Obj,FS_NS_JS_Sql,sErrStr
  9. MF_Default_Conn
  10. 'session判断
  11. MF_Session_TF 
  12. if not MF_Check_Pop_TF("NS041") then Err_Show
  13. Dim FileID,RsSysModObj,FunClassID,Types,ScrLink,ScrNewsType ,sRootDir,str_CurrPath,db_NewsDir,str_SavePath
  14. if G_VIRTUAL_ROOT_DIR<>"" then sRootDir="/"+G_VIRTUAL_ROOT_DIR else sRootDir=""
  15. '判断用户是否为超级管理员，限定访问路径
  16. if Session("Admin_Is_Super") = 1 then
  17. str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
  18. Else
  19. str_CurrPath = Replace(sRootDir &"/"&G_UP_FILES_DIR&"/adminfiles/"&Session("Admin_Name"),"//","/")
  20. End if
  22. Set RsSysModObj = Conn.Execute("select top 1 NewsDir from FS_NS_SysParam")
  23. if not RsSysModObj.eof then 
  24. db_NewsDir = RsSysModObj(0)
  25. end if
  26. RsSysModObj.close
  27. if isnull(db_NewsDir) or db_NewsDir="" then 
  28. response.Redirect("lib/error.asp?ErrCodes=<li>抱歉新闻系统参数的 文章系统前台目录 配置为空。无法继续。</li>&ErrorUrl=../Js_Sys_Add.asp")
  29. response.End()
  30. end if
  31. str_SavePath = sRootDir &"/"& db_NewsDir 
  33. If Request.QueryString("FileID")="" or isnull(Request.QueryString("FileID")) then
  34. response.Redirect("lib/error.asp?ErrCodes=<li>参数传递错误</li>")
  35. Response.End
  36. Else
  37. FileID = Request.QueryString("FileID")
  38. Types = "System" ''系统JS
  39. Set RsSysModObj = Conn.Execute("Select * from FS_NS_Sysjs where ID="&FileID&"")
  40. If RsSysModObj.eof then
  41. response.Redirect("lib/error.asp?ErrCodes=<li>未查询到相关记录</li>")
  42. Response.End
  43. End IF
  44. FunClassID = RsSysModObj("ClassID")
  45. ScrLink = RsSysModObj("MoreContent")
  46. ScrNewsType = RsSysModObj("NewsType")
  47. End IF
  48. Function ClassList()
  49. Dim Rs,SelectStr
  50. Set Rs = Conn.Execute("select ClassID,ClassCName from FS_NS_NewsClass where ParentID = '0' and DelFlag=0 order by AddTime desc")
  51. do while Not Rs.Eof
  52. If Cstr(FunClassID) = Cstr(Rs("ClassID")) then
  53. SelectStr = " selected"
  54. Else
  55. SelectStr = ""
  56. End If
  57. ClassList = ClassList & "<option value="""&Rs("ClassID")&""""& SelectStr & ">" & Rs("ClassCName") & chr(10) & chr(13)
  58. ClassList = ClassList & ChildClassList(Rs("ClassID"),"")
  59. Rs.MoveNext
  60. loop
  61. Rs.Close
  62. Set Rs = Nothing
  63. End Function
  64. Function ChildClassList(ClassID,Temp)
  65. Dim TempRs,TempStr,SelectStrs
  66. Set TempRs = Conn.Execute("Select ClassID,ClassCName,ChildNum from FS_NS_NewsClass where ParentID = '" & ClassID & "' and DelFlag=0 order by AddTime desc ")
  67. TempStr = Temp & " - "
  68. do while Not TempRs.Eof
  69. If Cstr(FunClassID) = Cstr(TempRs("ClassID")) then
  70. SelectStrs = " selected"
  71. Else
  72. SelectStrs = ""
  73. End If
  74. if TempRs("ChildNum") = 0 then
  75. ChildClassList = ChildClassList & "<option value="""&TempRs("ClassID")&"""" & SelectStrs & ">" & TempStr & TempRs("ClassCName") & "</option>"& chr(10) & chr(13)
  76. else
  77. ChildClassList = ChildClassList & "<option value="""&TempRs("ClassID")&"""" & SelectStrs & ">" & TempStr & TempRs("ClassCName") & "</option>"& chr(10) & chr(13)
  78. end if
  79. ChildClassList = ChildClassList & ChildClassList(TempRs("ClassID"),TempStr)
  80. TempRs.MoveNext
  81. loop
  82. TempRs.Close
  83. Set TempRs = Nothing
  84. End Function
  85. %>
  86. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
  87. <html>
  88. <head>
  89. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  90. <title>系统JS管理___Powered by foosun Inc.</title>
  91. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  92. <script language="JavaScript" src="js/Public.js"></script>
  93. </HEAD>
  94. <BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes  oncontextmenu="return true;">
  95. <form action="?action=add&FileID=<%=FileID%>" method="post" name="ClassJSForm">
  96. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  97.   <tr  class="hback"> 
  98.     <td class="xingmu" >系统JS管理</td>
  99.   </tr>
  100.   <tr  class="hback">
  101.     <td class="hback" ><a href="Js_Sys_manage.asp?Act=View" >管理首页</a>&nbsp;|&nbsp;
  102.       <a href="Js_Sys_Add.asp">新增</a> &nbsp;|&nbsp;
  103.       <a href="Js_Sys_manage.asp?Act=Search">查询</a>
  104. </td>
  105.   </tr>
  106. </table>
  108.   <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  109.     <tr class="hback">  
  110.       <td width="15%" height="26">&nbsp;&nbsp;&nbsp;&nbsp;中文名称</td>
  111.       <td width="35%"> 
  112.         <input name="FileCName" type="text" id="FileCName" style="width:90%" value="<%=RsSysModObj("FileCName")%>"></td>
  113.       <td width="15%">&nbsp;&nbsp;&nbsp;&nbsp;文件名称</td>
  114.       <td width="35%"> 
  115.         <input name="FileName" type="text" id="FileName" readonly="" style="width:90%" value="<%=RsSysModObj("FileName")%>"></td>
  116.     </tr>
  117.     <tr class="hback">  
  118.       <td height="26">&nbsp;&nbsp;&nbsp;&nbsp;栏目ID号</td>
  119.       <td> 
  120. <input type="text" style="width:90%" name="ClassID" value="0" disabled>
  121.  </td>
  122.       <td>&nbsp;&nbsp;&nbsp;&nbsp;新闻类型</td>
  123.       <td> 
  124.         <select name="NewsType" style="width:90%" onChange="ChooseNewsType(this.options[this.selectedIndex].value);">
  125.           <option value="RecNews" <%if RsSysModObj("NewsType") = "RecNews" then Response.Write("selected")%>>推荐新闻</option>
  126.           <option value="MarqueeNews" <%if RsSysModObj("NewsType") = "MarqueeNews" then Response.Write("selected")%>>滚动新闻</option>
  127.           <option value="SBSNews" <%if RsSysModObj("NewsType") = "SBSNews" then Response.Write("selected")%>>并排新闻</option>
  128.           <option value="PicNews" <%if RsSysModObj("NewsType") = "PicNews" then Response.Write("selected")%>>图片新闻</option>
  129.           <option value="NewNews" <%if RsSysModObj("NewsType") = "NewNews" then Response.Write("selected")%>>最新新闻</option>
  130.           <option value="HotNews" <%if RsSysModObj("NewsType") = "HotNews" then Response.Write("selected")%>>热点新闻</option>
  131.           <option value="WordNews" <%if RsSysModObj("NewsType") = "WordNews" then Response.Write("selected")%>>文字新闻</option>
  132.           <option value="TitleNews" <%if RsSysModObj("NewsType") = "TitleNews" then Response.Write("selected")%>>标题新闻</option>
  133.           <option value="ProclaimNews" <%if RsSysModObj("NewsType") = "ProclaimNews" then Response.Write("selected")%>>公告新闻</option>
  134.         </select></td>
  135.     </tr>
  138. <tr class="hback">  
  139.       <td height="26">&nbsp;&nbsp;点击数大于</td>
  140.       <td> 
  141.         <input type="text" style="width:90% " name="setHitsValue" maxlength="4" value="<%=RsSysModObj("MarSpeed")%>"  onChange="if(/D/.test(this.value)){alert('只能输入数字');this.value='';}">
  142.       </td>
  143.       <td colspan="2">用于热点新闻，当点击数大于多少才算热门。</td>
  144.     </tr>
  147.     <tr class="hback">  
  148.       <td height="26">&nbsp;&nbsp;&nbsp;更多链接</td>
  149.       <td> 
  150.         <select name="MoreContent" id="MoreContent" style="width:90% " <%If Types = "System" then Response.Write("disabled")%> onChange="ChooseLink(this.options[this.selectedIndex].value);">
  151.           <option value="1" <%If RsSysModObj("MoreContent")=1 then Response.Write("selected")%>>是</option>
  152.           <option value="0" <%If RsSysModObj("MoreContent")=0 then Response.Write("selected")%>>否</option>
  153.         </select></td>
  154.       <td>&nbsp;&nbsp;&nbsp;&nbsp;链接字样</td>
  155.       <td> 
  156.         <input name="LinkWord" type="text" id="LinkWord" style="width:90%" value="<%=RsSysModObj("LinkWord")%>" <%If Types = "System" then Response.Write("disabled")%>></td>
  157.     </tr>
  158.     <tr class="hback">  
  159.       <td height="26">&nbsp;&nbsp;&nbsp;&nbsp;新闻数量</td>
  160.       <td> 
  161.         <input name="NewsNum" type="text" id="NewsNum" style="width:90%" value="<%=RsSysModObj("NewsNum")%>"></td>
  162.       <td>&nbsp;&nbsp;&nbsp;&nbsp;每行数量</td>
  163.       <td> 
  164.         <input name="RowNum" type="text" id="RowNum" style="width:90%" value="<%=RsSysModObj("RowNum")%>"></td>
  165.     </tr>
  166.     <tr class="hback">  
  167.       <td height="26">&nbsp;&nbsp;&nbsp;&nbsp;链接样式</td>
  168.       <td> 
  169.         <input name="LinkCSS" type="text" id="LinkCSS" style="width:90%" value="<%=RsSysModObj("LinkCSS")%>" <%If Types = "System" then Response.Write("disabled")%>></td>
  170.       <td>&nbsp;&nbsp;&nbsp;&nbsp;标题字数</td>
  171.       <td> 
  172.         <input name="TitleNum" type="text" id="TitleNum" style="width:90%" value="<%=RsSysModObj("TitleNum")%>"></td>
  173.     </tr>
  174.     <tr class="hback">  
  175.       <td height="26">&nbsp;&nbsp;&nbsp;&nbsp;图片宽度</td>
  176.       <td> 
  177.         <input name="PicWidth" type="text" id="PicWidth" style="width:90%" value="<%=RsSysModObj("PicWidth")%>"></td>
  178.       <td>&nbsp;&nbsp;&nbsp;&nbsp;标题样式</td>
  179.       <td> 
  180.         <input name="TitleCSS" type="text" id="TitleCSS" style="width:90%" value="<%=RsSysModObj("TitleCSS")%>"></td>
  181.     </tr>
  182.     <tr class="hback">  
  183.       <td height="26">&nbsp;&nbsp;&nbsp;&nbsp;图片高度</td>
  184.       <td> 
  185.         <input name="PicHeight" type="text" id="PicHeight" style="width:90%" value="<%=RsSysModObj("PicHeight")%>"></td>
  186.       <td>&nbsp;&nbsp;&nbsp;&nbsp;新闻行距</td>
  187.       <td> 
  188.         <input name="RowSpace" type="text" id="RowSpace" style="width:90%" value="<%=RsSysModObj("RowSpace")%>"></td>
  189.     </tr>
  190.     <tr class="hback">  
  191.       <td height="26">&nbsp;&nbsp;&nbsp;&nbsp;滚动速度</td>
  192.       <td> 
  193.         <input name="MarSpeed" type="text" id="MarSpeed" style="width:90%" value="<%=RsSysModObj("MarSpeed")%>"></td>
  194.       <td>&nbsp;&nbsp;&nbsp;&nbsp;滚动方向</td>
  195.       <td> 
  196.         <select name="MarDirection" id="MarDirection" style="width:90% ">
  197.           <option value="up" <%If RsSysModObj("MarDirection")="up" then Response.Write("selected")%>>向上</option>
  198.           <option value="down" <%If RsSysModObj("MarDirection")="down" then Response.Write("selected")%>>向下</option>
  199.           <option value="left" <%If RsSysModObj("MarDirection")="left" then Response.Write("selected")%>>向左</option>
  200.           <option value="right" <%If RsSysModObj("MarDirection")="right" then Response.Write("selected")%>>向右</option>
  201.         </select></td>
  202.     </tr>
  203.     <tr class="hback">  
  204.       <td height="26">&nbsp;&nbsp;&nbsp;&nbsp;公告宽度</td>
  205.       <td> 
  206.         <input name="MarWidth" type="text" id="MarWidth" style="width:90%" value="<%=RsSysModObj("MarWidth")%>"></td>
  207.       <td>&nbsp;&nbsp;&nbsp;&nbsp;公告高度</td>
  208.       <td> 
  209.         <input name="MarHeight" type="text" id="MarHeight" style="width:90%" value="<%=RsSysModObj("MarHeight")%>"></td>
  210.     </tr>
  211.     <tr class="hback">  
  212.       <td height="26">&nbsp;&nbsp;&nbsp;&nbsp;显示标题</td>
  213.       <td> 
  214.         <select name="ShowTitle" id="ShowTitle" style="width:90%">
  215.           <option value="1" <%If RsSysModObj("ShowTitle")=1 then Response.Write("selected")%>>是</option>
  216.           <option value="0" <%If RsSysModObj("ShowTitle")=0 then Response.Write("selected")%>>否</option>
  217.         </select></td>
  218.       <td>&nbsp;&nbsp;&nbsp;&nbsp;新开窗口</td>
  219.       <td> 
  220.         <select name="OpenMode" id="OpenMode" style="width:90%">
  221.           <option value="1" <%If RsSysModObj("OpenMode")=1 then Response.Write("selected")%>>是</option>
  222.           <option value="0" <%If RsSysModObj("OpenMode")=0 then Response.Write("selected")%>>否</option>
  223.         </select></td>
  224.     </tr>
  225.     <tr class="hback">  
  226.       <td height="26">&nbsp;&nbsp;&nbsp;&nbsp;导航图片</td>
  227.       <td> 
  228.         <input name="NaviPic" type="text" id="NaviPic" style="width:60%" value="<%=RsSysModObj("NaviPic")%>">
  229.         <input type="button" name="bnt_ChoosePic_naviPic"  value="选择图片" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPic.asp?CurrPath=<%=str_CurrPath %>',500,300,window,document.ClassJSForm.NaviPic);"></td>
  230.       <td>&nbsp;&nbsp;&nbsp;&nbsp;行间图片</td>
  231.       <td> 
  232.         <input name="RowBetween" type="text" id="RowBetween" style="width:52%" value="<%=RsSysModObj("RowBetween")%>">
  233.         <input type="button" name="bnt_ChoosePic_rowBettween"  value="选择图片" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPic.asp?CurrPath=<%=str_CurrPath %>',500,300,window,document.ClassJSForm.RowBetween);"></td>
  234.     </tr>
  235.     <tr class="hback">  
  236.       <td height="26">&nbsp;&nbsp;&nbsp;&nbsp;调用日期</td>
  237.       <td> 
  238.         <select name="DateType" id="DateType" style="width:90%">
  239.           <option value="0">调用日期类型</option>
  240.           <option value="1" <%if RsSysModObj("DateType") = "1" then Response.Write("selected") end if%>><%=Year(Now)&"-"&Month(Now)&"-"&Day(Now)%></option>
  241.           <option value="2" <%if RsSysModObj("DateType") = "2" then Response.Write("selected") end if%>><%=Year(Now)&"."&Month(Now)&"."&Day(Now)%></option>
  242.           <option value="3" <%if RsSysModObj("DateType") = "3" then Response.Write("selected") end if%>><%=Year(Now)&"/"&Month(Now)&"/"&Day(Now)%></option>
  243.           <option value="4" <%if RsSysModObj("DateType") = "4" then Response.Write("selected") end if%>><%=Month(Now)&"/"&Day(Now)&"/"&Year(Now)%></option>
  244.           <option value="5" <%if RsSysModObj("DateType") = "5" then Response.Write("selected") end if%>><%=Day(Now)&"/"&Month(Now)&"/"&Year(Now)%></option>
  245.           <option value="6" <%if RsSysModObj("DateType") = "6" then Response.Write("selected") end if%>><%=Month(Now)&"-"&Day(Now)&"-"&Year(Now)%></option>
  246.           <option value="7" <%if RsSysModObj("DateType") = "7" then Response.Write("selected") end if%>><%=Month(Now)&"."&Day(Now)&"."&Year(Now)%></option>
  247.           <option value="8" <%if RsSysModObj("DateType") = "8" then Response.Write("selected") end if%>><%=Month(Now)&"-"&Day(Now)%></option>
  248.           <option value="9" <%if RsSysModObj("DateType") = "9" then Response.Write("selected") end if%>><%=Month(Now)&"/"&Day(Now)%></option>
  249.           <option value="10" <%if RsSysModObj("DateType") = "10" then Response.Write("selected") end if%>><%=Month(Now)&"."&Day(Now)%></option>
  250.           <option value="11" <%if RsSysModObj("DateType") = "11" then Response.Write("selected") end if%>><%=Month(Now)&"月"&Day(Now)&"日"%></option>
  251.           <option value="12" <%if RsSysModObj("DateType") = "12" then Response.Write("selected") end if%>><%=day(Now)&"日"&Hour(Now)&"时"%></option>
  252.           <option value="13" <%if RsSysModObj("DateType") = "13" then Response.Write("selected") end if%>><%=day(Now)&"日"&Hour(Now)&"点"%></option>
  253.           <option value="14" <%if RsSysModObj("DateType") = "14" then Response.Write("selected") end if%>><%=Hour(Now)&"时"&Minute(Now)&"分"%></option>
  254.           <option value="15" <%if RsSysModObj("DateType") = "15" then Response.Write("selected") end if%>><%=Hour(Now)&":"&Minute(Now)%></option>
  255.           <option value="16" <%if RsSysModObj("DateType") = "16" then Response.Write("selected") end if%>><%=Year(Now)&"年"&Month(Now)&"月"&Day(Now)&"日"%></option>
  256.         </select></td>
  257.       <td>&nbsp;&nbsp;&nbsp;&nbsp;保存路径</td>
  258.       <td> 
  259.         <input name="SaveFilePath" type="text" id="SaveFilePath" style="width:52%" value="<%=RsSysModObj("FileSavePath")%>">
  260.         <INPUT type="button"  name="Submit4" value="选择路径" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPathFrame.asp?CurrPath=<%= str_SavePath %>',300,250,window,document.ClassJSForm.SaveFilePath);document.ClassJSForm.SaveFilePath.focus();"></td>
  261.     </tr>
  262.     <tr class="hback">  
  263.       <td height="26">&nbsp;&nbsp;&nbsp;&nbsp;日期样式</td>
  264.       <td> 
  265.         <input name="DateCSS" type="text" id="DateCSS" style="width:90%" value="<%=RsSysModObj("DateCSS")%>"></td>
  266.       <td>&nbsp;&nbsp;&nbsp;&nbsp;显示栏目</td>
  267.       <td> 
  268.         <select name="ClassName" id="ClassName" style="width:90%">
  269.           <option value="1" <%If RsSysModObj("ClassName")=1 then Response.Write("selected")%>>显示</option>
  270.           <option value="0" <%If RsSysModObj("ClassName")=0 then Response.Write("selected")%>>不显示</option>
  271.         </select></td>
  272.     </tr>
  273.     <tr class="hback">  
  274.       <td height="26">&nbsp;&nbsp;&nbsp;&nbsp;调用子类</td>
  275.       <td> 
  276.         <select name="SonClass" id="SonClass" style="width:90%" <%If Types = "System" then Response.Write("disabled")%>>
  277.           <option value="1" <%If RsSysModObj("SonClass")=1 then Response.Write("selected")%>>是</option>
  278.           <option value="0" <%If RsSysModObj("SonClass")=0 then Response.Write("selected")%>>否</option>
  279.         </select></td>
  280.       <td>&nbsp;&nbsp;&nbsp;&nbsp;日期右对齐</td>
  281.       <td> 
  282.         <select name="RightDate" id="RightDate" style="width:90%">
  283.           <option value="1" <%If RsSysModObj("RightDate")=1 then Response.Write("selected")%>>是</option>
  284.           <option value="0" <%If RsSysModObj("RightDate")=0 then Response.Write("selected")%>>否</option>
  285.         </select></td>
  286.     </tr>
  287.     <tr class="hback">  
  288. <td colspan="10" align="center">
  289. <input type="submit" name="submit" value=" 保存 ">&nbsp;&nbsp;
  290. <input type="reset" name="reset" value=" 重置 ">
  291. </td>
  292. </tr>
  293. </table> 
  294. </form><p>
  295. </body>
  296. </html>
  297. <%
  298. RsSysModObj.close
  299. set RsSysModObj=nothing
  300. If Request.QueryString("action") = "add" then
  302. Dim ResultStr,TempFsoObj,FileNameStr
  303. FileNameStr = NoSqlHack(Trim(request.Form("FileName")))
  304. If Request.Form("FileCName")="" then
  305. sErrStr = sErrStr & "<li>文件中文名称不能为空</li>" '文件名称不能为空或是有非法字符
  306. End If
  307. If FileNameStr="" then
  308. sErrStr = sErrStr & "<li>文件名称不能为空</li>" '文件名称不能为空或是有非法字符
  309. End If
  310. If Request.Form("SaveFilePath")="" then
  311. sErrStr = sErrStr & "<li>未指定文件保存路径</li>" '文件名称不能为空或是有非法字符
  312. End If
  313. If isnumeric(Request.Form("NewsNum"))=false then
  314. sErrStr = sErrStr & "<li>调用新闻数量必须为数字型</li>" '调用新闻数量必须为数字型
  315. End If
  316. If isnumeric(Request.Form("TitleNum"))=false then
  317. sErrStr = sErrStr & "<li>标题字数必须为数字型</li>"
  318. End If
  319. If isnumeric(Request.Form("RowNum"))=false then
  320. sErrStr = sErrStr & "<li>新闻每行排列数量必须为数字型</li>"
  321. End If
  322. If isnumeric(Request.Form("RowSpace"))=false then
  323. sErrStr = sErrStr & "<li>新闻行距必须为数字型</li>"
  324. End IF
  325. If Types="Class" and Request.Form("ClassID")="" then
  326. sErrStr = sErrStr & "<li>栏目ID参数传递错误</li>"  '栏目ID参数传递错误
  327. End If
  328. If Request.Form("NewsType")="PicNews" or Request.Form("NewsType")="FilterNews" then
  329. If isnumeric(Request.Form("PicWidth"))=false or isnumeric(Request.Form("PicHeight"))=false then
  330. sErrStr = sErrStr & "<li>图片规格必须为数字型</li>"
  331. End If
  332. End If
  333. If Request.Form("MoreContent")=1 then
  334. If Request.Form("LinkWord")="" then
  335. sErrStr = sErrStr & "<li>请输入链接字样</li>"
  336. End If
  337. End If
  338. If Request.Form("NewsType")="MarqueeNews" or Request.Form("NewsType")="ProclaimNews" then
  339. If isnumeric(Request.Form("MarSpeed"))=false then
  340. sErrStr = sErrStr & "<li>新闻滚动速度必须为数字型</li>"
  341. End If
  342. End If
  343. if sErrStr<>"" then 
  344. response.Redirect("lib/error.asp?ErrCodes="&server.URLEncode(sErrStr))
  345. response.End()
  346. end if
  347. Dim ClassJsAddObj,RsClassSql
  348. Set ClassJsAddObj = Server.CreateObject(G_FS_RS)
  349. RsClassSql = "Select * from FS_NS_Sysjs where ID="&FileID&""
  350. ClassJsAddObj.Open RsClassSql,Conn,3,3
  351. ClassJsAddObj("FileCName") = Request.Form("FileCName")
  352. ClassJsAddObj("ClassID") = "0"
  353. ClassJsAddObj("NewsType") = Request.Form("NewsType")
  354. ClassJsAddObj("NewsNum") = Cint(Request.Form("NewsNum"))
  355. ClassJsAddObj("TitleNum") = Cint(Request.Form("TitleNum"))
  356. ClassJsAddObj("TitleCSS") = Cstr(Request.Form("TitleCSS"))
  357. ClassJsAddObj("RowNum") = Cint(Request.Form("RowNum"))
  358. ClassJsAddObj("NaviPic") = Request.Form("NaviPic")
  359. ClassJsAddObj("RowBetween") = Request.Form("RowBetween")
  360. ClassJsAddObj("FileSavePath") = Cstr(Request.Form("SaveFilePath"))
  361. ClassJsAddObj("RowSpace") = Cint(Request.Form("RowSpace"))
  362. ClassJsAddObj("DateType") = Cint(Request.Form("DateType"))
  363. ClassJsAddObj("DateCSS") = Cstr(Request.Form("DateCSS"))
  364. If Request.Form("ClassName")<>0 then
  365. ClassJsAddObj("ClassName") = 1
  366. Else
  367. ClassJsAddObj("ClassName") = 0
  368. End If
  369. If Request.Form("SonClass")<>0 then
  370. ClassJsAddObj("SonClass") = 1
  371. Else
  372. ClassJsAddObj("SonClass") = 0
  373. End If
  374. If Request.Form("RightDate")<>0 then
  375. ClassJsAddObj("RightDate") = 1
  376. Else
  377. ClassJsAddObj("RightDate") = 0
  378. End If
  379. If Request.Form("MoreContent")<>"" and isnull(Request.Form("MoreContent"))=false then
  380. ClassJsAddObj("MoreContent") = Request.Form("MoreContent")
  381. End if
  382. If Request.Form("MoreContent")<>0 then
  383. ClassJsAddObj("LinkWord") = Request.Form("LinkWord")
  384. ClassJsAddObj("LinkCSS") = Request.Form("LinkCSS")
  385. End If
  386. If Request.Form("PicWidth")<>"" and isnull(Request.Form("PicWidth"))=false then
  387. ClassJsAddObj("PicWidth") = Cint(Request.Form("PicWidth"))
  388. End If
  389. If Request.Form("PicHeight")<>"" and isnull(Request.Form("PicHeight"))=false then
  390. ClassJsAddObj("PicHeight") = Cint(Request.Form("PicHeight"))
  391. End If
  392. If Request.Form("MarSpeed")<>"" and isnull(Request.Form("MarSpeed"))=false then
  393. ClassJsAddObj("MarSpeed") = Cint(Request.Form("MarSpeed"))
  394. End If
  395. If Request.Form("MarDirection")<>"" and isnull(Request.Form("MarDirection"))=false then
  396. ClassJsAddObj("MarDirection") = Cstr(Request.Form("MarDirection"))
  397. End If
  398. If Request.Form("ShowTitle")<>"" and isnull(Request.Form("ShowTitle"))=false then
  399. ClassJsAddObj("ShowTitle") = Request.Form("ShowTitle")
  400. End If
  401. If Request.Form("OpenMode")<>1 then
  402. ClassJsAddObj("OpenMode") = 0
  403. Else
  404. ClassJsAddObj("OpenMode") = 1
  405. End If
  406. If Request.Form("MarWidth")<>"" and isnull(Request.Form("MarWidth"))=false then
  407. ClassJsAddObj("MarWidth") = Request.Form("MarWidth")
  408. End If
  409. If Request.Form("MarHeight")<>"" and isnull(Request.Form("MarHeight"))=false then
  410. ClassJsAddObj("MarHeight") = Request.Form("MarHeight")
  411. End If
  412. if request.Form("NewsType")="HotNews" then 
  413. if isnumeric(request.Form("setHitsValue")) then 
  414. ClassJsAddObj("MarSpeed") = NoSqlHack(request.Form("setHitsValue"))
  415. else
  416. ClassJsAddObj("MarSpeed") = 1
  417. end if
  418. end if
  420. ClassJsAddObj.Update
  421. ClassJsAddObj.Close
  422. Set ClassJsAddObj = Nothing
  423. ResultStr = CreateSysJS(FileNameStr)
  424. if ResultStr = true then
  425. response.Redirect("lib/Success.asp?ErrorUrl="&server.URLEncode( "../Js_Sys_manage.asp?Act=View" )&"&ErrCodes=<li>恭喜，修改成功。</li>")
  426. else
  427. response.Redirect("lib/error.asp?ErrCodes=<li>"&ResultStr&"</li>&ErrorUrl=../Js_Sys_manage.asp")
  428. end if
  429. Response.End
  430. End If
  431. Conn.Close
  432. Set Conn = Nothing
  433. %>
  434. <script>
  435. var TempLink='<% = ScrLink %>';
  436. var TempNewsType='<% = ScrNewsType %>';
  437. function ChooseLink(Link)
  438. {
  439. if (Link==1)
  440. {
  441.  document.ClassJSForm.LinkWord.disabled=false;
  442.  document.ClassJSForm.LinkCSS.disabled=false;
  443.  }
  444. else
  445. {
  446.  document.ClassJSForm.LinkWord.disabled=true;
  447.  document.ClassJSForm.LinkCSS.disabled=true;
  448.  }
  449.  }
  451. function ChooseNewsType(NewsType)
  452. {
  453.  if ((NewsType=='MarqueeNews')||(NewsType=='ProclaimNews'))
  454.   {
  455.  document.ClassJSForm.MarSpeed.disabled=false;
  456.  document.ClassJSForm.MarDirection.disabled=false;
  457.  document.ClassJSForm.MarWidth.disabled=false;
  458.  document.ClassJSForm.MarHeight.disabled=false;
  459.    }
  460.   else
  461.   {
  462.  document.ClassJSForm.MarSpeed.disabled=true;
  463.  document.ClassJSForm.MarDirection.disabled=true;
  464.  document.ClassJSForm.MarWidth.disabled=true;
  465.  document.ClassJSForm.MarHeight.disabled=true;
  466.    }
  467.   if ((NewsType=='PicNews')||(NewsType=='FilterNews'))
  468.   {
  469.  document.ClassJSForm.PicWidth.disabled=false;
  470.  document.ClassJSForm.PicHeight.disabled=false;
  471.  document.ClassJSForm.ShowTitle.disabled=false;
  472.    }
  473.   else
  474.   {
  475.  document.ClassJSForm.PicWidth.disabled=true;
  476.  document.ClassJSForm.PicHeight.disabled=true;
  477.  document.ClassJSForm.ShowTitle.disabled=true;
  478.    }
  479.  }
  480.  ChooseLink(TempLink);
  481.  ChooseNewsType(TempNewsType);
  482. </script>
  483. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->