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

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

数据库编程

开发平台：

ASP/ASPX

News_edit.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../../FS_Inc/Const.asp" -->
  3. <!--#include file="lib/cls_main.asp" -->
  4. <!--#include file="../../FS_Inc/Function.asp"-->
  5. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  6. <!--#include file="../../FS_InterFace/NS_Function.asp" -->
  7. <%'Copyright (c)2006 by Foosun Inc. Code by Simpwind.Xie
  8. Dim Conn,User_Conn,sRootDir,strShowErr
  9. MF_Default_Conn
  10. MF_User_Conn
  11. MF_GetUserGroupID
  12. MF_Session_TF 
  13. Dim Fs_news,obj_newsedit_rs,str_CurrPath,str_display
  14. Dim str_PopId,str_ClassID,str_NewsID,str_SpecialEName,str_NewsTitle,str_CurtTitle,str_NewsNaviContent,str_isShowReview,str_TitleColor,str_titleBorder,str_TitleItalic,str_IsURL,str_URLAddress
  15. Dim str_Content,str_isPicNews,str_NewsPicFile,str_NewsSmallPicFile,str_PicborderCss,str_Templet,str_GroupID,str_PointNumber,str_Money,str_Source,str_Editor,str_Keywords,str_Author
  16. Dim str_Hits,str_FileName,str_FileExtName,str_NewsProperty,str_DefineID,str_TodayNewsPic,str_isLock,str_isRecyle,str_addtime,str_NewsType,str_isdraft
  17. Dim str_UrLaddress_1,str_CurtTitle_1,str_NewsPicFile_1,str_NewsSmallPicFile_1,str_Templet_1,str_Content_1,str_PicborderCss_1,str_Author_1,str_GroupID_1,str_FileName_1,str_filt_1
  18. set Fs_news = new Cls_News
  19. Fs_News.GetSysParam()
  20. If Not Fs_news.IsSelfRefer Then response.write "非法提交数据":Response.end
  21. if G_VIRTUAL_ROOT_DIR<>"" then sRootDir="/"+G_VIRTUAL_ROOT_DIR else sRootDir=""
  22. if Session("Admin_Is_Super") = 1 then
  23. str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
  24. Else
  25. str_CurrPath = Replace(sRootDir &"/"&G_UP_FILES_DIR&"/adminfiles/"&Session("Admin_Name"),"//","/")
  26. End if
  27. Set obj_newsedit_rs = server.CreateObject(G_FS_RS)
  28. obj_newsedit_rs.Open "Select NewsID,PopId,ClassID,SpecialEName,NewsTitle,CurtTitle,NewsNaviContent,isShowReview,TitleColor,titleBorder,TitleItalic,IsURL,URLAddress,Content,isPicNews,NewsPicFile,NewsSmallPicFile,PicborderCss,Templet,isPop,Source,Editor,Keywords,Author,Hits,FileName,FileExtName,NewsProperty,TodayNewsPic,isLock,isRecyle,addtime,isdraft from FS_NS_News where ClassID='"& NoSqlHack(Request.QueryString("ClassID")) &"' and NewsID='"& NoSqlHack(Request.QueryString("NewsID")) &"'",Conn,1,3
  29. If obj_newsedit_rs.eof then 
  30. strShowErr = "<li>非法参数,找不到数据库记录</li>"
  31. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  32. Response.end
  33. Else
  34. str_NewsID = obj_newsedit_rs("NewsID")
  35. Dim obj_tmppop_rs
  36. set obj_tmppop_rs = Conn.execute("select GroupName,PointNumber,FS_Money,InfoID,PopType,isClass From FS_MF_POP where InfoID='"& str_NewsID &"' and isClass=0 and PopType='NS'")
  37. if obj_tmppop_rs.eof then
  38. str_GroupID = ""
  39. str_PointNumber=""
  40. str_Money = ""
  41. obj_tmppop_rs.close:set obj_tmppop_rs = nothing
  42. Else
  43. str_GroupID = obj_tmppop_rs("GroupName")
  44. if obj_tmppop_rs("PointNumber") = 0 or isnull(trim(obj_tmppop_rs("PointNumber"))) then:str_PointNumber="" else:str_PointNumber=obj_tmppop_rs("PointNumber"):end if
  45. if obj_tmppop_rs("FS_Money") = 0 or isnull(trim(obj_tmppop_rs("FS_Money"))) then:str_Money="" else:str_Money=obj_tmppop_rs("FS_Money"):end if
  46. obj_tmppop_rs.close:set obj_tmppop_rs = nothing
  47. End if
  48. str_PopId = obj_newsedit_rs("PopId")
  49. str_ClassID = obj_newsedit_rs("ClassID")
  50. if not Get_SubPop_TF(str_ClassID,"NS002","NS","news") then Err_Show
  51. str_SpecialEName = obj_newsedit_rs("SpecialEName")
  52. str_NewsTitle = obj_newsedit_rs("NewsTitle")
  53. str_isdraft = obj_newsedit_rs("isdraft")
  54. str_CurtTitle = obj_newsedit_rs("CurtTitle")
  55. str_NewsNaviContent = obj_newsedit_rs("NewsNaviContent")
  56. if obj_newsedit_rs("isShowReview") = 1 then:str_isShowReview = 1:Else:str_isShowReview = 0:End if
  57. str_TitleColor = obj_newsedit_rs("TitleColor")
  58. str_titleBorder = obj_newsedit_rs("titleBorder")
  59. str_TitleItalic = obj_newsedit_rs("TitleItalic")
  60. if obj_newsedit_rs("IsURL") = 1 then:str_IsURL = 1:else:str_IsURL = 0:end if
  61. str_URLAddress = obj_newsedit_rs("URLAddress")
  62. str_Content = obj_newsedit_rs("Content")
  63. if obj_newsedit_rs("isPicNews") then:str_isPicNews =1:else:str_isPicNews = 0:end if
  64. str_NewsPicFile = obj_newsedit_rs("NewsPicFile")
  65. str_NewsSmallPicFile = obj_newsedit_rs("NewsSmallPicFile")
  66. str_PicborderCss = obj_newsedit_rs("PicborderCss")
  67. str_Templet =  obj_newsedit_rs("Templet")
  68. str_Source = obj_newsedit_rs("Source")
  69. str_Editor = obj_newsedit_rs("Editor")
  70. str_Keywords = obj_newsedit_rs("Keywords")
  71. str_Author = obj_newsedit_rs("Author")
  72. if obj_newsedit_rs("Hits") ="" then:str_Hits=0:else:str_Hits = obj_newsedit_rs("Hits"):end if
  73. str_FileName = obj_newsedit_rs("FileName")
  74. str_FileExtName = obj_newsedit_rs("FileExtName")
  75. str_NewsProperty = obj_newsedit_rs("NewsProperty")
  76. str_TodayNewsPic = obj_newsedit_rs("TodayNewsPic")
  77. if obj_newsedit_rs("isLock") = 1 then:str_islock=1:else:str_isLock = obj_newsedit_rs("isLock"):end if
  78. if obj_newsedit_rs("isRecyle") = 1 then:str_isRecyle=1:else:str_isRecyle = obj_newsedit_rs("isRecyle"):end if
  79. if trim(obj_newsedit_rs("addtime"))="" then:str_addtime=now:else:str_addtime = obj_newsedit_rs("addtime"):end if
  80. if obj_newsedit_rs("isRecyle") = 1 then
  81. strShowErr = "<li>在回收站中的"& Fs_news.allInfotitle&"不能编辑</li>"
  82. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  83. Response.end
  84. End if
  85. End if
  87. '获得显示层参数
  88. if str_IsURL = 1 then
  89. str_NewsType = "TitleNews"
  90. str_UrLaddress_1 = ""
  91. str_CurtTitle_1="none"
  92. str_NewsPicFile_1="none"
  93. str_NewsSmallPicFile_1="none"
  94. str_Templet_1="none"
  95. str_Content_1 ="none"
  96. str_PicborderCss_1="none"
  97. str_Author_1="none"
  98. str_GroupID_1="none"
  99. str_FileName_1="none"
  100. str_filt_1="none"
  101. Elseif str_isPicNews = 1 then
  102. str_NewsType = "PicNews"
  103. str_UrLaddress_1 = "none"
  104. str_CurtTitle_1=""
  105. str_NewsPicFile_1=""
  106. str_NewsSmallPicFile_1=""
  107. str_Templet_1=""
  108. str_Content_1 =""
  109. str_PicborderCss_1=""
  110. str_Author_1=""
  111. str_GroupID_1=""
  112. str_FileName_1=""
  113. str_filt_1=""
  114. Else
  115. str_NewsType = "TextNews"
  116. str_UrLaddress_1 = "none"
  117. str_CurtTitle_1=""
  118. str_NewsPicFile_1="none"
  119. str_NewsSmallPicFile_1="none"
  120. str_Templet_1=""
  121. str_Content_1 =""
  122. str_PicborderCss_1=""
  123. str_Author_1=""
  124. str_GroupID_1=""
  125. str_FileName_1=""
  126. str_filt_1=""
  127. End if
  128. 'On Error Resume Next
  129. '获取辅助字段信息,保存到数组CustColumnArr中
  130. '(c)2002-2006 版权所有：Foosun Inc. 不得进行任何性质的程序拷贝、传播。By Foosun__Simpwind.Xie 
  131. dim c_rs,tmp_defineid,i
  132. Set c_rs = Conn.execute("select DefineID from FS_NS_NewsClass where Classid='"& str_ClassID &"'")
  133. tmp_defineid = c_rs(0)
  134. c_rs.close:set c_rs=nothing
  135. if not isnull(trim(tmp_defineid)) or trim(tmp_defineid)>0 then
  136. Dim CustColumnRs,CustSql,CustColumnArr
  137. CustSql="select DefineID,ClassID,D_Name,D_Coul,D_Type,D_isNull,D_Value,D_Content,D_SubType from [FS_MF_DefineTable] Where D_SubType='NS' and  Classid="& tmp_defineid &""
  138. Set CustColumnRs=CreateObject(G_FS_RS)
  139. CustColumnRs.Open CustSql,Conn,1,3
  140. If Not CustColumnRs.Eof Then
  141. CustColumnArr=CustColumnRs.GetRows()
  142. End If
  143. CustColumnRs.close:Set CustColumnRs = Nothing
  144. end if
  145. '=====================================
  146. %>
  147. <html>
  148. <head>
  149. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  150. <title>管理___Powered by foosun Inc.</title>
  151. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  152. </head>
  153. <body>
  154. <script language="JavaScript" src="js/Public.js"></script>
  155. <script language="JavaScript" src="../../FS_Inc/CheckJs.js"></script>
  156. <script language="JavaScript" src="../../FS_Inc/Prototype.js"></script>
  157. <script language="JavaScript" src="../../FS_Inc/PublicJS.js"></script>
  158. <script language="JavaScript" type="text/javascript" src="../../FS_Inc/Get_Domain.asp"></script>
  159. <script language="JavaScript" type="text/javascript" src="../../Editor/FS_scripts/editor.js"></script>
  160. <iframe width="260" height="165" id="colorPalette" src="lib/selcolor.htm" style="visibility:hidden; position: absolute;border:1px gray solid" frameborder="0" scrolling="no" ></iframe>
  161. <table width="98%" border="0" cellspacing="0" cellpadding="0">
  162. <tr>
  163. <td height="1"></td>
  164. </tr>
  165. </table>
  166. <table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  167. <form action="News_Save.asp" name="NewsForm" method="post" onsubmit="return CheckForm(this);">
  168. <tr class="xingmu">
  169. <td colspan="4" class="xingmu">编辑/修改
  170. <% = Fs_news.allInfotitle %>
  171. <a href="../../help?Lable=NS_News_add" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a></td>
  172. </tr>
  173. <tr >
  174. <td class="hback">
  175. <div align="right">
  176. <table width="95" border="0" cellspacing="0" cellpadding="0">
  177. <tr>
  178. <td height="1"></td>
  179. </tr>
  180. </table>
  181. <% = Fs_news.allInfotitle %>
  182. 类型 </div>
  183. </td>
  184. <td colspan="3" class="hback">
  185. <input name=NewsType type=radio id="NewsType" onClick="SwitchNewsType('TextNews');" value="TextNews" <%If str_NewsType = "TextNews" then Response.Write("checked")%>>
  186. 普通
  187. <input name=NewsType type=radio id="NewsType" onClick="SwitchNewsType('PicNews');" value="PicNews" <%If str_NewsType = "PicNews" then Response.Write("checked")%>>
  188. 图片
  189. <input name=NewsType type=radio id="NewsType" onClick="SwitchNewsType('TitleNews');" value="TitleNews" <%If str_NewsType = "TitleNews" then Response.Write("checked")%>>
  190. 标题 　&nbsp;&nbsp;
  191. <%if  str_isdraft = 1 then%>
  192. <input name="isdraft" type="checkbox" id="isdraft" value="1" <%if str_isdraft = 1 then response.Write("checked")%>>
  193. 存到草稿箱中
  194. <%end if%>
  195. </td>
  196. </tr>
  197. <tr >
  198. <td width="12%" class="hback">
  199. <div align="right">
  200. <% = Fs_news.allInfotitle %>
  201. 标题</div>
  202. </td>
  203. <td colspan="3" class="hback">
  204. <input name="NewsTitle" type="text" id="NewsTitle" size="40"  value="<%=str_NewsTitle%>" maxlength="255" onFocus="Do.these('NewsTitle',function(){return isEmpty('NewsTitle','span_NewsTitle')})" onKeyUp="Do.these('NewsTitle',function(){return isEmpty('NewsTitle','span_NewsTitle')})">
  205. <span id="span_NewsTitle"></span>
  206. <input name="TitleColor" id="TitleColor" type="hidden">
  207. <img src="images/rect<%if str_TitleColor="" Then Response.write("NoColor")%>.gif" id="TitleColorShow" style="cursor:pointer;background-color:<%=str_TitleColor%>;" title="选取颜色!" onClick="GetColor(document.getElementById('TitleColorShow'),'TitleColor');">
  208. <input name="titleBorder" type="checkbox" id="titleBorder" value="1"  <%if str_titleBorder=1 then response.Write("checked") %>>
  209. 粗体
  210. <input name="TitleItalic" type="checkbox" id="TitleItalic" value="1"  <%if str_TitleItalic=1 then response.Write("checked") %>>
  211. 斜体
  212. <input name="isShowReview" type="checkbox" id="isShowReview" value="1"<%if str_isShowReview=1 then response.Write("checked") %>>
  213. 评论连接　　权重
  214. <select name="PopID" id="PopID">
  215. <option value="5" <%if str_PopID=5 then response.Write("selected") %>>总置顶</option>
  216. <option value="4" <%if str_PopID=4 then response.Write("selected") %>>栏目置顶</option>
  217. <option value="0" <%if str_PopID=0 then response.Write("selected") %>>一般</option>
  218. </select>
  219. </td>
  220. </tr>
  221. <tr >
  222. <td class="hback">
  223. <div align="right">选择栏目</div>
  224. </td>
  225. <td colspan="3" class="hback">
  226. <input name="ClassName" type="text" id="ClassName5" style="width:45%" value="<%=Fs_News.GetAdd_ClassName(str_ClassID)%>" readonly>
  227. <input name="ClassID" type="hidden" id="ClassID" value="<% = str_ClassID %>">
  228. <input type="button" name="Submit" value="选择栏目"   onClick="SelectClass();">
  229. <input type="button" name="Submit2" value="添加栏目" onClick="window.location.href='Class_add.asp?ClassID=<%=str_ClassID %>&Action=add'">
  230. </td>
  231. </tr>
  232. <tr >
  233. <td class="hback">
  234. <div align="right">选择专题</div>
  235. </td>
  236. <%
  237.   if str_SpecialEName<>"" then
  238.   dim sp_rs,sp_array,sp_i,sp_char
  239.   sp_char=""
  240.   sp_array = split(str_SpecialEName,",")
  241.   for sp_i = 0 to ubound(sp_array)
  242.   set sp_rs=Conn.execute("select SpecialCName From FS_NS_Special where SpecialEName='"& sp_array(sp_i) &"' ")
  243.    if not sp_rs.eof then
  244. if sp_i = ubound(sp_array) then
  245. sp_char = sp_char&sp_rs("SpecialCName")
  246. else
  247. sp_char = sp_char&sp_rs("SpecialCName")&","
  248. end if
  249.    end if
  250.    sp_rs.close:set sp_rs = nothing
  251.   next
  252.   sp_char = sp_char
  253.   end if
  254.   %>
  255. <td colspan="3" class="hback">
  256. <input name="SpecialID" type="text" id="SpecialID" style="width:45%" readonly value="<% = sp_char%>">
  257. <input name="SpecialID_EName" type="hidden" id="SpecialID_EName" value="<%=str_SpecialEName%>">
  258. <span class="tx"> </span>
  259. <input type="button" name="Submit" value="选择专题"   onClick="SelectSpecial();">
  260. <span class="tx">
  261. <input name="Submit" type="button" id="Submit" onClick="dospclear();" value="清除专题">
  262. </span> <span class="tx"> 不修改请保持为空,可多选</span> &nbsp;&nbsp;<a href="../../help?Lable=NS_News_add_special" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a></td>
  263. </tr>
  264. <tr  id="str_URLAddress" style="display:<%=str_URLAddress_1%>;" >
  265. <td class="hback">
  266. <div align="right">连接地址 </div>
  267. </td>
  268. <td colspan="3" class="hback">
  269. <input name="URLAddress" type="text" id="URLAddress"  style="width:96%" maxlength="255" value="<%=str_URLAddress%>">
  270. </td>
  271. </tr>
  272. <tr  id="str_CurtTitle" style="display:<%=str_CurtTitle_1%>" >
  273. <td class="hback">
  274. <div align="right"> 副标题</div>
  275. </td>
  276. <td width="38%" class="hback">
  277. <input name="CurtTitle" type="text" id="CurtTitle" size="40" maxlength="255" value="<%=str_CurtTitle%>">
  278. </td>
  279. <td width="10%" class="hback">
  280. <div align="right">关键字</div>
  281. </td>
  282. <td width="40%" class="hback">
  283. <input name="KeywordText" type="text" id="KeywordText" size="15" maxlength="255" value="<%=str_Keywords%>">
  284. <input name="KeyWords" type="hidden" id="KeyWords" value="<%=str_Keywords%>">
  285. <select name="selectKeywords" id="selectKeywords" style="width:120px" onChange=Dokesite(this.options[this.selectedIndex].value)>
  286. <option value="" selected>选择关键字</option>
  287. <option value="Clean" style="color:red">清空</option>
  288. <%=Fs_news.GetKeywordslist("",1)%>
  289. </select>
  290. <input name="KeywordSaveTF" type="checkbox" id="KeywordSaveTF" value="1">
  291. 记忆</td>
  292. </tr>
  293. <tr  id="str_Templet" style="display:<%=str_Templet_1%>" >
  294. <td class="hback">
  295. <div align="right">模板地址</div>
  296. </td>
  297. <td colspan="3" class="hback">
  298. <input name="Templet" type="text" id="Templet" style="width:85%"  value="<%=str_Templet%>"  maxlength="255" readonly>
  299. <input name="Submit5" type="button" id="selNewsTemplet" value="选择模板"  onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectTemplet.asp?CurrPath=<%=sRootDir %>/<% = G_TEMPLETS_DIR %>',400,300,window,document.NewsForm.Templet);document.NewsForm.Templet.focus();">
  300. </td>
  301. </tr>
  302. <tr   id="str_NewsSmallPicFile" style="display:<%=str_NewsSmallPicFile_1%>">
  303. <td class="hback">
  304. <div align="right">图片(小)</div>
  305. <div align="right">图片(大)</div>
  306. </td>
  307. <td colspan="3" class="hback">
  308. <table width="417" border="0" cellspacing="1" cellpadding="5">
  309. <tr>
  310. <td width="50%">
  311. <table width="10" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
  312. <tr>
  313. <%if isnull(trim(str_NewsSmallPicFile)) or str_NewsSmallPicFile="" then%>
  314. <td class="hback"><img src="../Images/nopic_supply.gif" height="90" id="pic_p_1"></td>
  315. <%else%>
  316. <td class="hback"><img src="<%=str_NewsSmallPicFile%>" height="90" id="pic_p_1"></td>
  317. <%end if%>
  318. </tr>
  319. </table>
  320. <div align="center">
  321. <div align="center">
  322. <input name="NewsSmallPicFile" type="hidden" id="NewsSmallPicFile" style="width:85%" maxlength="255" value="<%=str_NewsSmallPicFile%>">
  323. <img  src="../Images/upfile.gif" width="44" height="22" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPic.asp?CurrPath=<% = str_CurrPath %>',500,320,window,document.NewsForm.NewsSmallPicFile);" style="cursor:hand;"> 　<img src="../Images/del_supply.gif" width="44" height="22" onClick="dels_1();" style="cursor:hand;"> </div>
  324. </div>
  325. </td>
  326. <td width="50%">
  327. <table width="10" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
  328. <tr>
  329. <%if isnull(trim(str_NewsPicFile)) or str_NewsPicFile="" then%>
  330. <td class="hback"><img src="../Images/nopic_supply.gif" height="90" id="pic_p_2"></td>
  331. <%else%>
  332. <td class="hback"><img src="<%=str_NewsPicFile%>" height="90" id="pic_p_2"></td>
  333. <%end if%>
  334. </tr>
  335. </table>
  336. <div align="center">
  337. <div align="center">
  338. <input name="NewsPicFile" type="hidden" id="NewsPicFile" style="width:85%" maxlength="255" value="<%=str_NewsPicFile%>">
  339. <img  src="../Images/upfile.gif" width="44" height="22" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPic.asp?CurrPath=<% = str_CurrPath %>',500,320,window,document.NewsForm.NewsPicFile);" style="cursor:hand;"> 　<img src="../Images/del_supply.gif" width="44" height="22" onClick="dels_2();" style="cursor:hand;"> </div>
  340. </div>
  341. </td>
  342. </tr>
  343. <tr>
  344. <td class="hback">
  345. <div align="center">小图地址</div>
  346. </td>
  347. <td class="hback">
  348. <div align="center">大图地址</div>
  349. </td>
  350. </tr>
  351. </table>
  352. </td>
  353. </tr>
  354. <tr  id="str_Author" style="display:<%=str_Author_1%>" >
  355. <td class="hback">
  356. <div align="right">
  357. <% = Fs_news.allInfotitle %>
  358. 作者</div>
  359. </td>
  360. <td class="hback">
  361. <input name="Author" type="text" id="Author" size="15" maxlength="255"  value="<%=str_Author%>" >
  362. <select name="selectAuthor" id="selectAuthor" style="width:120px"  onChange="document.NewsForm.Author.value=this.options[this.selectedIndex].text;">
  363. <option style="color:red"> </option>
  364. <option value="佚名">佚名</option>
  365. <option value="本站">本站</option>
  366. <option value="未知">未知</option>
  367. <%=Fs_news.GetKeywordslist("",3)%>
  368. </select>
  369. <input name="AuthorSaveTF" type="checkbox" id="AuthorSaveTF" value="1">
  370. 记忆</td>
  371. <td class="hback">
  372. <div align="right">
  373. <% = Fs_news.allInfotitle %>
  374. 来源</div>
  375. </td>
  376. <td class="hback">
  377. <input name="Source" type="text" id="Source" size="15" maxlength="255" value="<%=str_Source%>">
  378. <select name="selectSource" id="selectSource" style="width:120px"  onChange="document.NewsForm.Source.value=this.options[this.selectedIndex].text;">
  379. <option value="" selected> </option>
  380. <option value="本站原创">本站原创</option>
  381. <option value="不详">不详</option>
  382. <%=Fs_news.GetKeywordslist("",2)%>
  383. </select>
  384. <input name="SourceSaveTF" type="checkbox" id="SourceSaveTF" value="1">
  385. 记忆</td>
  386. </tr>
  387. <tr >
  388. <td class="hback">
  389. <div align="right">类型</div>
  390. </td>
  391. <td colspan="3" class="hback">
  392. <div align="left">
  393. <input name="NewsProperty_Rec" type="checkbox" id="NewsProperty" value="1" <%if split(str_NewsProperty,",")(0)="1" then Response.Write("checked")%>>
  394. 推荐
  395. <input name="NewsProperty_mar" type="checkbox" id="NewsProperty" value="1"  <%if split(str_NewsProperty,",")(1)="1" then Response.Write("checked")%>>
  396. 滚动
  397. <input name="NewsProperty_rev" type="checkbox" id="NewsProperty" value="1"  <%if split(str_NewsProperty,",")(2)="1" then Response.Write("checked")%>>
  398. 允许评论
  399. <input name="NewsProperty_constr" type="checkbox" id="NewsProperty" value="1" <%if split(str_NewsProperty,",")(3)="1" then Response.Write("checked")%>>
  400. 投稿
  401. <input name="NewsProperty_tt" type="checkbox" id="NewsProperty" value="1"  onClick="ChooseTodayNewsType();" <%if split(str_NewsProperty,",")(5)="1" then Response.Write("checked")%>>
  402. 头条
  403. <input name="NewsProperty_hots" type="checkbox" id="NewsProperty" value="1" <%if split(str_NewsProperty,",")(6)="1" then Response.Write("checked")%>>
  404. 热点
  405. <input name="NewsProperty_jc" type="checkbox" id="NewsProperty" value="1" <%if split(str_NewsProperty,",")(7)="1" then Response.Write("checked")%>>
  406. 精彩
  407. <input name="NewsProperty_unr" type="checkbox" id="NewsProperty" value="1" <%if split(str_NewsProperty,",")(8)="1" then Response.Write("checked")%>>
  408. 不规则
  409. <input name="NewsProperty_ann" type="checkbox" id="NewsProperty" value="1" <%if split(str_NewsProperty,",")(9)="1" then Response.Write("checked")%>>
  410. 公告 <span id="str_filt" style="display:<%=str_filt_1%>">
  411. <input name="NewsProperty_filt" type="checkbox" id="NewsProperty" value="1" <%if split(str_NewsProperty,",")(10)="1" then Response.Write("checked")%>>
  412. 幻灯</span></div>
  413. </td>
  414. </tr>
  415. <tr  id="TodayNews" style="display:<%if split(str_NewsProperty,",")(5) =1 then:response.Write(";"):else:Response.Write("none;"):end if%>" >
  416. <td colspan="4" class="hback">
  417. <table width="100%" border="0" cellspacing="1" cellpadding="2" class="table">
  418. <tr>
  419. <td height="26" align="center" width="120" class="xingmu">头条
  420. <% = Fs_news.allInfotitle %>
  421. 类型：</td>
  422. <td height="26" class="hback">
  423. <input name="TodayNewsPicTF" value="" type="radio" checked onClick="if(this.checked){document.getElementById('TodayPicParam').style.display='none';}">
  424. 文字头条
  425. <input name="TodayNewsPicTF" value="FoosunCMS" type="radio" onClick="if(this.checked){document.getElementById('TodayPicParam').style.display='';}" <%if str_TodayNewsPic=1 then Response.Write("checked")%>>
  426. 图片头条 　　<a href="../../help?Lable=NS_News_add_tt" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a></td>
  427. </tr>
  428. <tr id="TodayPicParam" style="display:<%if str_TodayNewsPic =1 then:response.Write(";"):else:Response.Write("none;"):end if%>;" >
  429. <td width="120" height="26" align="center"  class="xingmu">头条
  430. <% = Fs_news.allInfotitle %>
  431. 参数：</td>
  432. <td height="26" class="hback">&nbsp;&nbsp;字体
  433. <%
  434. Dim Get_TodayPic,FontFace,FontSize,FontColor,FontSpace,FontBgColor
  435. set Get_TodayPic = Conn.execute("select TodayPic_font,TodayPic_size,TodayPic_color,TodayPic_space,TodayPic_PicColor From  FS_NS_TodayPic where NewsID='"& str_NewsID &"'")
  436. if not Get_TodayPic.eof  then
  437. FontFace = Get_TodayPic("TodayPic_font")
  438. FontSize =  Get_TodayPic("TodayPic_size")
  439. FontColor =  Get_TodayPic("TodayPic_color")
  440. FontSpace =  Get_TodayPic("TodayPic_space")
  441. FontBgColor =  Get_TodayPic("TodayPic_PicColor")
  442. Get_TodayPic.close:set Get_TodayPic = nothing
  443. else
  444. FontFace = "黑体"
  445. FontSize = "12"
  446. FontColor = "000000"
  447. FontSpace = "12"
  448. FontBgColor ="FFFFFF"
  449. Get_TodayPic.close:set Get_TodayPic = nothing
  450. end if
  451. %>
  452. <SELECT name="FontFace" id="FontFace">
  453. <option value="宋体" <%if FontFace = "宋体" then response.Write("selected")%>>宋体</option>
  454. <option value="楷体_GB2312" <%if FontFace = "楷体_GB2312" then response.Write("selected")%>>楷体</option>
  455. <option value="新宋体" <%if FontFace = "新宋体" then response.Write("selected")%>>新宋体</option>
  456. <option value="黑体" <%if FontFace = "黑体" then response.Write("selected")%>>黑体</option>
  457. <option value="隶书" <%if FontFace = "黑体" then response.Write("selected")%>>隶书</option>
  458. <OPTION value="Andale Mono" <%if FontFace = "Andale Mono" then response.Write("selected")%>>Andale 
  459. Mono</OPTION>
  460. <OPTION value="Arial" <%if FontFace = "Arial" then response.Write("selected")%>>Arial</OPTION>
  461. <OPTION value="Arial Black" <%if FontFace = "Arial Black" then response.Write("selected")%>>Arial 
  462. Black</OPTION>
  463. <OPTION value="Book Antiqua"  <%if FontFace = "Book Antiqua" then response.Write("selected")%>>Book 
  464. Antiqua</OPTION>
  465. <OPTION value="Century Gothic" <%if FontFace = "Century Gothic" then response.Write("selected")%>>Century 
  466. Gothic</OPTION>
  467. <OPTION value="Comic Sans MS" <%if FontFace = "Comic Sans MS" then response.Write("selected")%>>Comic 
  468. Sans MS</OPTION>
  469. <OPTION value="Courier New" <%if FontFace = "Courier New" then response.Write("selected")%>>Courier 
  470. New</OPTION>
  471. <OPTION value="Georgia" <%if FontFace = "Georgia" then response.Write("selected")%>>Georgia</OPTION>
  472. <OPTION value="Impact" <%if FontFace = "Impact" then response.Write("selected")%>>Impact</OPTION>
  473. <OPTION value="Tahoma" <%if FontFace = "Tahoma" then response.Write("selected")%>>Tahoma</OPTION>
  474. <OPTION value="Times New Roman" <%if FontFace = "Times New Roman" then response.Write("selected")%>>Times 
  475. New Roman</OPTION>
  476. <OPTION value="Trebuchet MS" <%if FontFace = "Trebuchet MS" then response.Write("selected")%>>Trebuchet 
  477. MS</OPTION>
  478. <OPTION value="Script MT Bold" <%if FontFace = "Script MT Bold" then response.Write("selected")%>>Script 
  479. MT Bold</OPTION>
  480. <OPTION value="Stencil" <%if FontFace = "Stencil" then response.Write("selected")%>>Stencil</OPTION>
  481. <OPTION value="Verdana" <%if FontFace = "Verdana" then response.Write("selected")%>>Verdana</OPTION>
  482. <OPTION value="Lucida Console" <%if FontFace = "Lucida Console" then response.Write("selected")%>>Lucida 
  483. Console</OPTION>
  484. </SELECT>
  485. <select name="FontSize">
  486. <option value="8" <%if FontSize = "8" then response.Write("selected")%>>8px</option>
  487. <option value="9" <%if FontSize = "9" then response.Write("selected")%>>9px</option>
  488. <option value="10" <%if FontSize = "10" then response.Write("selected")%>>10px</option>
  489. <option value="12" <%if FontSize = "12" then response.Write("selected")%>>12px</option>
  490. <option value="18" <%if FontSize = "18" then response.Write("selected")%>>18px</option>
  491. <option value="20" <%if FontSize = "20" then response.Write("selected")%>>20px</option>
  492. <option value="24" <%if FontSize = "24" then response.Write("selected")%>>24px</option>
  493. <option value="28" <%if FontSize = "28" then response.Write("selected")%>>28px</option>
  494. <option value="30" <%if FontSize = "30" then response.Write("selected")%>>30px</option>
  495. <option value="32" <%if FontSize = "32" then response.Write("selected")%>>32px</option>
  496. <option value="36" <%if FontSize = "36" then response.Write("selected")%>>36px</option>
  497. <option value="40" <%if FontSize = "40" then response.Write("selected")%>>40px</option>
  498. <option value="48" <%if FontSize = "48" then response.Write("selected")%>>48px</option>
  499. <option value="54" <%if FontSize = "54" then response.Write("selected")%>>54px</option>
  500. <option value="60" <%if FontSize = "60" then response.Write("selected")%>>60px</option>
  501. <option value="72" <%if FontSize = "72" then response.Write("selected")%>>72px</option>
  502. </select>
  503. <input type="text" name="FontColor" maxlength=7 size=7 id="FontColor" value="<% = FontColor %>">
  504. <img src="images/rect.gif" width="18" height="17" border=0 align=absmiddle id="FontColorShow" style="cursor:pointer;background-Color:#<% = FontColor %>;" title="选取颜色!" onClick="GetColor(this,'FontColor');"> 　　 字体间距：
  505. <INPUT TYPE="text" maxlength="3" NAME="FontSpace" size=3 value="<% = FontSpace %>">
  506. px 图片背景色
  507. <input type="text" name="FontBgColor" maxlength=7 size=7 id="FontBgColor" value="<% = FontBgColor %>">
  508. <img src="images/rect.gif" width="18" height="17" border=0 align=absmiddle id="FontBgColorShow" style="cursor:pointer;background-Color:<% = FontBgColor %>;" title="选取颜色!" onClick="GetColor(this,'FontBgColor');"> </td>
  509. </tr>
  510. </table>
  511. </td>
  512. </tr>
  513. <tr >
  514. <td class="hback">
  515. <div align="right">
  516. <% = Fs_news.allInfotitle %>
  517. 导读</div>
  518. </td>
  519. <td colspan="3" class="hback">
  520. <div align="left">
  521. <textarea name="NewsNaviContent" rows="6" id="NewsNaviContent" style="width:96%"><%=str_NewsNaviContent%></textarea>
  522. </div>
  523. </td>
  524. </tr>
  525. <tr id="str_Content" style="display:<%=str_Content_1%>" >
  526. <td class="hback">
  527. <div align="left">
  528. <input name="NewsProperty_Remote" type="checkbox" id="NewsProperty_Remote" value="1" <%if split(str_NewsProperty,",")(4)="1" then Response.Write("checked")%>>
  529. 下载内容中的图片到本地<br>
  530.           <span class="tx">启用此功能后，如果从其它网站上复制内容到右边的编辑器中，并且内容中包含有图片，本系统会在保存文章时自动把相关图片复制到本站服务器上。<br>
  531.           系统会因所下载图片的大小而影响速度，建议图片较多时不要使用此功能。</span><br>
  532.           <input name="ClearAllPage" type="checkbox" id="ClearAllPage" value="1">从新计算自动分页(<%=G_FS_Page_Txtlength&"字节/页"%>)</div>
  533. </td>
  534. <td colspan="3" class="hback">
  535. <!--编辑器开始-->
  536. <pre id="idTemporary" name="idTemporary" style="display:none"><%If str_Content<>"" Or Not IsNull(str_Content) Then Response.Write Server.HTMLEncode(str_Content)%></pre>
  537. <script language="JavaScript">
  538. <!--
  539. var FS_Edit1 = new InnovaEditor("FS_Edit1");
  540. FS_Edit1.cmdAssetManager="modalDialogShow('../../<% = G_ADMIN_DIR %>/CommPages/SelectManageDir/SelectPic.asp?CurrPath=<% = str_CurrPath %>',670,450)";
  541. FS_Edit1.width="100%";
  542. FS_Edit1.height="380";
  543. FS_Edit1.btnFlash=true;
  544. FS_Edit1.btnMedia=true;        
  545. FS_Edit1.btnCustomTag=true;
  546. FS_Edit1.arrCustomTag=[["Fs:Page","[FS:PAGE]"]];
  547. FS_Edit1.RENDER($("idTemporary").innerHTML);
  548. //-->
  549. </script>
  550. <textarea name="Content" style="display:none" ></textarea>
  551. <!--编辑器结束-->
  552. </td>
  553. </tr>
  554. <!--自定义自段开始-->
  555. <%
  556. If IsArray(CustColumnArr) Then
  557. response.Write"<tr><td colspan=""4"" class=""hback_1"">自定义开始</td></tr>"
  558. Dim NewsAuxiInfoRs,NewsAuxiInfoSql
  559. Dim InputModeStr,AuxiInfoList,AuxiListArr,k
  560. For i = 0 to Ubound(CustColumnArr,2)
  561. NewsAuxiInfoSql="select ColumnValue From FS_MF_DefineData Where InfoID='"&str_NewsID&"' and TableEName='" & CustColumnArr(3,i) & "' And InfoType='NS'"
  562. Set NewsAuxiInfoRs=Conn.Execute(NewsAuxiInfoSql)
  563. Select Case CStr(CustColumnArr(4,i)) '根据选择的输入类型生成输入方式
  564. Case 1 '多行输入
  565. If Not NewsAuxiInfoRs.Eof Then  '如果为以前添加的新闻则回出现读不到数据的情况，避免出错
  566.  InputModeStr="<Textarea Name=""FS_NS_Define_"&CustColumnArr(3,i)&""" style=""width:70%;height:80;"">"&NewsAuxiInfoRs(0)&"</Textarea>"
  567. Else
  568. InputModeStr="<Textarea Name=""FS_NS_Define_"&CustColumnArr(3,i)&""" style=""width:70%;height:80;""></Textarea>"
  569. End If
  570. Case 4 '列表选择
  571. Dim AuxiDictRs
  572. InputModeStr="<Select Name=""FS_NS_Define_"&CustColumnArr(3,i)&""" style=""width:70%"">"&vbcrlf
  573. AuxiListArr=Split(CustColumnArr(6,i),vbcrlf)
  574. For k = 0 to UBound(AuxiListArr)
  575. If AuxiListArr(k)<>"" Then
  576. If Not NewsAuxiInfoRs.eof  Then
  577. If trim(AuxiListArr(k))=trim(NewsAuxiInfoRs(0)) Then
  578. InputModeStr=InputModeStr&"<Option value="""&AuxiListArr(k)&""" selected>"&AuxiListArr(k)&"</option>"&vbcrlf
  579. Else
  580. InputModeStr=InputModeStr&"<Option value="""&AuxiListArr(k)&""">"&AuxiListArr(k)&"</option>"&vbcrlf
  581. End IF
  582. Else
  583. If k=0 Then InputModeStr=InputModeStr&"<Option value="""" selected> </option>"&vbcrlf 
  584. InputModeStr=InputModeStr&"<Option value="""&AuxiListArr(k)&""">"&AuxiListArr(k)&"</option>"&vbcrlf
  585. End If
  586. End If
  587. Next
  588. InputModeStr=InputModeStr&"</select>"
  589. Case Else '单行，数字，日期
  590. If Not NewsAuxiInfoRs.Eof Then
  591. InputModeStr="<Input Type=""text"" Name=""FS_NS_Define_"&CustColumnArr(3,i)&""" value="""&NewsAuxiInfoRs(0)&""" style=""width:70%"">"
  592. Else
  593. InputModeStr="<Input Type=""text"" Name=""FS_NS_Define_"&CustColumnArr(3,i)&""" value="""" style=""width:70%"">"
  594. End If
  595. End Select
  596. If CStr(CustColumnArr(7,i))<>"" Then
  597. InputModeStr=InputModeStr&"<span class=""tx"">说明："&CustColumnArr(3,i)&"</span>"
  598. End If
  599. Response.Write "<tr >"&vbcrlf
  600. Response.Write "<td width=""10%"" align=""right""  class=""hback"">"&CustColumnArr(2,i)&"</td>"&vbcrlf
  601. Response.Write "<td width=""90%"" colspan=""3"" align=""left""    class=""hback"">"&vbcrlf&InputModeStr&"</td>"&vbcrlf
  602. Response.Write "</tr>"&vbcrlf
  603. NewsAuxiInfoRs.Close
  604. Next
  605. response.Write"<tr><td colspan=""4"" class=""hback_1"">自定义结束</td></tr>"
  606. End If
  607. Set NewsAuxiInfoRs=Nothing
  608. %>
  609. <!--自定义自段结束-->
  610. <tr  id="str_GroupID" style="display:<%=str_GroupID_1%>" >
  611. <td class="hback">
  612. <div align="right">浏览点数</div>
  613. </td>
  614. <td colspan="3" class="hback">
  615. <input name="PointNumber" type="text" id="PointNumber2" size="16"  onChange="ChooseExeName();" value="<% = str_PointNumber%>">
  616. 金币
  617. <input name="Money" type="text" id="Money2" size="16"  onChange="ChooseExeName();" value="<% = str_Money%>">
  618. 浏览权限
  619. <input name="BrowPop"  id="BrowPop" type="text" onMouseOver="this.title=this.value;" readonly value="<% = str_GroupID%>">
  620. <select name="selectPop" id="selectPop" style="overflow:hidden;" onChange="ChooseExeName();">
  621. <option value="" selected>选择会员组</option>
  622. <option value="del" style="color:red;">清空</option>
  623. <% = MF_GetUserGroupID %>
  624. </select>
  625. <a href="../../help?Lable=NS_News_add_pop" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a></td>
  626. </tr>
  627. <tr  id="str_FileName" style="display:<%=str_FileName_1%>" >
  628. <td class="hback">
  629. <div align="right">文件名</div>
  630. </td>
  631. <td class="hback">
  632. <input name="FileName" type="text" value="<% = str_FileName %>" readonly>
  633. <span class="tx">不能修改</span> </td>
  634. <td class="hback">
  635. <div align="right">扩展名</div>
  636. </td>
  637. <td class="hback">
  638. <select name="FileExtName" id="FileExtName">
  639. <option value="html" <%if str_FileExtName = "html" then response.Write("selected")%>>.html</option>
  640. <option value="htm" <%if str_FileExtName = "htm" then response.Write("selected")%>>.htm</option>
  641. <option value="shtml" <%if str_FileExtName = "shtml" then response.Write("selected")%>>.shtml</option>
  642. <option value="shtm" <%if str_FileExtName = "shtm" then response.Write("selected")%>>.shtm</option>
  643. <option value="asp" <%if str_FileExtName = "asp" then response.Write("selected")%>>.asp</option>
  644. </select>
  645. </td>
  646. </tr>
  647. <tr >
  648. <td class="hback">
  649. <div align="right">添加日期</div>
  650. </td>
  651. <td class="hback">
  652. <input name="addtime" type="text" id="addtime" value="<% = str_addtime %>" size="40" maxlength="255">
  653. </td>
  654. <td class="hback">
  655. <div align="right">点击次数</div>
  656. </td>
  657. <td class="hback">
  658. <input name="Hits" type="text" id="Hits"  value="<% = str_hits %>" size="20" onFocus="Do.these('Hits',function(){return isNumber('Hits','span_Hits','请填写正确的格式',true)})" onKeyUp="Do.these('Hits',function(){return isNumber('Hits','span_Hits','请填写正确的格式',true)})">
  659. <span id="span_Hits"></span></td>
  660. </tr>
  661. <tr >
  662. <td class="hback">
  663. <div align="right"></div>
  664. </td>
  665. <td colspan="3" class="hback">
  666. <input type="submit" name="Submit" value="确认保存<% = Fs_news.allInfotitle %>">
  667. <input type="reset" name="Submit" value="重新设置">
  668. <input name="News_Action" type="hidden" id="News_Action2" value="Edit_Save">
  669. <input name="NewsID" type="hidden" id="NewsID" value="<% = str_NewsID %>">
  670. <input name="d_Id" type="hidden" id="d_Id" value="<%=tmp_defineid%>">
  671. </td>
  672. </tr>
  673. </form>
  674. </table>
  675. </body>
  676. </html>
  677. <%
  678. set Fs_news = nothing
  679. %>
  680. <script language="JavaScript" type="text/JavaScript">
  681. function CheckForm(FormObj)
  682. {
  683. if(FormObj.ClassName.value=="")
  684. {
  685. alert("请选择栏目！");
  686. FormObj.ClassName.focus();
  687. return false;
  688. }
  689. if(FormObj.ClassID.value=="")
  690. {
  691. alert("栏目参数错误！");
  692. FormObj.ClassName.focus();
  693. return false;
  694. }
  695. if(document.NewsForm.NewsTitle.value == "")
  696. {
  697. alert("请填写标题！");
  698. FormObj.NewsTitle.focus();
  699. return false;
  700. }
  701. FormObj.Content.value=FS_Edit1.getXHTMLBody();
  702. return true;
  703. }
  705. function SwitchNewsType(NewsType)
  706. {
  707. switch (NewsType)
  708. {
  709. case "TitleNews":
  710. document.getElementById('str_UrLaddress').style.display='';
  711. document.getElementById('str_CurtTitle').style.display='none';
  712. document.getElementById('str_NewsSmallPicFile').style.display='none';
  713. document.getElementById('str_Templet').style.display='none';
  714. document.getElementById('str_Content').style.display='none';
  715. document.getElementById('str_Author').style.display='none';
  716. document.getElementById('str_GroupID').style.display='none';
  717. document.getElementById('str_FileName').style.display='none';
  718. document.getElementById('str_filt').style.display='none';
  719. break;
  720. case "PicNews":
  721. document.getElementById('str_UrLaddress').style.display='none';
  722. document.getElementById('str_CurtTitle').style.display='';
  723. document.getElementById('str_NewsSmallPicFile').style.display='';
  724. document.getElementById('str_Templet').style.display='';
  725. document.getElementById('str_Content').style.display='';
  726. document.getElementById('str_Author').style.display='';
  727. document.getElementById('str_GroupID').style.display='';
  728. document.getElementById('str_FileName').style.display='';
  729. document.getElementById('str_filt').style.display='';
  730. break;
  731. default :
  732. document.getElementById('str_UrLaddress').style.display='none';
  733. document.getElementById('str_CurtTitle').style.display='';
  734. document.getElementById('str_NewsSmallPicFile').style.display='none';
  735. document.getElementById('str_Templet').style.display='';
  736. document.getElementById('str_Content').style.display='';
  737. document.getElementById('str_Author').style.display='';
  738. document.getElementById('str_GroupID').style.display='';
  739. document.getElementById('str_FileName').style.display='';
  740. document.getElementById('str_filt').style.display='none';
  741. }
  742. }
  743. function getOffsetTop(elm) {
  744. var mOffsetTop = elm.offsetTop;
  745. var mOffsetParent = elm.offsetParent;
  746. while(mOffsetParent){
  747. mOffsetTop += mOffsetParent.offsetTop;
  748. mOffsetParent = mOffsetParent.offsetParent;
  749. }
  750. return mOffsetTop;
  751. }
  752. function getOffsetLeft(elm) {
  753. var mOffsetLeft = elm.offsetLeft;
  754. var mOffsetParent = elm.offsetParent;
  755. while(mOffsetParent) {
  756. mOffsetLeft += mOffsetParent.offsetLeft;
  757. mOffsetParent = mOffsetParent.offsetParent;
  758. }
  759. return mOffsetLeft;
  760. }
  761. function setColor(color)
  762. {
  763. if(ColorImg.id=='FontColorShow' && color=="#") color='#000000';
  764. if(ColorImg.id=='FontBgColorShow' && color=="#") color='#FFFFFF';
  765. if (ColorValue){ColorValue.value = color.substr(1);}
  766. if (ColorImg && color.length>1){
  767. ColorImg.src='Images/Rect.gif';
  768. ColorImg.style.backgroundColor = color;
  769. }else if(color=='#'){ ColorImg.src='Images/rectNoColor.gif';}
  770. document.getElementById("colorPalette").style.visibility="hidden";
  771. }
  772. function SelectClass()
  773. {
  774. var ReturnValue='',TempArray=new Array();
  775. ReturnValue = OpenWindow('lib/SelectClassFrame.asp',400,300,window);
  776. if (ReturnValue.indexOf('***')!=-1)
  777. {
  778. TempArray = ReturnValue.split('***');
  779. document.all.ClassID.value=TempArray[0]
  780. document.all.ClassName.value=TempArray[1]
  781. }
  782. }
  783. function SelectSpecial()
  784. {
  785. var ReturnValue='',TempArray=new Array();
  786. ReturnValue = OpenWindow('lib/SelectspecialFrame.asp',400,300,window);
  787. if (ReturnValue.indexOf('***')!=-1)
  788. {
  789. TempArray = ReturnValue.split('***');
  790. if (document.NewsForm.SpecialID.value.search(TempArray[1])==-1)
  791. {
  792. if(document.all.SpecialID.value=='') document.all.SpecialID.value=TempArray[1];
  793. else document.all.SpecialID.value=document.all.SpecialID.value+','+TempArray[1];
  794. if(document.all.SpecialID_EName.value=='') document.all.SpecialID_EName.value=TempArray[0];
  795. else document.all.SpecialID_EName.value=document.all.SpecialID_EName.value+','+TempArray[0];
  796. }
  797. }
  798. }
  799. function ChooseTodayNewsType()
  800. {
  801. if (document.NewsForm.NewsProperty_tt.checked==true) document.getElementById('TodayNews').style.display='';
  802. else document.getElementById('TodayNews').style.display='none';
  803. }
  804. function GetColor(img_val,input_val)
  805. {
  806. var PaletteLeft,PaletteTop
  807. var obj = document.getElementById("colorPalette");
  808. ColorImg = img_val;
  809. ColorValue = document.getElementById(input_val);
  810. if (obj){
  811. PaletteLeft = getOffsetLeft(ColorImg)
  812. PaletteTop = (getOffsetTop(ColorImg) + ColorImg.offsetHeight)
  813. if (PaletteLeft+150 > parseInt(document.body.clientWidth)) PaletteLeft = parseInt(event.clientX)-260;
  814. if (PaletteTop > parseInt(document.body.clientHeight)) PaletteTop = parseInt(document.body.clientHeight)-165;
  815. obj.style.left = PaletteLeft + "px";
  816. obj.style.top = PaletteTop + "px";
  817. if (obj.style.visibility=="hidden")
  818. {
  819. obj.style.visibility="visible";
  820. }else {
  821. obj.style.visibility="hidden";
  822. }
  823. }
  824. }
  825. </script>
  826. <SCRIPT language="JavaScript">
  827. var DocumentReadyTF=false;
  828. function document.onreadystatechange()
  829. {
  830. ChooseExeName();
  831. }
  832. function ChooseExeName()
  833. {
  834.   var ObjValue = document.NewsForm.selectPop.options[document.NewsForm.selectPop.selectedIndex].value;
  835.   if (ObjValue!='')
  836.   {
  837. if (document.NewsForm.BrowPop.value=='')
  838. document.NewsForm.BrowPop.value = ObjValue;
  839. else if(document.NewsForm.BrowPop.value.indexOf(ObjValue)==-1)
  840. document.NewsForm.BrowPop.value = document.NewsForm.BrowPop.value+","+ObjValue;
  841. if (ObjValue=='del')
  842.    document.NewsForm.BrowPop.value ='';
  843.   }
  844.    CheckNumber(document.NewsForm.PointNumber,"浏览扣点值");
  845.   if (document.NewsForm.PointNumber.value>32767||document.NewsForm.PointNumber.value<-32768||document.NewsForm.PointNumber.value=='0')
  846. {
  847. alert('浏览扣点值超过允许范围！n最大32767，且不能为0');
  848. document.NewsForm.PointNumber.value='';
  849. document.NewsForm.PointNumber.focus();
  850. }
  851.    CheckNumber(document.NewsForm.Money,"浏览金币值");
  852.   if (document.NewsForm.Money.value>32767||document.NewsForm.Money.value<-32768||document.NewsForm.Money.value=='0')
  853. {
  854. alert('浏览金币值超过允许范围！n最大32767，且不能为0');
  855. document.NewsForm.Money.value='';
  856. document.NewsForm.Money.focus();
  857. }
  858.   if (document.NewsForm.BrowPop.value!=''||document.NewsForm.PointNumber.value!=''||document.NewsForm.Money.value!=''){document.NewsForm.FileExtName.options[4].selected=true;document.NewsForm.FileExtName.readonly=true;}
  859.   else {document.NewsForm.FileExtName.readonly=false;}
  860. }
  861. function CheckFileExtName(Obj)
  862. {
  863. if (Obj.value!='')
  864. {
  865. for (var i=0;i<document.all.FileExtName.length;i++)
  866. {
  867. if (document.all.FileExtName.options(i).value=='asp') document.all.FileExtName.options(i).selected=true;
  868. }
  869. document.all.FileExtName.readonly=true;
  870. }
  871. else
  872. {
  873. document.all.FileExtName.readonly=false;
  874. }
  875. }
  876. new Form.Element.Observer($('NewsSmallPicFile'),1,pics_1);
  877. function pics_1()
  878. {
  879. if ($('NewsSmallPicFile').value=='')
  880. {
  881. $('pic_p_1').src='../Images/nopic_supply.gif'
  882. }
  883. else
  884. {
  885. $('pic_p_1').src=$('NewsSmallPicFile').value
  886. }
  887. } 
  888. new Form.Element.Observer($('NewsPicFile'),1,pics_2);
  889. function pics_2()
  890. {
  891. if($('NewsPicFile').value=='')
  892. {
  893. $('pic_p_2').src='../Images/nopic_supply.gif'
  894. }
  895. else
  896. {
  897. $('pic_p_2').src=$('NewsPicFile').value
  898. }
  899. } 
  900. function dels_1()
  901. {
  902. document.NewsForm.NewsSmallPicFile.value=''
  903. }
  904. function dels_2()
  905. {
  906. document.NewsForm.NewsPicFile.value=''
  907. }
  908. </SCRIPT>
  909. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->