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

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

数据库编程

开发平台：

ASP/ASPX

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