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

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

数据库编程

开发平台：

ASP/ASPX

PublicLogEdit.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="../lib/strlib.asp" -->
  6. <!--#include file="../lib/UserCheck.asp" -->
  7. <%
  8. Dim str_CurrPath,rs
  9. str_CurrPath = Replace("/"&G_VIRTUAL_ROOT_DIR &"/"&G_USERFILES_DIR&"/"&Session("FS_UserNumber"),"//","/")
  10. set rs= Server.CreateObject(G_FS_RS)
  11. rs.open "select * From FS_ME_Infoilog where iLogID="&NoSqlHack(Request.QueryString("id")),User_Conn,1,3
  12. if rs.eof then
  13. strShowErr = "<li>错误的参数！</li>"
  14. Response.Redirect("../lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../i_Blog/index.asp")
  15. Response.end
  16. rs.close:set rs = nothing
  17. end if
  18. %>
  19. <html xmlns="http://www.w3.org/1999/xhtml">
  20. <title>User Manage Center-网站内容管理系统</title>
  21. <meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
  22. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  23. <meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
  24. <link href="../images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  25. <head></head>
  26. <body>
  28. <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  29.   <tr>
  30.     <td>
  31.       <!--#include file="../top.asp" -->
  32.     </td>
  33.   </tr>
  34. </table>
  35. <table width="98%" height="135" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  36.     <tr class="back"> 
  37.       <td   colspan="2" class="xingmu" height="26"> <!--#include file="../Top_navi.asp" -->
  38.     </td>
  39.     </tr>
  40.     <tr class="back"> 
  41.       <td width="18%" valign="top" class="hback"> <div align="left"> 
  42.           <!--#include file="../menu.asp" -->
  43.         </div></td>
  44.       <td width="82%" valign="top" class="hback">
  45.   <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  46.         <tr class="hback"> 
  47.           <td  valign="top">你的位置：<a href="../../">网站首页</a> &gt;&gt; <a href="../main.asp">会员首页</a> 
  48.             &gt;&gt; <a href="index.asp">日志管理</a> &gt;&gt;日志管理</td>
  49.         </tr>
  50.         <tr class="hback"> 
  51.           <td  valign="top"><a href="index.asp">日志首页</a>┆<a href="PublicLog.asp">发表日志</a>┆<a href="index.asp?type=box">草稿箱</a>┆<a href="../PhotoManage.asp">相册管理</a>┆<a href="PublicParam.asp">参数设置</a>┆<a href="../Review.asp">评论管理</a></td>
  52.         </tr>
  53.       </table>
  54.         
  55.       <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  56.         <form name="s_form" method="post" action="Public_Save.asp">
  57.           <tr> 
  58.             <td colspan="2" class="xingmu">发表日志</td>
  59.           </tr>
  60.           <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  61.             <td class="hback"><div align="right">日志标题</div></td>
  62.             <td class="hback"><input name="Title" type="text" id="Title" size="57" value="<% = rs("Title")%>" maxlength="100" onFocus="Do.these('Title',function(){return CheckContentLen('Title','span_Title','3-100')})" onKeyUp="Do.these('Title',function(){return CheckContentLen('Title','span_Title','3-100')})"> 
  63.               <span id="span_Title"></span></td>
  64.           </tr>
  65.           <tr> 
  66.             <td width="13%" class="hback"><div align="right">主分类</div></td>
  67.             <td width="87%" class="hback">
  68. <select name="MainID" id="MainID">
  69.                 <!--<option value="">选择系统分类</option>-->
  70.                 <%
  71. dim c_rs
  72. set c_rs = Server.CreateObject(G_FS_RS)
  73. c_rs.open "select ID,ClassName From FS_ME_iLogClass Order by id asc",User_Conn,1,3
  74. do while not c_rs.eof
  75. if rs("MainId")=c_rs("id") then
  76. %>
  77.                 <option value="<%=c_rs("id")%>" selected><%=c_rs("ClassName")%></option>
  78. <%else%>
  79.                 <option value="<%=c_rs("id")%>"><%=c_rs("ClassName")%></option>
  80.                 <%
  81. end if
  82. c_rs.movenext
  83. loop
  84. c_rs.close:set c_rs=nothing
  85. %>
  86.               </select>
  87.               专栏 
  88.               <select name="ClassID" id="ClassID" style="width:38%">
  89.                 <option value="0">选择我的专栏</option>
  90.                 <%
  91.   dim obj_zl_rs
  92.   set obj_zl_rs= Server.CreateObject(G_FS_RS)
  93.   obj_zl_rs.open "select ClassID,ClassCName,ClassEName,ParentID,UserNumber,ClassTypes From FS_ME_InfoClass  where ParentID=0 and ClassTypes=7 and UserNumber='"& Fs_User.UserNumber&"' order by ClassID desc",User_Conn,1,3
  94.   do while not obj_zl_rs.eof 
  95.    if rs("ClassID")=obj_zl_rs("ClassID") then
  96. Response.Write"<option value="""& obj_zl_rs("ClassID")&""" selected>"& obj_zl_rs("ClassCName")&"</option>"
  97. else
  98. Response.Write"<option value="""& obj_zl_rs("ClassID")&""">"& obj_zl_rs("ClassCName")&"</option>"
  99. end if
  100.   obj_zl_rs.movenext
  101.   Loop
  102.   obj_zl_rs.close:set obj_zl_rs =nothing
  103.   %>
  104.               </select></td>
  105.           </tr>
  106.           <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  107.             <td class="hback"><div align="right">类型</div></td>
  108.             <td class="hback"><select name="iLogStyle" id="iLogStyle">
  109.                 <option value="0" <%if rs("iLogStyle")=0 then response.Write"selected"%>>日志</option>
  110.                 <option value="1" <%if rs("iLogStyle")=1 then response.Write"selected"%>>网摘</option>
  111.               </select> </td>
  112.           </tr>
  113.           <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  114.             <td class="hback"><div align="right">关键字</div></td>
  115.             <td class="hback"><input name="keyword1" type="text" id="keyword1" size="15" maxlength="15" value="<%=split(rs("Keywords"),",")(0)%>">
  116.               , 
  117.               <input name="keyword2" type="text" id="keyword2" size="15" maxlength="15" value="<%=split(rs("Keywords"),",")(1)%>">
  118.               , 
  119.               <input name="keyword3" type="text" id="keyword3" size="15" maxlength="15" value="<%=split(rs("Keywords"),",")(2)%>"></td>
  120.           </tr>
  121.           <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  122.             <td class="hback"><div align="right">来源</div></td>
  123.             <td class="hback"><input name="iLogSource" type="text" id="iLogSource" size="57" maxlength="60" value="<%=rs("iLogSource")%>"></td>
  124.           </tr>
  125.           <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  126.             <td class="hback"><div align="right">内容</div></td>
  127.             <td class="hback"><textarea name="Content" rows="12" style="width:95%"><%=rs("Content")%></textarea></td>
  128.           </tr>
  129.           <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  130.             <td class="hback"><div align="right">首页置顶</div></td>
  131.             <td class="hback"><input name="isTop" type="checkbox" id="isTop" value="1" <%if rs("isTop")=1 then response.Write("checked")%>></td>
  132.           </tr>
  133.           <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  134.             <td class="hback"><div align="right">心情</div></td>
  135.             <td class="hback"><input name="EmotFace" type="radio" value="face1.gif" checked> 
  136.               <img src="../../sys_images/emot/face1.gif" width="19" height="19"> 
  137.               <input type="radio" name="EmotFace" value="face3.gif" <%if rs("EmotFace")="face3.gif" then response.Write("checked")%>> 
  138.               <img src="../../sys_images/emot/face3.gif" width="19" height="19"> 
  139.               <input type="radio" name="EmotFace" value="face5.gif" <%if rs("EmotFace")="face5.gif" then response.Write("checked")%>> 
  140.               <img src="../../sys_images/emot/face5.gif" width="19" height="19"> 
  141.               <input type="radio" name="EmotFace" value="face8.gif" <%if rs("EmotFace")="face8.gif" then response.Write("checked")%>> 
  142.               <img src="../../sys_images/emot/face8.gif" width="19" height="19"> 
  143.               <input type="radio" name="EmotFace" value="face18.gif" <%if rs("EmotFace")="face18.gif" then response.Write("checked")%>> 
  144.               <img src="../../sys_images/emot/face18.gif" width="19" height="19"> 
  145.               <input type="radio" name="EmotFace" value="face11.gif" <%if rs("EmotFace")="face11.gif" then response.Write("checked")%>> 
  146.               <img src="../../sys_images/emot/face11.gif" width="19" height="19"> 
  147.               <input type="radio" name="EmotFace" value="face47.gif" <%if rs("EmotFace")="face47.gif" then response.Write("checked")%>> 
  148.               <img src="../../sys_images/emot/face47.gif" width="19" height="19"> 
  149.               <input type="radio" name="EmotFace" value="face15.gif" <%if rs("EmotFace")="face15.gif" then response.Write("checked")%>> 
  150.               <img src="../../sys_images/emot/face15.gif" width="19" height="19"> 
  151.               <input type="radio" name="EmotFace" value="face22.gif" <%if rs("EmotFace")="face22.gif" then response.Write("checked")%>> 
  152.               <img src="../../sys_images/emot/face22.gif" width="19" height="19"> 
  153.               <input type="radio" name="EmotFace" value="face29.gif" <%if rs("EmotFace")="face29.gif" then response.Write("checked")%>> 
  154.               <img src="../../sys_images/emot/face29.gif" width="19" height="19"> 
  155.               <input type="radio" name="EmotFace" value="face34.gif" <%if rs("EmotFace")="face34.gif" then response.Write("checked")%>> 
  156.               <img src="../../sys_images/emot/face34.gif" width="19" height="19"></td>
  157.           </tr>
  158.           <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  159.             <td class="hback"><div align="right">图片地址</div></td>
  160.             <td class="hback"><table width="100%" border="0" cellspacing="1" cellpadding="5">
  161.                 <tr> 
  162.                   <td width="29%"><div align="center"> 
  163.                       <table width="10" border="0" cellspacing="1" cellpadding="2" class="table">
  164.                         <tr> 
  165.                           <%if not isnull(rs("pic_1")) then%>
  166.                           <td class="hback"><img src="<%=rs("pic_1")%>" width="90" height="90" id="pic_p_1"></td>
  167.                           <%else%>
  168.                           <td class="hback"><img src="../Images/nopic_supply.gif" width="90" height="90" id="pic_p_1"></td>
  169.                           <%end if%>
  170.                         </tr>
  171.                       </table>
  172.                       <input name="pic_1" type="hidden" id="pic_1" size="40" value="<%=rs("pic_1")%>">
  173.                     </div></td>
  174.                   <td width="36%"><div align="center"> 
  175.                       <table width="10" border="0" cellspacing="1" cellpadding="2" class="table">
  176.                         <tr> 
  177.                           <%if not isnull(rs("pic_2")) then%>
  178.                           <td class="hback"><img src="<%=rs("pic_2")%>" width="90" height="90" id="pic_p_2"></td>
  179.                           <%else%>
  180.                           <td class="hback"><img src="../Images/nopic_supply.gif" width="90" height="90" id="pic_p_2"></td>
  181.                           <%end if%>
  182.                         </tr>
  183.                       </table>
  184.                       <input name="pic_2" type="hidden" id="pic_2" size="40" value="<%=rs("pic_2")%>">
  185.                     </div></td>
  186.                   <td width="35%"><div align="center"> 
  187.                       <table width="10" border="0" cellspacing="1" cellpadding="2" class="table">
  188.                         <tr> 
  189.                           <%if not isnull(rs("pic_3")) then%>
  190.                           <td class="hback"><img src="<%=rs("pic_3")%>" width="90" height="90" id="pic_p_3"></td>
  191.                           <%else%>
  192.                           <td class="hback"><img src="../Images/nopic_supply.gif" width="90" height="90" id="pic_p_3"></td>
  193.                           <%end if%>
  194.                         </tr>
  195.                       </table>
  196.                       <input name="pic_3" type="hidden" id="pic_3" size="40" value="<%=rs("pic_3")%>">
  197.                     </div></td>
  198.                 </tr>
  199.                 <tr> 
  200.                   <td><div align="center"><img  src="../Images/upfile.gif" width="44" height="22" onClick="OpenWindowAndSetValue('../CommPages/SelectPic.asp?CurrPath=<% = str_CurrPath %>&f_UserNumber=<% = session("FS_UserNumber")%>',500,320,window,document.s_form.pic_1);" style="cursor:hand;"> 
  201.                       　<img src="../Images/del_supply.gif" width="44" height="22" onClick="dels_1();" style="cursor:hand;"> 
  202.                     </div></td>
  203.                   <td><div align="center"><img  src="../Images/upfile.gif" width="44" height="22" onClick="OpenWindowAndSetValue('../CommPages/SelectPic.asp?CurrPath=<% = str_CurrPath %>&f_UserNumber=<% = session("FS_UserNumber")%>',500,320,window,document.s_form.pic_2);" style="cursor:hand;"> 
  204.                       　<img src="../Images/del_supply.gif" width="44" height="22" onClick="dels_2();" style="cursor:hand;"> 
  205.                     </div></td>
  206.                   <td><div align="center"><img  src="../Images/upfile.gif" width="44" height="22" onClick="OpenWindowAndSetValue('../CommPages/SelectPic.asp?CurrPath=<% = str_CurrPath %>&f_UserNumber=<% = session("FS_UserNumber")%>',500,320,window,document.s_form.pic_3);" style="cursor:hand;"> 
  207.                       　<img src="../Images/del_supply.gif" width="44" height="22" onClick="dels_3();" style="cursor:hand;"> 
  208.                     </div></td>
  209.                 </tr>
  210.               </table></td>
  211.           </tr>
  212.           <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  213.             <td class="hback"><div align="right">日志密码</div></td>
  214.             <td class="hback"><input name="Password" type="password" id="Password">
  215.               不修改请保持为空</td>
  216.           </tr>
  217.           <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  218.             <td class="hback"><div align="right">文件名</div></td>
  219.             <td class="hback"><input name="FileName" type="text" id="FileName" value="<%=rs("FileName")%>" readonly maxlength="20"  onFocus="Do.these('FileName',function(){return CheckContentLen('FileName','span_FileName','3-18')})" onKeyUp="Do.these('FileName',function(){return CheckContentLen('FileName','span_FileName','3-18')})">
  220.               <span id="span_FileName"></span> 扩展名 
  221.               <select name="FileExtName" id="FileExtName">
  222.                 <option value="html" <%if rs("FileExtName")="html" then response.Write("selected")%>>html</option>
  223.                 <option value="htm" <%if rs("FileExtName")="htm" then response.Write("selected")%>>htm</option>
  224.                 <option value="shtm" <%if rs("FileExtName")="shtm" then response.Write("selected")%>>shtm</option>
  225.                 <option value="shtml" <%if rs("FileExtName")="shtml" then response.Write("selected")%>>shtml</option>
  226.                 <option value="asp" <%if rs("FileExtName")="asp" then response.Write("selected")%>>asp</option>
  227.               </select></td>
  228.           </tr>
  229.           <tr onMouseOver=overColor(this) onMouseOut=outColor(this)>
  230.             <td class="hback"><div align="right">保存到草稿箱</div></td>
  231.             <td class="hback"><input name="isDraft" type="checkbox" id="isDraft" value="1" <%if rs("isDraft")=1 then response.Write("checked")%>></td>
  232.           </tr>
  233.           <tr onMouseOver=overColor(this) onMouseOut=outColor(this)> 
  234.             <td class="hback"><div align="right"></div></td>
  235.             <td class="hback"><input name="Action" type="hidden" id="Action" value="Edit"> 
  236.               <input name="Id" type="hidden" id="Id" value="<%=rs("iLogID")%>"> 
  237.               <input type="submit" name="Submit" value="修改"> </td>
  238.           </tr>
  239.         </form>
  240.       </table>
  241.       <%rs.close:set rs=nothing%>
  242.        </td>
  243.     </tr>
  244.     <tr class="back"> 
  245.       <td height="20"  colspan="2" class="xingmu"> <div align="left"> 
  246.           <!--#include file="../Copyright.asp" -->
  247.         </div></td>
  248.     </tr>
  249. </table>
  250. </body>
  251. </html>
  252. <script language="JavaScript" type="text/JavaScript">
  253. new Form.Element.Observer($('pic_1'),1,pics_1);
  254. function pics_1()
  255. {
  256. if ($('pic_1').value=='')
  257. {
  258. $('pic_p_1').src='../Images/nopic_supply.gif'
  259. }
  260. else
  261. {
  262. $('pic_p_1').src=$('pic_1').value
  263. }
  264. } 
  265. new Form.Element.Observer($('pic_2'),1,pics_2);
  266. function pics_2()
  267. {
  268. if($('pic_2').value=='')
  269. {
  270. $('pic_p_2').src='../Images/nopic_supply.gif'
  271. }
  272. else
  273. {
  274. $('pic_p_2').src=$('pic_2').value
  275. }
  276. } 
  277. new Form.Element.Observer($('pic_3'),1,pics_3);
  278. function pics_3()
  279. {
  280. if($('pic_3').value=='')
  281. {
  282. $('pic_p_3').src='../Images/nopic_supply.gif'
  283. }
  284. else
  285. {
  286. $('pic_p_3').src=$('pic_3').value
  287. }
  288. }
  289. function dels_1()
  290. {
  291. document.s_form.pic_1.value=''
  292. }
  293. function dels_2()
  294. {
  295. document.s_form.pic_2.value=''
  296. }
  297. function dels_3()
  298. {
  299. document.s_form.pic_3.value=''
  300. }
  301. </script>
  302. <!--Powsered by Foosun Inc.,Product:FoosunCMS V4.0系列-->