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

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

数据库编程

开发平台：

ASP/ASPX

contrEdit.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../../FS_Inc/Const.asp" -->
  3. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  4. <!--#include file="../../FS_Inc/Function.asp" -->
  5. <!--#include file="../../FS_Inc/Func_page.asp" -->
  6. <!--#include file="../lib/strlib.asp" -->
  7. <!--#include file="../lib/UserCheck.asp" -->
  8. <!--#include file="lib/cls_contr.asp"-->
  9. <%'Copyright (c) 2006 Foosun Inc. Code by Einstein.liu
  10. Dim str_CurrPath,action,id,contrObj
  11. Set contrObj=New cls_Contr
  12. action=trim(request.QueryString("action"))
  13. id=NoSqlHack(trim(request.QueryString("id")))
  14. if id<>"" then contrObj.getContrInfo(id)
  15. if action="" then
  16. action="add"
  17. End if
  19. str_CurrPath = Replace("/"&G_VIRTUAL_ROOT_DIR &"/"&G_USERFILES_DIR&"/"&Session("FS_UserNumber"),"//","/")
  20. %>
  21. <html xmlns="http://www.w3.org/1999/xhtml">
  22. <title>User Manage Center-网站内容管理系统</title>
  23. <meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
  24. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  25. <meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
  26. <link href="../images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  27. <head>
  28. <script language="javascript" src="../../FS_Inc/CheckJs.js"></script>
  29. <script language="javascript" src="../../FS_Inc/prototype.js"></script>
  30. <script language="javascript" src="../../FS_Inc/PublicJS.js"></script>
  31. <script language="JavaScript" type="text/javascript" src="../../Editor/FS_scripts/editor.js"></script>
  32. </head>
  33. <body>
  34. <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  35. <tr>
  36. <td>
  37. <!--#include file="../top.asp" -->
  38. </td>
  39. </tr>
  40. </table>
  41. <table width="98%" height="135" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  42. <tr class="back">
  43. <td   colspan="2" class="xingmu" height="26">
  44. <!--#include file="../Top_navi.asp" -->
  45. </td>
  46. </tr>
  47. <tr class="back">
  48. <td width="18%" valign="top" class="hback">
  49. <div align="left">
  50. <!--#include file="../menu.asp" -->
  51. </div>
  52. </td>
  53. <td width="82%" valign="top" class="hback">
  54. <table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  55. <tr>
  56. <td class="hback_1"><a href="contrManage.asp">稿件管理</a> | <font color="#FF0000">编辑稿件</font></td>
  57. </tr>
  58. <tr>
  59. <td>
  60. <form name="contrForm" action="contrAction.asp?action=<%=action%>&id=<%=id%>" method="post">
  61. <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  62. <tr>
  63. <td align="right" class="hback" width="15%">标题：</td>
  64. <td class="hback">
  65. <input type="text" name="txt_ContTitle" id="txt_ContTitle" value="<%=contrObj.ContTitle%>" style="width:60%"
  66. onfocus="Do.these('txt_ContTitle',function(){ return isEmpty('txt_ContTitle','span_title')})"
  67. onKeyUp="Do.these('txt_ContTitle',function(){ return isEmpty('txt_ContTitle','span_title')})"
  68. />
  69. <span id="span_title"></span></td>
  70. </tr>
  71. <tr>
  72. <td align="right" class="hback">副标题：</td>
  73. <td align="left" class="hback">
  74. <input type="text" name="txt_subTitle" style="width:60%" value="<%=contrObj.subTitle%>" onFocus="this.className='RightInput'">
  75. </td>
  76. </tr>
  77. <tr class="hback">
  78. <td align="right">正文：</td>
  79. <td aling="left">
  80. <!--编辑器开始-->
  81. <pre id="idTemporary" name="idTemporary" style="display:none"><%=Server.HTMLEncode(contrObj.ContContent)%></pre>
  82. <script language="JavaScript">
  83. <!--
  84. var FS_Edit1 = new InnovaEditor("FS_Edit1");
  85. FS_Edit1.cmdAssetManager="modalDialogShow('../../<% = G_USER_DIR %>/CommPages/SelectPic.asp?CurrPath=<% = str_CurrPath %>&f_UserNumber=<%=FS_User.UserNumber%>',670,450)";
  86. FS_Edit1.width="100%";
  87. FS_Edit1.height="400";
  88. FS_Edit1.btnFlash=true;
  89. FS_Edit1.btnMedia=true;        
  90. FS_Edit1.RENDER($("idTemporary").innerHTML);
  91. //-->
  92. </script>
  93. <textarea name="txt_content" style="display:none" ></textarea>
  94. <!--编辑器结束-->
  95. <span id="span_content"></span></td>
  96. </tr>
  97. <tr>
  98. <td align="right" class="hback">备注：</td>
  99. <td align="left" class="hback">
  100. <textarea name="txt_OtherContent" rows="5" style="width:80%" onFocus="this.className='RightInput'"><%=contrObj.OtherContent%></textarea>
  101. </td>
  102. </tr>
  103. <tr>
  104. <%
  105. Dim classRs,ClassCName,MainClassName
  106. if contrObj.ClassID<>"" then
  107. Set ClassRs=User_Conn.execute("select ClassCName from FS_ME_InfoClass where classid="&contrObj.ClassID)
  108. if not ClassRs.eof then
  109. ClassCName=ClassRs("ClassCName")
  110. Else
  111. ClassCName=""
  112. End if
  113. Else
  114. ClassCName=""
  115. End if
  116. if contrObj.MainID<>"" then
  117. Set ClassRs=Conn.execute("select ClassName from FS_NS_NewsClass where id="&contrObj.MainID)
  118. if not ClassRs.eof then
  119. MainClassName=ClassRs("ClassName")
  120. Else
  121. MainClassName=""
  122. End if
  123. Else
  124. MainClassName=""
  125. End if
  126. if isNull(classRs) then classRs.close:set classRs=nothing
  127. %>
  128. <td align="right" class="hback">信息分类：</td>
  129. <td align="left" class="hback">
  130. <input type="text" name="txt_Class" style="width:60%" readonly  value="<%=ClassCName%>"/>
  131. <input type="hidden" name="txt_ClassID" style="width:60%" value="<%=contrObj.ClassID%>">
  132. <button onClick="SelectClass()">选择分类</button>
  133. <span id="span_class"><font color="#FF0000">*</font></span></td>
  134. </tr>
  135. <tr>
  136. <td align="right" class="hback">主站分类：</td>
  137. <td align="left" class="hback">
  138. <input type="text" name="txt_mainClass" style="width:60%" readonly value="<%=MainClassName%>" />
  139. <%
  140. Dim tmpRs,Str_MainID
  141. if contrObj.MainID<>"" then
  142. Set tmpRs=Conn.execute("select Classid from FS_NS_NewsClass where id="&contrObj.MainID&"") 
  143. if not tmpRs.eof then
  144. Str_MainID=tmpRs(0)
  145. End if
  146. tmpRs.close
  147. else
  148. Str_MainID=""
  149. end if
  150. Set tmpRs=nothing
  151. %>
  152. <input type="hidden" name="txt_mainClassID" style="width:60%" value="<%=Str_MainID%>">
  153. <button onClick="SelectMainClass()">选择分类</button>
  154. <span id="span_Mainclass"><font color="#FF0000">*</font></span></td>
  155. </tr>
  156. <tr>
  157. <td align="right" class="hback">关键字：</td>
  158. <td align="left" class="hback">
  159. <textarea name="txt_KeyWords" id="txt_KeyWords" rows="5" style="width:80%" onFocus="this.className='RightInput'" onKeyUp="ReplaceDot('txt_KeyWords')"><%=contrObj.KeyWords%></textarea>
  160. </td>
  161. </tr>
  162. <tr>
  163. <td align="right" class="hback">发布到总站：</td>
  164. <td align="left" class="hback">
  165. <p>
  166. <label>
  167. <input type="radio" name="rad_IsPublic" value="1" <%if contrObj.IsPublic="1" then Response.Write("checked")%>>
  168. 是</label>
  169. <label>
  170. <input type="radio" name="rad_IsPublic" value="0" <%if contrObj.IsPublic<>"1"  then Response.Write("checked")%>>
  171. 否</label>
  172. </p>
  173. </td>
  174. </tr>
  175. <tr>
  176. <td align="right" class="hback">信息级：</td>
  177. <td align="left" class="hback">
  178. <select name="sel_InfoType">
  179. <option value="0" <%if contrObj.InfoType="0" then Response.Write("selected")%>>普通</option>
  180. <option value="1" <%if contrObj.InfoType="1" then Response.Write("selected")%>>优先</option>
  181. <option value="2" <%if contrObj.InfoType="2" then Response.Write("selected")%>>加急</option>
  182. </select>
  183. </td>
  184. </tr>
  185. <tr>
  186. <td align="right" class="hback">类型：</td>
  187. <td align="left" class="hback">
  188. <select name="sel_ContSytle" id="sel_ContSytle">
  189. <option value="0" <%if contrObj.ContSytle="0" then Response.Write("selected")%>>原创</option>
  190. <option value="1" <%if contrObj.ContSytle="1" then Response.Write("selected")%>>转载</option>
  191. <option value="3" <%if contrObj.ContSytle="3" then Response.Write("selected")%>>代理</option>
  192. </select>
  193. </td>
  194. </tr>
  195. <tr>
  196. <td align="right" class="hback">锁定：</td>
  197. <td align="left" class="hback">
  198. <p>
  199. <label>
  200. <input type="radio" name="rad_IsLock" value="1" <%if contrObj.IsLock="1" then Response.Write("checked")%>>
  201. 是</label>
  202. <label>
  203. <input type="radio" name="rad_IsLock" value="0" <%if contrObj.IsLock<>"1" then Response.Write("checked")%>>
  204. 否</label>
  205. </p>
  206. </td>
  207. </tr>
  208. <tr>
  209. <td align="right" class="hback">推荐：</td>
  210. <td align="left" class="hback">
  211. <label>
  212. <input type="radio" name="rad_isTF" value="1" <%if contrObj.isTF="1" then Response.Write("checked")%>>
  213. 是</label>
  214. <label>
  215. <input type="radio" name="rad_isTF" value="0" <%if contrObj.isTF<>"1" then Response.Write("checked")%>>
  216. 否</label>
  217. </td>
  218. </tr>
  219. <tr>
  220. <td align="right" class="hback">图片：</td>
  221. <td align="left" class="hback">
  222. <input type="text" name="txt_img" id="txt_img" value="<%=contrObj.PicFile%>" style="width:60%">
  223. <button onClick="javascript:OpenWindowAndSetValue('../CommPages/SelectPic.asp?CurrPath=<% = str_CurrPath %>&f_UserNumber=<% = session("FS_UserNumber")%>',500,320,window,$('txt_img'));">选择图片</button>
  224. </td>
  225. </tr>
  226. <tr>
  227. <td align="right" class="hback">&nbsp;</td>
  228. <td align="left" class="hback">
  229. <input type="Button" name="contr_Submit" value="提交" onClick="mySubmit(this.form)">
  230. <input type="Button" name="contr_reset" value="重置" onClick="javascript:if(confirm('是否重设表单？'))$('contrForm').reset()">
  231. </td>
  232. </tr>
  233. </table>
  234. </form>
  235. </td>
  236. </tr>
  237. </table>
  238. </td>
  239. </tr>
  240. <tr class="back">
  241. <td height="20"  colspan="2" class="xingmu">
  242. <div align="left">
  243. <!--#include file="../Copyright.asp" -->
  244. </div>
  245. </td>
  246. </tr>
  247. </table>
  248. </body>
  249. </html>
  250. <%
  251. Set Fs_User = Nothing
  252. Set User_Conn=nothing
  253. Set Conn=nothing
  254. %>
  255. <script language="javascript">
  256. <!--
  257. //获得主站分类
  258. function SelectMainClass()
  259. {
  260. var ReturnValue='',TempArray=new Array();
  261. ReturnValue = OpenWindow('lib/SelectClassFrame.asp?rad'+Math.random(),400,300,window);
  262. if (ReturnValue.indexOf('***')!=-1)
  263. {
  264. TempArray = ReturnValue.split('***');
  265. $('txt_mainClassID').value=TempArray[0]
  266. $('txt_mainClass').value=TempArray[1]
  267. }
  268. }
  269. //获得分类
  270. function SelectClass()
  271. {
  272. var ReturnValue='',TempArray=new Array();
  273. ReturnValue = OpenWindow('lib/SelectMyClassFrame.asp?rad'+Math.random(),400,300,window);
  274. if (ReturnValue.indexOf('***')!=-1)
  275. {
  276. TempArray = ReturnValue.split('***');
  277. $('txt_ClassID').value=TempArray[0]
  278. $('txt_Class').value=TempArray[1]
  279. }
  280. }
  281. //提交表单
  282. function mySubmit(FormObj)
  283. {
  284. FormObj.txt_content.value=FS_Edit1.getXHTMLBody();
  285. var flag1=isEmpty('txt_ContTitle','span_title');
  286. var flag2=isEmpty('txt_Content','span_content');
  287. var flag3=isEmpty('txt_Class','span_class');
  288. var flag4=isEmpty('txt_mainClass','span_Mainclass');
  289. if(flag1&&flag2&&flag3&&flag4)
  290. {
  291. FormObj.submit();
  292. }
  293. }
  294. -->
  295. </script>
  296. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->