Category

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

ADO-ODBC

Development Platform:

ASP/ASPX

News_Label_styleread.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="../../FS_Inc/Func_page.asp" -->
  7. <%
  8. Response.Buffer = True
  9. Response.Expires = -1
  10. Response.ExpiresAbsolute = Now() - 1
  11. Response.Expires = 0
  12. Response.CacheControl = "no-cache"
  13. Dim Conn,obj_label_Rs,SQL
  14. MF_Default_Conn
  15. 'session判断
  16. MF_Session_TF 
  17. If Request("id")="" Then
  18. Response.Write "<script language=""JavaScript"" type=""text/javascript"" src=""../../FS_Inc/PublicJs.js""></script>"&vbcrlf
  19. Response.Write "<SCRIPT LANGUAGE=""JavaScript"">ShowErr(""错误：n参数错误n找不到id"");</SCRIPT>"
  20. Response.End
  21. End If
  22. %>
  23. <html>
  24. <head>
  25. <title>新闻标签管理</title>
  26. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  27. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  28. <base target=self>
  29. </head>
  30. <body>
  31. <script language="JavaScript" src="../../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
  32. <table width="98%" height="81" border="0" align="center" cellpadding="4" cellspacing="0">
  33.   <tr > 
  34.     <td width="100%" align="center"">  <table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  35.         <%
  36. Set obj_label_Rs = server.CreateObject(G_FS_RS)
  37. SQL = "Select  StyleName,Content,AddDate from FS_MF_Labestyle where id=" & Request("id")
  38. obj_label_Rs.Open SQL,Conn,1,3
  39. if not obj_label_Rs.eof then
  40. %>
  41.         <tr style="display:"  class="hback"> 
  42.           <td height="42" colspan="2"  class="hback"> <%= obj_label_Rs("Content")%></td>
  43.         </tr>
  44.         <%
  45. obj_label_Rs.close:set obj_label_Rs = nothing
  46.   End if
  47. %>
  48.       </table>
  49.       <div align="center"> 
  50.         <input name="button2" type="button" onClick="window.returnValue='';window.close();" value="关闭窗口">
  51.       </div></td>
  52.   </tr>
  53. </table>
  54. </body>
  55. </html>
  56. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->