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

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

数据库编程

开发平台：

ASP/ASPX

News_add_Conc.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,tmp_sFileExtName,tmp_sTemplets,tmp_defineid
  9. Dim Fs_news,str_ClassID,news_SQL,obj_news_rs,icNum,isUrlStr,str_Href,str_Href_title,obj_news_rs_1,str_action,obj_cnews_rs,news_count,str_CurrPath
  10. MF_Default_Conn
  11. MF_User_Conn
  12. MF_GetUserGroupID
  13. 'session判断
  14. MF_Session_TF 
  15. '权限判断
  16. set Fs_news = new Cls_News
  17. Fs_News.GetSysParam()
  18. if Fs_News.isOpen=0 then
  19. Response.Redirect("lib/error.asp?ErrCodes=<li>新闻发布功能关闭!</li>&ErrorURL=")
  20. Response.End()
  21. end if
  22. If Not Fs_news.IsSelfRefer Then response.write "非法提交数据":Response.end
  23. str_ClassID = NoSqlHack(Request.QueryString("ClassID"))
  24. if not Get_SubPop_TF(str_ClassID,"NS001","NS","news") then Err_Show
  25. if Trim(str_ClassID)<>"" then
  26. Dim tmp_class_obj
  27. set tmp_class_obj = conn.execute("select FileExtName,NewsTemplet,DefineID from FS_NS_NewsClass where classID='"& str_ClassID &"'")
  28. if not tmp_class_obj.eof then
  29. Select Case tmp_class_obj(0)
  30. Case "html"
  31. tmp_sFileExtName = 0
  32. Case "htm"
  33. tmp_sFileExtName =1
  34. Case "shtml"
  35. tmp_sFileExtName = 2
  36. Case "shtm"
  37. tmp_sFileExtName = 3
  38. Case "asp"
  39. tmp_sFileExtName = 4
  40. End Select
  41. tmp_sTemplets = tmp_class_obj(1)
  42. tmp_defineid = tmp_class_obj(2)
  43. tmp_class_obj.close:set tmp_class_obj=nothing
  44. Else
  45. tmp_defineid = 0
  46. tmp_sFileExtName = fs_news.fileExtName
  47. tmp_sTemplets = Replace("/"& G_TEMPLETS_DIR &"/NewsClass/news.htm","//","/")
  48. end if
  49. Else
  50. tmp_sFileExtName = fs_news.fileExtName
  51. tmp_sTemplets = Replace("/"& G_TEMPLETS_DIR &"/NewsClass/news.htm","//","/")
  52. End if
  53. if G_VIRTUAL_ROOT_DIR<>"" then sRootDir="/"+G_VIRTUAL_ROOT_DIR else sRootDir=""
  54. if Session("Admin_Is_Super") = 1 then
  55. str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
  56. Else
  57. str_CurrPath = Replace(sRootDir &"/"&G_UP_FILES_DIR&"/adminfiles/"&Session("Admin_Name"),"//","/")
  58. End if
  59. %>
  60. <html>
  61. <head>
  62. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  63. <title>管理___Powered by foosun Inc.</title>
  64. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  65. <link rel="Stylesheet" href="../../word_edit/images/word_edit.css" type="text/css" media="all" />
  66. </head>
  67. <body>
  68. <script language="JavaScript" src="js/Public.js"></script>
  69. <script language="JavaScript" src="../../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
  70. <script language="JavaScript" src="../../FS_Inc/Prototype.js" type="text/JavaScript"></script>
  71. <script language="JavaScript" src="../../FS_Inc/CheckJs.js" type="text/JavaScript"></script>
  72. <script language="JavaScript" type="text/javascript" src="../../FS_Inc/Get_Domain.asp"></script>
  73. <script language="JavaScript" type="text/javascript" src="../../Editor/FS_scripts/editor.js"></script>
  74. <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>
  75. <table width="98%" border="0" cellspacing="0" cellpadding="0">
  76. <tr>
  77. <td height="1"></td>
  78. </tr>
  79. </table>
  80. <table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  81. <form action="News_Save.asp" name="NewsForm" method="post">
  82. <tr class="xingmu">
  83. <td colspan="4" class="xingmu">添加
  84. <% = Fs_news.allInfotitle %>
  85. <a href="../../help?Lable=NS_News_add" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a></td>
  86. </tr>
  87. <tr class="hback">
  88. <td class="hback">
  89. <div align="right">
  90. <table width="95" border="0" cellspacing="0" cellpadding="0">
  91. <tr>
  92. <td height="1"></td>
  93. </tr>
  94. </table>
  95. <% = Fs_news.allInfotitle %>
  96. 类型 </div>
  97. </td>
  98. <td colspan="3" class="hback">
  99. <input name=NewsType type=radio id="NewsType" onClick="SwitchNewsType('TextNews');" value="TextNews" checked>
  100. 普通
  101. <input name=NewsType type=radio id="NewsType" onClick="SwitchNewsType('PicNews');" value="PicNews">
  102. 图片
  103. <input name=NewsType type=radio id="NewsType" onClick="SwitchNewsType('TitleNews');" value="TitleNews">
  104. 标题 　&nbsp;&nbsp;　　
  105. <input name="isdraft" type="checkbox" id="isdraft" value="1">
  106. 存到草稿箱中</td>
  107. </tr>
  108. <tr class="hback">
  109. <td width="12%" class="hback">
  110. <div align="right">
  111. <% = Fs_news.allInfotitle %>
  112. 标题</div>
  113. </td>
  114. <td colspan="3" class="hback">
  115. <input name="NewsTitle" type="text" id="NewsTitle" size="40" maxlength="255">
  116. <input name="TitleColor" id="TitleColor" type="hidden">
  117. <img src="images/rectNoColor.gif" width="18" height="17" border=0 align="absmiddle" id="TitleColorShow" style="cursor:pointer;background-color:;" title="选取颜色!" onClick="GetColor(document.getElementById('TitleColorShow'),'TitleColor');">
  118. <input name="titleBorder" type="checkbox" id="titleBorder" value="1">
  119. 粗体
  120. <input name="TitleItalic" type="checkbox" id="TitleItalic" value="1">
  121. 斜体
  122. <input name="isShowReview" type="checkbox" id="isShowReview" value="1">
  123. 评论连接 　权重
  124. <select name="PopID" id="PopID">
  125. <option value="5">总置顶</option>
  126. <option value="4">栏目置顶</option>
  127. <option value="0" selected>一般</option>
  128. </select>
  129. </td>
  130. </tr>
  131. <tr class="hback">
  132. <td class="hback">
  133. <div align="right">选择栏目</div>
  134. </td>
  135. <td colspan="3" class="hback">
  136. <input name="ClassName" type="text" id="ClassName5" style="width:50%" value="<%=Fs_News.GetAdd_ClassName(str_ClassID)%>" readonly>
  137. <input name="ClassID" type="hidden" id="ClassID" value="<% = str_ClassID %>">
  138. <input type="button" name="Submit" value="选择栏目"   onClick="SelectClass();">
  139. </td>
  140. </tr>
  141. <tr class="hback" style="display:none">
  142. <td class="hback">
  143. <div align="right">选择专题</div>
  144. </td>
  145. <td colspan="3" class="hback">
  146. <input name="SpecialID" type="text" id="SpecialID" style="width:50%" readonly>
  147. <input name="SpecialID_EName" type="hidden" id="SpecialID_EName">
  148. <span class="tx"> </span>
  149. <input type="button" name="Submit" value="选择专题"   onClick="SelectSpecial();">
  150. <span class="tx">
  151. <input name="Submit" type="button" id="Submit" onClick="dospclear();" value="清除专题">
  152. </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>
  153. </tr>
  154. <tr class="hback" id="str_URLAddress" style="display:none;">
  155. <td class="hback">
  156. <div align="right">连接地址 </div>
  157. </td>
  158. <td colspan="3" class="hback">
  159. <input name="URLAddress" type="text" id="URLAddress"  style="width:96%" maxlength="255">
  160. </td>
  161. </tr>
  162. <tr class="hback" id="str_CurtTitle" style="display:none">
  163. <td class="hback">
  164. <div align="right"> 副标题</div>
  165. </td>
  166. <td width="38%" class="hback">
  167. <input name="CurtTitle" type="text" id="CurtTitle" size="40" maxlength="255">
  168. </td>
  169. <td width="10%" class="hback">
  170. <div align="right">关键字</div>
  171. </td>
  172. <td width="40%" class="hback">
  173. <input name="KeywordText" type="text" id="KeywordText" size="15" maxlength="255">
  174. <input name="KeyWords" type="hidden" id="KeyWords">
  175. <select name="selectKeywords" id="selectKeywords" style="width:120px" onChange=Dokesite(this.options[this.selectedIndex].value)>
  176. <option value="" selected>选择关键字</option>
  177. <option value="Clean" style="color:red">清空</option>
  178. <%=Fs_news.GetKeywordslist("",1)%>
  179. </select>
  180. <input name="KeywordSaveTF" type="checkbox" id="KeywordSaveTF" value="1">
  181. 记忆</td>
  182. </tr>
  183. <tr class="hback"  id="str_Templet" style="display:none">
  184. <td class="hback">
  185. <div align="right">模板地址</div>
  186. </td>
  187. <td colspan="3" class="hback">
  188. <input name="Templet" type="text" id="Templet" style="width:85%" value="<%=tmp_sTemplets%>" maxlength="255" readonly>
  189. <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();">
  190. </td>
  191. </tr>
  192. <tr class="hback" id="str_NewsSmallPicFile" style="display:none">
  193. <td class="hback">
  194. <div align="right">图片(小)</div>
  195. </td>
  196. <td colspan="3" class="hback">
  197. <input name="NewsSmallPicFile" type="text" id="NewsSmallPicFile" style="width:85%" maxlength="255">
  198. <input type="button" name="PPPChoose"  value="选择图片" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPic.asp?CurrPath=<%=str_CurrPath %>',500,300,window,document.NewsForm.NewsSmallPicFile);">
  199. </td>
  200. </tr>
  201. <tr class="hback" id="str_NewsPicFile" style="display:none">
  202. <td class="hback">
  203. <div align="right">图片(大)</div>
  204. </td>
  205. <td colspan="3" class="hback">
  206. <input name="NewsPicFile" type="text" id="NewsPicFile" style="width:85%" maxlength="255">
  207. <input type="button" name="PPPChoose2"  value="选择图片" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPic.asp?CurrPath=<%=str_CurrPath %>',500,300,window,document.NewsForm.NewsPicFile);">
  208. </td>
  209. </tr>
  210. <tr class="hback" id="str_PicborderCss" style="display:none">
  211. <td class="hback">
  212. <div align="right">图片CSS</div>
  213. </td>
  214. <td colspan="3" class="hback">
  215. <select name="PicborderCss" id="PicborderCss">
  216. <option value="1" selected>图片CSS样式一</option>
  217. <option value="2">图片CSS样式二</option>
  218. <option value="3">图片CSS样式三</option>
  219. <option value="4">图片CSS样式四</option>
  220. <option value="5">图片CSS样式五</option>
  221. </select>
  222. 图片前台显示CSS样式，方便加边框　　<a href="../../help?Lable=NS_News_add_PicCSS" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a></td>
  223. </tr>
  224. <tr class="hback" id="str_Author" style="display:none">
  225. <td class="hback">
  226. <div align="right">
  227. <% = Fs_news.allInfotitle %>
  228. 作者</div>
  229. </td>
  230. <td class="hback">
  231. <input name="Author" type="text" id="Author" size="15" maxlength="255">
  232. <select name="selectAuthor" id="selectAuthor" style="width:120px"  onChange="document.NewsForm.Author.value=this.options[this.selectedIndex].text;">
  233. <option style="color:red"> </option>
  234. <option value="佚名">佚名</option>
  235. <option value="本站">本站</option>
  236. <option value="未知">未知</option>
  237. <%=Fs_news.GetKeywordslist("",3)%>
  238. </select>
  239. <input name="AuthorSaveTF" type="checkbox" id="AuthorSaveTF" value="1">
  240. 记忆</td>
  241. <td class="hback">
  242. <div align="right">
  243. <% = Fs_news.allInfotitle %>
  244. 来源</div>
  245. </td>
  246. <td class="hback">
  247. <input name="Source" type="text" id="Source" size="15" maxlength="255">
  248. <select name="selectSource" id="selectSource" style="width:120px"  onChange="document.NewsForm.Source.value=this.options[this.selectedIndex].text;">
  249. <option value="" selected> </option>
  250. <option value="本站原创">本站原创</option>
  251. <option value="不详">不详</option>
  252. <%=Fs_news.GetKeywordslist("",2)%>
  253. </select>
  254. <input name="SourceSaveTF" type="checkbox" id="SourceSaveTF" value="1">
  255. 记忆</td>
  256. </tr>
  257. <tr class="hback" style="display:none">
  258. <td class="hback">
  259. <div align="right">
  260. <% = Fs_news.allInfotitle %>
  261. 导读</div>
  262. </td>
  263. <td colspan="3" class="hback">
  264. <div align="left">
  265. <textarea name="NewsNaviContent" rows="6" id="NewsNaviContent" style="width:96%"></textarea>
  266. </div>
  267. </td>
  268. </tr>
  269. <tr class="hback">
  270. <td class="hback">
  271. <div align="right">类型</div>
  272. </td>
  273. <td colspan="3" class="hback">
  274. <div align="left">
  275. <input name="NewsProperty_Rec" type="checkbox" id="NewsProperty" value="1">
  276. 推荐
  277. <input name="NewsProperty_mar" type="checkbox" id="NewsProperty" value="1" checked>
  278. 滚动
  279. <input name="NewsProperty_rev" type="checkbox" id="NewsProperty" value="1" checked>
  280. 允许评论
  281. <input name="NewsProperty_constr" type="checkbox" id="NewsProperty" value="1">
  282. 投稿
  283. <input name="NewsProperty_tt" type="checkbox" id="NewsProperty" value="1"  onClick="ChooseTodayNewsType();">
  284. 头条
  285. <input name="NewsProperty_hots" type="checkbox" id="NewsProperty" value="1">
  286. 热点
  287. <input name="NewsProperty_jc" type="checkbox" id="NewsProperty" value="1">
  288. 精彩
  289. <input name="NewsProperty_unr" type="checkbox" id="NewsProperty" value="1">
  290. 不规则
  291. <input name="NewsProperty_ann" type="checkbox" id="NewsProperty" value="1">
  292. 公告 <span id="str_filt" style="display:none">
  293. <input name="NewsProperty_filt" type="checkbox" id="NewsProperty" value="1">
  294. 幻灯</span></div>
  295. </td>
  296. </tr>
  297. <tr bgcolor="#FFFFFF" id="TodayNews" style="display:none;">
  298. <td colspan="4" class="hback">
  299. <table width="100%" border="0" cellspacing="1" cellpadding="2" class="table">
  300. <tr>
  301. <td height="26" align="center" width="120" class="xingmu">头条
  302. <% = Fs_news.allInfotitle %>
  303. 类型：</td>
  304. <td height="26" class="hback">
  305. <input name="TodayNewsPicTF" value="" type="radio" checked onClick="if(this.checked){document.getElementById('TodayPicParam').style.display='none';}">
  306. 文字头条
  307. <input name="TodayNewsPicTF" value="FoosunCMS" type="radio" onClick="if(this.checked){document.getElementById('TodayPicParam').style.display='';}">
  308. 图片头条 　　<a href="../../help?Lable=NS_News_add_tt" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a></td>
  309. </tr>
  310. <tr id="TodayPicParam" style="display:none;">
  311. <td width="120" height="26" align="center"  class="xingmu">头条
  312. <% = Fs_news.allInfotitle %>
  313. 参数：</td>
  314. <td height="26" class="hback">&nbsp;&nbsp;字体
  315. <SELECT name="FontFace" id="FontFace">
  316. <option value="宋体">宋体</option>
  317. <option value="楷体_GB2312">楷体</option>
  318. <option value="新宋体">新宋体</option>
  319. <option value="黑体">黑体</option>
  320. <option value="隶书">隶书</option>
  321. <OPTION value="Andale Mono">Andale Mono</OPTION>
  322. <OPTION value="Arial">Arial</OPTION>
  323. <OPTION value="Arial Black">Arial Black</OPTION>
  324. <OPTION value="Book Antiqua" >Book Antiqua</OPTION>
  325. <OPTION value="Century Gothic">Century Gothic</OPTION>
  326. <OPTION value="Comic Sans MS">Comic Sans MS</OPTION>
  327. <OPTION value="Courier New">Courier New</OPTION>
  328. <OPTION value="Georgia">Georgia</OPTION>
  329. <OPTION value="Impact">Impact</OPTION>
  330. <OPTION value="Tahoma">Tahoma</OPTION>
  331. <OPTION value="Times New Roman">Times New Roman</OPTION>
  332. <OPTION value="Trebuchet MS">Trebuchet MS</OPTION>
  333. <OPTION value="Script MT Bold">Script MT Bold</OPTION>
  334. <OPTION value="Stencil">Stencil</OPTION>
  335. <OPTION value="Verdana">Verdana</OPTION>
  336. <OPTION value="Lucida Console">Lucida Console</OPTION>
  337. </SELECT>
  338. <select name="FontSize">
  339. <option value="8">8px</option>
  340. <option value="9">9px</option>
  341. <option value="10">10px</option>
  342. <option value="12">12px</option>
  343. <option value="18">18px</option>
  344. <option value="20">20px</option>
  345. <option value="24">24px</option>
  346. <option value="28">28px</option>
  347. <option value="30">30px</option>
  348. <option value="32">32px</option>
  349. <option value="36">36px</option>
  350. <option value="40">40px</option>
  351. <option value="48">48px</option>
  352. <option value="54">54px</option>
  353. <option value="60">60px</option>
  354. <option value="72">72px</option>
  355. </select>
  356. <input type="text" name="FontColor" maxlength=7 size=7 id="FontColor" value="000000">
  357. <img src="images/rect.gif" width="18" height="17" border=0 align=absmiddle id="FontColorShow" style="cursor:pointer;background-Color:#000000;" title="选取颜色!" onClick="GetColor(this,'FontColor');"> 　　 字体间距：
  358. <INPUT TYPE="text" maxlength="3" NAME="FontSpace" size=3 value="12">
  359. px 图片背景色
  360. <input type="text" name="FontBgColor" maxlength=7 size=7 id="FontBgColor" value="FFFFFF">
  361. <img src="images/rect.gif" width="18" height="17" border=0 align=absmiddle id="FontBgColorShow" style="cursor:pointer;background-Color:;" title="选取颜色!" onClick="GetColor(this,'FontBgColor');"> </td>
  362. </tr>
  363. </table>
  364. </td>
  365. </tr>
  366. <tr  id="str_Content" style="display:" >
  367. <td height="303" class="hback">
  368. <div align="left">
  369. <input name="NewsProperty_Remote" type="checkbox" id="NewsProperty_Remote" value="1">
  370. 远程存图 <br>
  371. <span class="tx">启用此功能后，如果从其它网站上复制到右边的编辑器中，并且中包含有图片，本系统会在保存文章时自动把相关图片复制到本站服务器上。<br>
  372. 系统会因所下载图片的大小而影响速度，建议图片较多时不要使用此功能。</span> </div>
  373. </td>
  374. <td height="303" colspan="3" class="hback">
  375. <!--编辑器开始-->
  376. <pre id="idTemporary" name="idTemporary" style="display:none"></pre>
  377. <script language="JavaScript">
  378. <!--
  379. var FS_Edit1 = new InnovaEditor("FS_Edit1");
  380. FS_Edit1.cmdAssetManager="modalDialogShow('../../<% = G_ADMIN_DIR %>/CommPages/SelectManageDir/SelectPic.asp?CurrPath=<% = str_CurrPath %>',670,450)";
  381. FS_Edit1.width="100%";
  382. FS_Edit1.height="360";
  383. FS_Edit1.btnFlash=true;
  384. FS_Edit1.btnMedia=true;        
  385. FS_Edit1.btnCustomTag=true;
  386. FS_Edit1.arrCustomTag=[["Fs:Page","[FS:PAGE]"]];
  387. FS_Edit1.RENDER($("idTemporary").innerHTML);
  388. //-->
  389. </script>
  390. <textarea name="Content" style="display:none" ></textarea>
  391. <!--编辑器结束-->
  392. </td>
  393. </tr>
  394. <tr class="hback" id="str_GroupID" style="display:none">
  395. <td class="hback">
  396. <div align="right">浏览点数</div>
  397. </td>
  398. <td colspan="3" class="hback">
  399. <input name="PointNumber" type="text" id="PointNumber2" size="16"  onChange="ChooseExeName();">
  400. 金币
  401. <input name="Money" type="text" id="Money2" size="16"  onChange="ChooseExeName();">
  402. 浏览权限
  403. <input name="BrowPop"  id="BrowPop" type="text" onMouseOver="this.title=this.value;" readonly>
  404. <select name="selectPop" id="selectPop" style="overflow:hidden;" onChange="ChooseExeName();">
  405. <option value="" selected>选择会员组</option>
  406. <option value="del" style="color:red;">清空</option>
  407. <% = MF_GetUserGroupID %>
  408. </select>
  409. <a href="../../help?Lable=NS_News_add_pop" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a></td>
  410. </tr>
  411. <tr class="hback" id="str_FileName" style="display:none">
  412. <td class="hback">
  413. <div align="right">文件名</div>
  414. </td>
  415. <td class="hback">
  416. <%
  417.   Dim RoTF
  418.   if instr(Fs_News.strFileNameRule(Fs_News.fileNameRule,0,0),"自动编号ID")>0 then:RoTF="Readonly":End if
  419.   Response.Write"<input name=""FileName"" type=""text"" id=""FileName"" size=""40"" "& RoTF &" maxlength=""255"" value="""&Fs_News.strFileNameRule(Fs_News.fileNameRule,0,0)&""" title=""如果参数设置中设定为自动编号，将不能修改"">"
  420.   %>
  421. </td>
  422. <td class="hback">
  423. <div align="right">扩展名</div>
  424. </td>
  425. <td class="hback">
  426. <select name="FileExtName" id="FileExtName">
  427. <option value="html" <%if tmp_sFileExtName = 0 then response.Write("selected")%>>.html</option>
  428. <option value="htm" <%if tmp_sFileExtName = 1 then response.Write("selected")%>>.htm</option>
  429. <option value="shtml" <%if tmp_sFileExtName = 2 then response.Write("selected")%>>.shtml</option>
  430. <option value="shtm" <%if tmp_sFileExtName = 3 then response.Write("selected")%>>.shtm</option>
  431. <option value="asp" <%if tmp_sFileExtName = 4 then response.Write("selected")%>>.asp</option>
  432. </select>
  433. </td>
  434. </tr>
  435. <tr class="hback">
  436. <td class="hback">
  437. <div align="right">添加日期</div>
  438. </td>
  439. <td class="hback">
  440. <input name="addtime" type="text" id="addtime" value="<% = now %>" size="40" maxlength="255">
  441. </td>
  442. <td class="hback">
  443. <div align="right">点击次数</div>
  444. </td>
  445. <td class="hback">
  446. <input name="Hits" type="text" id="Hits" value="0" size="20">
  447. </td>
  448. </tr>
  449. <tr class="hback">
  450. <td class="hback">
  451. <div align="right"></div>
  452. </td>
  453. <td colspan="3" class="hback">
  454. <input type="button" name="Submit" value="确认保存<% = Fs_news.allInfotitle %>" onClick="SubmitFun(this.form);">
  455. <input name="d_Id" type="hidden" id="d_Id" value="<%=tmp_defineid%>">
  456. <input type="reset" name="Submit4" value="重新设置">
  457. <input name="News_Action" type="hidden" id="News_Action2" value="add_Save">
  458. </td>
  459. </tr>
  460. </form>
  461. </table>
  462. </body>
  463. </html>
  464. <%
  465. set tmp_class_obj = nothing
  466. set Fs_news = nothing
  467. %>
  468. <script language="JavaScript" type="text/JavaScript">
  469. function SubmitFun(FormObj)
  470. {
  471. if(FormObj.ClassID.value=="")
  472. {
  473. alert("请选择栏目！");
  474. FormObj.ClassName.focus();
  475. return false;
  476. }
  477. if(FormObj.ClassID.value=="")
  478. {
  479. alert("栏目参数错误！");
  480. FormObj.ClassName.focus();
  481. return false;
  482. }
  483. if(FormObj.NewsTitle.value == "")
  484. {
  485. alert("请填写标题！");
  486. FormObj.NewsTitle.focus();
  487. return false;
  488. }
  489. FormObj.Content.value=FS_Edit1.getXHTMLBody();
  490. FormObj.submit();
  491. }
  492. function SwitchNewsType(NewsType)
  493. {
  494. switch (NewsType)
  495. {
  496. case "TitleNews":
  497. document.getElementById('str_UrLaddress').style.display='';
  498. document.getElementById('str_NewsPicFile').style.display='none';
  499. document.getElementById('str_NewsSmallPicFile').style.display='none';
  500. document.getElementById('str_Content').style.display='none';
  501. document.getElementById('str_GroupID').style.display='none';
  502. document.getElementById('str_filt').style.display='none';
  503. break;
  504. case "PicNews":
  505. document.getElementById('str_UrLaddress').style.display='none';
  506. document.getElementById('str_NewsPicFile').style.display='';
  507. document.getElementById('str_NewsSmallPicFile').style.display='';
  508. document.getElementById('str_Content').style.display='';
  509. document.getElementById('str_filt').style.display='';
  511. //setChecked('PicNews',true);
  512. //setChecked('TitleNews',false);
  513. //setChecked('TextNews',false);
  514. //ChoosePicType();
  515. break;
  516. default :
  517. document.getElementById('str_UrLaddress').style.display='none';
  518. document.getElementById('str_NewsPicFile').style.display='none';
  519. document.getElementById('str_NewsSmallPicFile').style.display='none';
  520. document.getElementById('str_Content').style.display='';
  521. document.getElementById('str_filt').style.display='none';
  522. }
  523. }
  524. function getOffsetTop(elm) {
  525. var mOffsetTop = elm.offsetTop;
  526. var mOffsetParent = elm.offsetParent;
  527. while(mOffsetParent){
  528. mOffsetTop += mOffsetParent.offsetTop;
  529. mOffsetParent = mOffsetParent.offsetParent;
  530. }
  531. return mOffsetTop;
  532. }
  533. function getOffsetLeft(elm) {
  534. var mOffsetLeft = elm.offsetLeft;
  535. var mOffsetParent = elm.offsetParent;
  536. while(mOffsetParent) {
  537. mOffsetLeft += mOffsetParent.offsetLeft;
  538. mOffsetParent = mOffsetParent.offsetParent;
  539. }
  540. return mOffsetLeft;
  541. }
  542. function setColor(color)
  543. {
  544. if(ColorImg.id=='FontColorShow' && color=="#") color='#000000';
  545. if(ColorImg.id=='FontBgColorShow' && color=="#") color='#FFFFFF';
  546. if (ColorValue){ColorValue.value = color.substr(1);}
  547. if (ColorImg && color.length>1){
  548. ColorImg.src='Images/Rect.gif';
  549. ColorImg.style.backgroundColor = color;
  550. }else if(color=='#'){ ColorImg.src='Images/rectNoColor.gif';}
  551. document.getElementById("colorPalette").style.visibility="hidden";
  552. }
  553. function SelectClass()
  554. {
  555. var ReturnValue='',TempArray=new Array();
  556. ReturnValue = OpenWindow('lib/SelectClassFrame.asp',400,300,window);
  557. if (ReturnValue.indexOf('***')!=-1)
  558. {
  559. TempArray = ReturnValue.split('***');
  560. document.all.ClassID.value=TempArray[0]
  561. document.all.ClassName.value=TempArray[1]
  562. }
  563. }
  564. function SelectSpecial()
  565. {
  566. var ReturnValue='',TempArray=new Array();
  567. ReturnValue = OpenWindow('lib/SelectspecialFrame.asp',400,300,window);
  568. if (ReturnValue.indexOf('***')!=-1)
  569. {
  570. TempArray = ReturnValue.split('***');
  571. if (document.NewsForm.SpecialID.value.search(TempArray[1])==-1)
  572. {
  573. if(document.all.SpecialID.value=='') document.all.SpecialID.value=TempArray[1];
  574. else document.all.SpecialID.value=document.all.SpecialID.value+','+TempArray[1];
  575. if(document.all.SpecialID_EName.value=='') document.all.SpecialID_EName.value=TempArray[0];
  576. else document.all.SpecialID_EName.value=document.all.SpecialID_EName.value+','+TempArray[0];
  577. }
  578. }
  579. }
  580. function ChooseTodayNewsType()
  581. {
  582. if (document.NewsForm.NewsProperty_tt.checked==true) document.getElementById('TodayNews').style.display='';
  583. else document.getElementById('TodayNews').style.display='none';
  584. }
  585. function GetColor(img_val,input_val)
  586. {
  587. var PaletteLeft,PaletteTop
  588. var obj = document.getElementById("colorPalette");
  589. ColorImg = img_val;
  590. ColorValue = document.getElementById(input_val);
  591. if (obj){
  592. PaletteLeft = getOffsetLeft(ColorImg)
  593. PaletteTop = (getOffsetTop(ColorImg) + ColorImg.offsetHeight)
  594. if (PaletteLeft+150 > parseInt(document.body.clientWidth)) PaletteLeft = parseInt(event.clientX)-260;
  595. if (PaletteTop > parseInt(document.body.clientHeight)) PaletteTop = parseInt(document.body.clientHeight)-165;
  596. obj.style.left = PaletteLeft + "px";
  597. obj.style.top = PaletteTop + "px";
  598. if (obj.style.visibility=="hidden")
  599. {
  600. obj.style.visibility="visible";
  601. }else {
  602. obj.style.visibility="hidden";
  603. }
  604. }
  605. }
  606. </script>
  607. <SCRIPT language="JavaScript">
  608. var DocumentReadyTF=false;
  609. function document.onreadystatechange()
  610. {
  611. ChooseExeName();
  612. }
  613. function ChooseExeName()
  614. {
  615.   var ObjValue = document.NewsForm.selectPop.options[document.NewsForm.selectPop.selectedIndex].value;
  616.   if (ObjValue!='')
  617.   {
  618. if (document.NewsForm.BrowPop.value=='')
  619. document.NewsForm.BrowPop.value = ObjValue;
  620. else if(document.NewsForm.BrowPop.value.indexOf(ObjValue)==-1)
  621. document.NewsForm.BrowPop.value = document.NewsForm.BrowPop.value+","+ObjValue;
  622. if (ObjValue=='del')
  623.    document.NewsForm.BrowPop.value ='';
  624.   }
  625.    CheckNumber(document.NewsForm.PointNumber,"浏览扣点值");
  626.   if (document.NewsForm.PointNumber.value>32767||document.NewsForm.PointNumber.value<-32768||document.NewsForm.PointNumber.value=='0')
  627. {
  628. alert('浏览扣点值超过允许范围！n最大32767，且不能为0');
  629. document.NewsForm.PointNumber.value='';
  630. document.NewsForm.PointNumber.focus();
  631. }
  632.    CheckNumber(document.NewsForm.Money,"浏览金币值");
  633.   if (document.NewsForm.Money.value>32767||document.NewsForm.Money.value<-32768||document.NewsForm.Money.value=='0')
  634. {
  635. alert('浏览金币值超过允许范围！n最大32767，且不能为0');
  636. document.NewsForm.Money.value='';
  637. document.NewsForm.Money.focus();
  638. }
  639.   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;}
  640.   else {document.NewsForm.FileExtName.readonly=false;}
  641. }
  642. function CheckFileExtName(Obj)
  643. {
  644. if (Obj.value!='')
  645. {
  646. for (var i=0;i<document.all.FileExtName.length;i++)
  647. {
  648. if (document.all.FileExtName.options(i).value=='asp') document.all.FileExtName.options(i).selected=true;
  649. }
  650. document.all.FileExtName.readonly=true;
  651. }
  652. else
  653. {
  654. document.all.FileExtName.readonly=false;
  655. }
  656. }
  657. </SCRIPT>
  658. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->