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

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

数据库编程

开发平台：

ASP/ASPX

NoteEdit.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../../FS_Inc/Const.asp" -->
  3. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  4. <!--#include file="../../FS_InterFace/ns_Function.asp" -->
  5. <!--#include file="../../FS_Inc/Function.asp" -->
  6. <%
  7. response.buffer=true
  8. Response.CacheControl = "no-cache"
  9. Dim Conn,User_Conn
  10. MF_Default_Conn
  11. 'session判断
  12. MF_Session_TF 
  13. if not MF_Check_Pop_TF("WS002") then Err_Show
  14. %>
  15. <html>
  16. <HEAD>
  17. <TITLE>FoosunCMS留言系统</TITLE>
  18. <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
  19. </HEAD>
  20. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  21. <script language="javascript">
  22. function goback(){
  23. history.go(-1);
  24. }
  25. </script>
  26. <body>
  27. <%
  28. Dim ID,ShowRs,SaveRs,NoteRs,Topic,Content,Face,IsUser,isTop,IsAdmin,strShowErr
  29. Set ShowRs=Server.CreateObject(G_FS_RS)
  30. Set SaveRs=Server.CreateObject(G_FS_RS)
  31. if Request.QueryString("Act")="NoteEdit" then
  32. ID=Request.QueryString("ID")
  33. if ID="" then
  34. strShowErr = "<li>参数出错!</li>"
  35. Response.Redirect("../error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"")
  36. Response.end
  37. end if
  38. ShowRs.open "Select ID,ClassID,User,Topic,Body,AddDate,IsTop,State,IsAdmin,Face,LastUpdateDate,LastUpdateUser From FS_WS_BBS Where ID="&ID&"",Conn,1,1
  39. if ShowRs.eof and ShowRs.bof then
  40. strShowErr = "<li>你要修改的帖子已不存在了!</li>"
  41. Response.Redirect("../error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"")
  42. Response.end
  43. else
  44. %>
  46. <table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  47.   <tr class="hback">
  48.     <td align="left" colspan="2" class="xingmu">留言板&nbsp;<a href="../../help?Lable=Message" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a></td>
  49.   </tr>
  50.   <tr>
  51.     <td colspan="2" class="hback"><a href="#" onClick="goback()">返回</a></td>
  52.   </tr>
  53. </table>
  54. <form id="WriteNote" name="WriteNote" action="?Act=Save" method="post">
  55. <table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
  56. <tr class="hback">
  57. <td class="hback" align="right" width="20%">贴子标题</td>
  58. <td class="hback" ><input type="test" name="Topic" size="20" maxlength="50" value="<%=ShowRs("Topic")%>">&nbsp;&nbsp;
  59. <%
  60. if ShowRs("IsAdmin")="0" then
  61. Response.write("<input type=""checkbox"" id=""IsAdmin"" name=""IsAdmin"" value=""1"">")
  62. else
  63. Response.write("<input type=""checkbox"" id=""IsAdmin"" name=""IsAdmin"" value=""1"" checked>")
  64. end if
  65. %>公管理员可见</td>
  66. </tr>
  67. <tr class="hback">
  68. <td class="hback" align="right" width="20%">贴子类型</td>
  69.   <td class="hback" align="left">
  70. <%
  71. if ShowRs("IsTop")=0 then 
  72. response.write("<input type=""radio"" name=""Style"" value=""1"">推荐帖子<input type=""radio"" name=""Style"" value=""0"" checked>普通帖子")
  73. else
  74. response.write("<input type=""radio"" name=""Style"" value=""1"" checked>推荐帖子<input type=""radio"" name=""Style"" value=""0"">普通帖子")
  75. end if
  76. %>
  77. </td>
  78. </tr>
  79. <tr class="hback">
  80. <td class="hback" align="right" width="20%">当前表情</td>
  81. <td class="hback" align="left">
  82.   <table width="100%" border="0" cellspacing="0" cellpadding="0">
  83.             <tr>
  84.               <td>
  85.                 <input name="FaceNum" type="radio" value="1" <%If ShowRs("Face")=1 then response.Write("Checked")%>>
  86.                 <img src="Images/face1.gif" width="22" height="22"> </td>
  87.               <td>
  88.                 <input type="radio" name="FaceNum" value="2" <%If ShowRs("Face")=2 then response.Write("Checked")%>>
  89.                 <img src="Images/face2.gif" width="22" height="22"> </td>
  90.               <td>
  91.                 <input type="radio" name="FaceNum" value="3" <%If ShowRs("Face")=2 then response.Write("Checked")%>>
  92.                 <img src="Images/face3.gif" width="22" height="22"> </td>
  93.               <td>
  94.                 <input type="radio" name="FaceNum" value="4" <%If ShowRs("Face")=4 then response.Write("Checked")%>>
  95.                 <img src="Images/face4.gif" width="22" height="22"> </td>
  96.               <td>
  97.                 <input type="radio" name="FaceNum" value="5" <%If ShowRs("Face")=5 then response.Write("Checked")%>>
  98.                 <img src="Images/face5.gif" width="22" height="22"> </td>
  99.               <td>
  100.                 <input type="radio" name="FaceNum" value="6" <%If ShowRs("Face")=6 then response.Write("Checked")%>>
  101.                 <img src="Images/face6.gif" width="22" height="22"></td>
  102.               <td>
  103.                 <input type="radio" name="FaceNum" value="7" <%If ShowRs("Face")=7 then response.Write("Checked")%>>
  104.                 <img src="Images/face7.gif" width="22" height="22"> </td>
  105.               <td>
  106.                 <input type="radio" name="FaceNum" value="8" <%If ShowRs("Face")=8 then response.Write("Checked")%>>
  107.                 <img src="Images/face8.gif" width="22" height="22"> </td>
  108.               <td>
  109.                 <input type="radio" name="FaceNum" value="9" <%If ShowRs("Face")=9 then response.Write("Checked")%>>
  110.                 <img src="Images/face9.gif" width="22" height="22"></td>
  111.             </tr>
  112.             <tr>
  113.               <td>
  114.                 <input type="radio" name="FaceNum" value="10" <%If ShowRs("Face")=10 then response.Write("Checked")%>>
  115.                 <img src="Images/face10.gif" width="22" height="22"></td>
  116.               <td>
  117.                 <input type="radio" name="FaceNum" value="11" <%If ShowRs("Face")=11 then response.Write("Checked")%>>
  118.                 <img src="Images/face11.gif" width="22" height="22"> </td>
  119.               <td>
  120.                 <input type="radio" name="FaceNum" value="12" <%If ShowRs("Face")=12 then response.Write("Checked")%>>
  121.                 <img src="Images/face12.gif" width="22" height="22"></td>
  122.               <td>
  123.                 <input type="radio" name="FaceNum" value="13" <%If ShowRs("Face")=13 then response.Write("Checked")%>>
  124.                 <img src="Images/face13.gif" width="22" height="22"> </td>
  125.               <td>
  126.                 <input type="radio" name="FaceNum" value="14" <%If ShowRs("Face")=14 then response.Write("Checked")%>>
  127.                 <img src="Images/face14.gif" width="22" height="22"></td>
  128.               <td>
  129.                 <input type="radio" name="FaceNum" value="15" <%If ShowRs("Face")=15 then response.Write("Checked")%>>
  130.                 <img src="Images/face15.gif" width="22" height="22"></td>
  131.               <td>
  132.                 <input type="radio" name="FaceNum" value="16" <%If ShowRs("Face")=16 then response.Write("Checked")%>>
  133.                 <img src="Images/face16.gif" width="22" height="22"></td>
  134.               <td>
  135.                 <input type="radio" name="FaceNum" value="17" <%If ShowRs("Face")=17 then response.Write("Checked")%>>
  136.                 <img src="Images/face17.gif" width="22" height="22"> </td>
  137.               <td>
  138.                 <input type="radio" name="FaceNum" value="18" <%If ShowRs("Face")=18 then response.Write("Checked")%>>
  139.                 <img src="Images/face18.gif" width="22" height="22"> </td>
  140.             </tr>
  141.           </table>
  142. </td>
  143. </tr>
  144. <tr class="hback">
  145. <td class="hback" align="right">帖子内容</td>
  146.         <td class="hback" valign="top" >
  147. <textarea name="Content" id="Content" rows="8" cols="25"><%=ShowRs("Body")%></textarea>
  148. </tr>
  149. <tr class="hback">
  150. <td class="hback">&nbsp;<input type="hidden" name="NoteID" ID="NoteID" value="<%=ShowRs("ID")%>"></td>
  151.   <td class="hback"><input type="submit" name="submit" value="OK保存贴子">&nbsp;&nbsp;
  152.     <input type="reset" name="reset" value=" 清  空 ">
  153. </table>
  154. </form>
  155. <%
  156. end if
  157. end if
  158. set ShowRs=nothing
  159. if NoSqlHack(Request.QueryString("Act"))="Save" then
  160. ID=Request.Form("NoteID")
  161. Topic=NoHtmlHackInput(trim(Replace(Request.form("Topic"),"'","")))
  162. IsTop=NoHtmlHackInput(trim(Request.form("Style")))
  163. Content=NoHtmlHackInput(Trim(Request.form("Content")))
  164. IsAdmin=NoHtmlHackInput(Trim(Request.form("IsAdmin")))
  165. if IsAdmin="" then
  166. IsAdmin="0"
  167. end if
  168. if ID="" then
  169. strShowErr = "<li>参数出错!</li>"
  170. Response.Redirect("../error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"")
  171. Response.end
  172. end if
  173. if Topic="" then
  174. strShowErr = "<li>标题不能为空!</li>"
  175. Response.Redirect("../error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"")
  176. Response.end
  177. end if
  178. if isTop="" then
  179. strShowErr = "<li>帖子类型值没传过来!</li>"
  180. Response.Redirect("../error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"")
  181. Response.end
  182. end if
  183. if Content="" then
  184. strShowErr = "<li>内容不能为空!</li>"
  185. Response.Redirect("../error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"")
  186. Response.end
  187. end if
  188. SaveRs.open "Select ID,ClassID,User,Topic,Body,AddDate,IsTop,State,Face,IsAdmin,LastUpdateDate,LastUpdateUser From FS_WS_BBS Where ID="&ID&"",Conn,1,3
  189. if not SaveRs.eof then
  190. SaveRs("Topic")=Topic
  191. SaveRs("Body")=Content
  192. SaveRs("IsTop")=IsTop
  193. SaveRs("IsAdmin")=IsAdmin
  194. SaveRs("Face")=Request.Form("FaceNum")
  195. SaveRs("LastUpdateUser")=session("Admin_Name")
  196. SaveRs("LastUpdateDate")=now()
  197. SaveRs.update
  198. Set SaveRs=nothing
  199. Response.write("<script>history.go(-2);</script>")
  200. Response.end
  201. else
  202. Set SaveRs=nothing
  203. strShowErr = "<li>参数出错!</li>"
  204. Response.Redirect("../error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"")
  205. Response.end
  206. end if
  207. end if
  208. Set Conn=nothing
  209. %>
  210. </body>
  211. </html>