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

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

数据库编程

开发平台：

ASP/ASPX

infomanage.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../FS_Inc/Const.asp" -->
  3. <!--#include file="../FS_Inc/Function.asp" -->
  4. <!--#include file="../FS_InterFace/MF_Function.asp" -->
  5. <!--#include file="lib/strlib.asp" -->
  6. <!--#include file="lib/UserCheck.asp" -->
  7. <%
  8. User_GetParm
  9. if Request.QueryString("type")="delinfo" then
  10. if Request.QueryString("Id")="" then
  11. strShowErr = "<li>错误的参数</li>"
  12. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../InfoManage.asp")
  13. Response.end
  14. else
  15. User_Conn.execute("Delete From FS_ME_InfoClass where ClassID="&NoSqlHack(Request.QueryString("Id")))
  16. '更新其他有Class的信息
  17. strShowErr = "<li>删除成功</li>"
  18. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../InfoManage.asp")
  19. Response.end
  20. end if
  21. end if 
  22. if request.Form("Action")<>"" then
  23. dim rs_svae
  24. set rs_svae= Server.CreateObject(G_FS_RS)
  25. if request.Form("Action")="add" then
  26. rs_svae.open "select * from FS_ME_InfoClass where UserNumber='"&Fs_User.UserNumber&"'",User_conn,1,3
  27. if not rs_svae.eof then
  28. if rs_svae.recordcount>cint(p_LimitClass) then
  29. strShowErr = "<li>你最多建立"&p_LimitClass&"个分类。</li>"
  30. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../InfoManage.asp")
  31. Response.end
  32. end if
  33. end if
  34. rs_svae.addnew
  35. rs_svae("ClassEName") = Request.Form("ClassEName")
  36. rs_svae("ParentID") = 0
  37. rs_svae("UserNumber") = Fs_User.UserNumber
  38. rs_svae("AddTime") = now
  39. elseif request.Form("Action")="edit" then
  40. rs_svae.open "select * from FS_ME_InfoClass where ClassID="&NoSqlHack(Request.Form("ClassID")),User_conn,1,3
  41. end if
  42. rs_svae("ClassCName") = Request.Form("ClassCName")
  43. if Request.Form("ClassTypes")="0" then
  44. rs_svae("ClassTypes")=0
  45. elseif Request.Form("ClassTypes")="1" then
  46. rs_svae("ClassTypes")=1
  47. elseif Request.Form("ClassTypes")="2" then
  48. rs_svae("ClassTypes")=2
  49. elseif Request.Form("ClassTypes")="3" then
  50. rs_svae("ClassTypes")=3
  51. elseif Request.Form("ClassTypes")="4" then
  52. rs_svae("ClassTypes")=4
  53. elseif Request.Form("ClassTypes")="5" then
  54. rs_svae("ClassTypes")=5
  55. elseif Request.Form("ClassTypes")="6" then
  56. rs_svae("ClassTypes")=6
  57. elseif Request.Form("ClassTypes")="7" then
  58. rs_svae("ClassTypes")=7
  59. else
  60. rs_svae("ClassTypes")=0
  61. end if
  62. rs_svae("ClassTypes") = Request.Form("ClassTypes")
  63. rs_svae("ClassContent") = Request.Form("ClassContent")
  64. rs_svae.update
  65. strShowErr = "<li>保存成功</li>"
  66. Response.Redirect("lib/success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../InfoManage.asp")
  67. Response.end
  68. end if
  69. %>
  70. <html xmlns="http://www.w3.org/1999/xhtml">
  71. <title>专栏管理-网站内容管理系统</title>
  72. <meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
  73. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  74. <meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
  75. <meta name="Keywords" content="Foosun,FoosunCMS,Foosun Inc.,风讯,风讯网站内容管理系统,风讯系统,风讯新闻系统,风讯商城,风讯b2c,新闻系统,CMS,域名空间,asp,jsp,asp.net,SQL,SQL SERVER" />
  76. <link href="images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  77. <head>
  78. <body>
  79. <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  80.   <tr>
  81.     <td>
  82.       <!--#include file="top.asp" -->
  83.     </td>
  84.   </tr>
  85. </table>
  86. <table width="98%" height="135" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  87.   
  88.     <tr class="back"> 
  89.       <td   colspan="2" class="xingmu" height="26"> <!--#include file="Top_navi.asp" --> </td>
  90.     </tr>
  91.     <tr class="back"> 
  92.       <td width="18%" valign="top" class="hback"> <div align="left"> 
  93.           <!--#include file="menu.asp" -->
  94.         </div></td>
  95.       <td width="82%" valign="top" class="hback"><table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  96.         <tr class="hback"> 
  97.           <td class="hback"><strong>位置：</strong><a href="../">网站首页</a> &gt;&gt; 
  98.             <a href="main.asp">会员首页</a> &gt;&gt; 专栏</td>
  99.         </tr>
  100.       </table> 
  101.       <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  102.         <tr class="hback"> 
  103.           <td class="Hback_1"><a href="infoManage.asp">专栏首页</a>┆<a href="infomanage.asp?type=add">创建专栏</a></td>
  104.         </tr>
  105.         <tr class="hback"> 
  106.           <td class="hback">
  107.   <%
  108.   dim rs,class_list,tmp_k,s_type
  109.   class_list = "<table width=""100%"" cellpadding=""3""><tr>"
  110.   set rs = Server.CreateObject(G_FS_RS)
  111.   rs.open "select Classid,ClassTypes,ClassCName,ParentID,ClassContent,AddTime From FS_ME_InfoClass where UserNumber='"& Fs_User.UserNumber &"' and ParentID=0 order by ClassTypes asc,ClassID desc",User_Conn,1,3
  112.   if rs.eof then
  113.   class_list = class_list & "<td>没专栏</td>"
  114.   else
  115.    tmp_k=0
  116.    do  while not rs.eof 
  117. select case rs("ClassTypes")
  118. case 0
  119. s_type = "(新闻)"
  120. case 3
  121. s_type = "(房产)"
  122. case 4
  123. s_type = "(供求)"
  124. case 5
  125. s_type = "(求职)"
  126. case 6
  127. s_type = "(招聘)"
  128. case 7
  129. s_type = "(日志/网摘)"
  130. end select
  131. class_list =  class_list & "<td width=""1"" align=right><img src=""Images/folderopened.gif"" ></td><td width=""33%"" valign=""bottom""><a href=""ShowInfoClass.asp?ClassID="&rs("Classid")&"&UserNumber="& Fs_User.UserNumber &""" title=""描述："&rs("ClassContent")&"┆创建日期："&rs("Addtime")&""">"&rs("ClassCName")&"</a><span class=""tx"">"&s_type&"</span>[<a href=Infomanage.asp?id="&rs("Classid")&"&type=edit>修改</a>]<<A href=Infomanage.asp?Id="&rs("Classid")&"&type=delinfo onClick=""{if(confirm('确定删除您所选择的记录吗？?')){return true;}return false;}"">删除</a>></td>"
  132. rs.movenext
  133. tmp_k=tmp_k+1
  134. if tmp_k mod 3 = 0 then
  135. class_list =  class_list & "</tr>"
  136. end if
  137. loop
  138. class_list =  class_list & "</tr></table>"
  139.   end if
  140.   Response.Write class_list
  141.   %>
  143.   </td>
  144.         </tr>
  145.         <tr class="hback">
  146.           <td class="hback"><span class="tx">特别说明：专栏可以为您发表的新闻或者小说等归类做连载使用</span></td>
  147.         </tr>
  148.       </table>
  149.  <%
  150.    if Request.QueryString("type")="add" then
  151. call add()
  152. end if
  153. if request.QueryString("type")="edit" then
  154. call edit()
  155. end if
  156.     %>
  157. <%sub add()%>
  158.         <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  159.           <form name="form1" method="post" action="InfoManage.asp" onSubmit="return checkdata();"><tr> 
  160.             <td colspan="2" class="hback_1"><strong>创建专栏</strong></td>
  161.           </tr>
  162.           <tr class="hback"> 
  163.             <td width="19%"><div align="right">专栏中文名称</div></td>
  164.             <td width="81%"><input name="ClassCName" type="text" id="ClassCName" size="50" maxlength="50">
  165.               * </td>
  166.           </tr>
  167.           <tr class="hback"> 
  168.             <td><div align="right">专栏英文名称</div></td>
  169.             <td><input name="ClassEName" type="text" id="ClassEName" value="<%=Fs_User.UserNumber&"@"&month(now)&day(now)&"-"&hour(now)&minute(now)&second(now)%>" size="50" maxlength="50" readonly>
  170.               * </td>
  171.           </tr>
  172.           <tr class="hback"> 
  173.             <td><div align="right">用户名</div></td>
  174.             <td><%=Fs_User.UserName%></td>
  175.           </tr>
  176.           <tr class="hback"> 
  177.             <td><div align="right">类型</div></td>
  178.             <td><select name="ClassTypes" id="ClassTypes">
  179.                 <option value="0" selected>新闻文学类</option>
  180.                 <%if IsExist_SubSys("HS") Then%><option value="3">房产</option><%end if%>
  181.                 <%if IsExist_SubSys("SD") Then%><option value="4">供求</option><%end if%>
  182.                 <%if IsExist_SubSys("AP") Then%><option value="5">求职</option>
  183.                <option value="6">招聘</option><%end if%>
  184.                 <option value="7">日志/网摘</option>
  185.               </select>
  186.             </td>
  187.           </tr>
  188.           <tr class="hback"> 
  189.             <td><div align="right">专栏描述</div></td>
  190.             <td><textarea name="ClassContent" rows="6" id="ClassContent" style="width:60%"></textarea>
  191.               500个字符以内 </td>
  192.           </tr>
  193.           <tr class="hback"> 
  194.             <td>&nbsp;</td>
  195.             <td><input type="submit" name="Submit" value=" 保存专栏 ">
  196.               <input name="Action" type="hidden" id="Action" value="add">
  197.               <input type="reset" name="Submit2" value="重置"></td>
  198.           </tr></form> 
  199.         </table>
  200.       <script language="JavaScript" type="text/JavaScript">
  201.   <!--
  202. function checkdata()
  203. {
  204. if(f_trim(document.form1.ClassCName.value)=='')
  205. {
  206. alert('填写中文名称');
  207. form1.ClassCName.focus();
  208. return false;
  209. }
  210. if(document.form1.ClassEName.value=='')
  211. {
  212. alert('填写英文名称');
  213. form1.ClassEName.focus();
  214. return false;
  215. }
  216. if(document.form1.ClassContent.value=='')
  217. {
  218. alert('填写描述');
  219. form1.ClassContent.focus();
  220. return false;
  221. }
  222. if(document.form1.ClassContent.value.length>500)
  223. {
  224. alert('描述最多500个字符');
  225. form1.ClassContent.focus();
  226. return false;
  227. }
  228. }
  229. -->
  230. </script>
  232.       <%end sub%>
  233. <%
  234. sub edit()
  235. dim edit_rs
  236. set edit_rs= Server.CreateObject(G_FS_RS)
  237. edit_rs.open "select * From FS_ME_InfoClass where UserNumber='"&Fs_User.UserNumber&"' and Classid="&NoSqlHack(Request.QueryString("id")),User_conn,1,3
  238. if edit_rs.eof then
  239. strShowErr = "<li>找不到记录</li>"
  240. Response.Redirect("lib/success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../InfoManage.asp")
  241. Response.end
  242. else
  243. %><table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  244.           <form name="form1" method="post" action="InfoManage.asp" onSubmit="return checkdata();"><tr> 
  245.             <td colspan="2" class="hback_1"><strong>修改专栏
  246.               <input name="ClassID" type="hidden" id="ClassID" value="<% = edit_rs("Classid")%>">
  247.               </strong></td>
  248.           </tr>
  249.           <tr class="hback"> 
  250.             <td width="19%"><div align="right">专栏中文名称</div></td>
  251.             <td width="81%"><input name="ClassCName" type="text" id="ClassCName" size="50" maxlength="50" value="<% = edit_rs("ClassCName")%>">
  252.               * </td>
  253.           </tr>
  254.           <tr class="hback"> 
  255.             <td><div align="right">专栏英文名称</div></td>
  256.             <td><input name="ClassEName" type="text" id="ClassEName" value="<% = edit_rs("ClassEName")%>" size="50" maxlength="50" readonly>
  257.               * </td>
  258.           </tr>
  259.           <tr class="hback"> 
  260.             <td><div align="right">用户名</div></td>
  261.             <td><%=Fs_User.UserName%></td>
  262.           </tr>
  263.           <tr class="hback"> 
  264.             <td><div align="right">类型</div></td>
  265.             <td><select name="ClassTypes" id="ClassTypes">
  266.                 <option value="0" <%if edit_rs("ClassTypes")=0 then response.Write("selected")%>>新闻文学类</option>
  267.                 <option value="3" <%if edit_rs("ClassTypes")=3 then response.Write("selected")%>>房产</option>
  268.                 <option value="4" <%if edit_rs("ClassTypes")=4 then response.Write("selected")%>>供求</option>
  269.                 <option value="5" <%if edit_rs("ClassTypes")=5 then response.Write("selected")%>>求职</option>
  270.                 <option value="6" <%if edit_rs("ClassTypes")=6 then response.Write("selected")%>>招聘</option>
  271.                 <option value="7" <%if edit_rs("ClassTypes")=7 then response.Write("selected")%>>日志/网摘</option>
  272.               </select>
  273.             </td>
  274.           </tr>
  275.           <tr class="hback"> 
  276.             <td><div align="right">专栏描述</div></td>
  277.             <td><textarea name="ClassContent" rows="6" id="ClassContent" style="width:60%"><% = edit_rs("ClassContent")%></textarea>
  278.               500个字符以内 </td>
  279.           </tr>
  280.           <tr class="hback"> 
  281.             <td>&nbsp;</td>
  282.             <td><input type="submit" name="Submit" value=" 保存专栏 ">
  283.               <input name="Action" type="hidden" id="Action" value="edit">
  284.               <input type="reset" name="Submit2" value="重置"></td>
  285.           </tr></form> 
  286.         </table>
  288.       <script language="JavaScript" type="text/JavaScript">
  289.   <!--
  290. function checkdata()
  291. {
  292. if(f_trim(document.form1.ClassCName.value)=='')
  293. {
  294. alert('填写中文名称');
  295. form1.ClassCName.focus();
  296. return false;
  297. }
  298. if(document.form1.ClassEName.value=='')
  299. {
  300. alert('填写英文名称');
  301. form1.ClassEName.focus();
  302. return false;
  303. }
  304. if(document.form1.ClassContent.value=='')
  305. {
  306. alert('填写描述');
  307. form1.ClassContent.focus();
  308. return false;
  309. }
  310. if(document.form1.ClassContent.value.length>500)
  311. {
  312. alert('描述最多500个字符');
  313. form1.ClassContent.focus();
  314. return false;
  315. }
  316. }
  317. -->
  318. </script>
  319.       <%
  320. end if
  321. end sub
  322. %>
  323.   </td>
  324.     </tr>
  325.     <tr class="back"> 
  326.       <td height="20"  colspan="2" class="xingmu"> <div align="left"> 
  327.           <!--#include file="Copyright.asp" -->
  328.         </div></td>
  329.     </tr>
  330.  
  331. </table>
  332. </body>
  333. </html>
  334. <%
  335. Set Fs_User = Nothing
  336. %>
  337. <script language="javascript">
  338. //去掉字串左边的空格 
  339. function lTrim(str) 
  340. { 
  341. if (str.charAt(0) == " ") 
  342. { 
  343. //如果字串左边第一个字符为空格 
  344. str = str.slice(1);//将空格从字串中去掉 
  345. //这一句也可改成 str = str.substring(1, str.length); 
  346. str = lTrim(str); //递归调用 
  347. } 
  348. return str; 
  349. } 
  351. //去掉字串右边的空格 
  352. function rTrim(str) 
  353. { 
  354. var iLength; 
  356. iLength = str.length; 
  357. if (str.charAt(iLength - 1) == " ") 
  358. { 
  359. //如果字串右边第一个字符为空格 
  360. str = str.slice(0, iLength - 1);//将空格从字串中去掉 
  361. //这一句也可改成 str = str.substring(0, iLength - 1); 
  362. str = rTrim(str); //递归调用 
  363. } 
  364. return str; 
  365. } 
  366. //去除左右空格
  367. /*
  368. 返回值:去除后的值
  369. 参数说明:_str,原值
  370. */
  371. function f_trim(_str)
  372. {
  373. return lTrim(rTrim(_str)); 
  374. }
  375. </script>
  376. <!--Powsered by Foosun Inc.,Product:FoosunCMS V4.0系列-->