Category

Development Platform
Home > SourceCode/Document > Windows Develop > ADO-ODBC > View Code
Get_CopyNews.asp
Package: eat.rar　[view]
Upload User: jisenq
Upload Date: 2014-06-29
Package Size: 7216k
Code Size: 3k
Category:

ADO-ODBC

Development Platform:

ASP/ASPX

Get_CopyNews.asp：Code Content
  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="../../FS_InterFace/NS_Function.asp" -->
  6. <!--#include file="lib/cls_main.asp" -->
  7. <%'CopyRight (c) 2006 Fooun Inc. Code by Simpwind.Xie
  8. Dim Conn,strShowErr,Fs_news,obj_mf_sys_obj,MF_Domain,MF_Site_Name,tmp_str_list,str_Id,obj_unite_rs,str_ClassId
  9. MF_Default_Conn
  10. 'session判断
  11. MF_Session_TF 
  12. '权限判断
  13. set Fs_news = new Cls_news
  14. set obj_mf_sys_obj = Conn.execute("select top 1 MF_Domain,MF_Site_Name from FS_MF_Config")
  15. str_Id = server.HTMLEncode(NoSqlHack(Request.QueryString("Id")))%> 
  16. <html>
  17. <head>
  18. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  19. <title>栏目管理___Powered by foosun Inc.</title>
  20. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  21. <style>
  22. .RefreshLen{
  23. height: 20px;
  24. width: 400px;
  25. border: 1px solid #104a7b;
  26. text-align: left;
  27. MARGIN-top:50px;
  28. margin-bottom: 5px;
  29. }
  30. </style>
  31. </head>
  32. <body>
  33. <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  34.   <tr class="hback">
  35.     <td colspan="2" class="xingmu"><strong>栏目管理</strong><a href="../../help?Lable=NS_News_Manage" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a>　　　　　　　　　　　　　　    </td>
  36.   </tr>
  37.   <tr>
  38.     <form name="form1" method="post" action="">
  39.       <td width="48%" height="18" class="hback"><div align="left"><a href="News_Manage.asp">首页</a></div></td>
  40.       <td class="hback"><div align="center"></div>        </td>
  41.     </form>
  42.   </tr>
  43. </table>
  44. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  45.   <form name="form1" method="post" action="">
  46.     <tr>
  47.       <td colspan="2" class="xingmu">复制新闻选择栏目</td>
  48.     </tr>
  49.     <tr>
  50.     <td width="28%" class="hback"><div align="right">选择栏目</div></td>
  51.     <td width="72%" class="hback">
  52.       <input name="id" type="hidden" id="id" value="<% = str_Id %>">
  53.     
  54.       <label>
  55.       <select name="TargetClassId" id="TargetClassId" style="width:80%">
  56.         <%
  57. tmp_str_list  = ""
  58. Set obj_unite_rs = server.CreateObject(G_FS_RS)
  59. obj_unite_rs.Open "Select Orderid,id,ClassID,ClassName,ParentID from FS_NS_NewsClass where Parentid  = '0' and ReycleTF=0 Order by Orderid desc,ID desc",Conn,1,1
  60. do while Not obj_unite_rs.eof 
  61. tmp_str_list = tmp_str_list &"<option value="""& obj_unite_rs("ClassID") &","& obj_unite_rs("ParentID") &""">+"& obj_unite_rs("ClassName") &"</option>"& Chr(13) & Chr(10)
  62. tmp_str_list = tmp_str_list &Fs_news.UniteChildNewsList(obj_unite_rs("ClassID"),"")
  63.  obj_unite_rs.movenext
  64. Loop
  65. obj_unite_rs.close
  66. set obj_unite_rs = nothing
  67. Response.Write tmp_str_list
  68.  %>
  69.       </select>
  70.       </label></td>
  71.   </tr>
  72.   <tr class="hback">
  73.     <td>&nbsp;</td>
  74.     <td><label>
  75.       <input type="submit" name="Submit" value="确定开始拷贝您选择的新闻 ">
  76.     </label></td>
  77.   </tr></form>
  78. </table>
  79. </body>
  80. </html>
  81. <%
  82. set Fs_news = nothing
  83. %>