ShowJsNews.asp
上传用户:jisenq
上传日期:2014-06-29
资源大小:7216k
文件大小:1k
源码类别:

数据库编程

开发平台:

ASP/ASPX

  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. <!--#include file="cls_main.asp" -->
  7. <!--#include file="Cls_Js.asp"-->
  8. <%'Copyright (c) 2006 Foosun Inc. Code by Einstein.Liu
  9. Dim Conn,newsRs,jsName
  10. MF_Default_Conn
  11. MF_Session_TF
  12. jsName=NoSqlHack(request.querystring("JSName"))
  13. If jsName<>"" then
  14. Set newsRs=Conn.execute("Select title from FS_NS_FreeJsFile where JSName='"&jsName&"'")
  15. End if
  16. %>
  17. <HTML>
  18. <HEAD>
  19. <TITLE>CMS4.0</TITLE>
  20. <link href="../../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  21. </HEAD>
  22. <BODY>
  23. <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
  24.   <tr> 
  25.     <td class="xingmu" colspan="2">调用新闻:</td>
  26.   </tr>
  27.   <%
  28.   Dim index
  29.   index=0
  30.   If Not IsNull(newsRs) Then
  31. While Not newsRs.eof
  32. index=index+1
  33. Response.write "<tr>"&vbcrlf
  34. Response.write "<td width=""8"" class=""hback""><img src=""../../images/all_article_icon.gif""></td><td class=""hback"">"&index&":"&newsRs("title")&"</td>"&vbcrlf
  35. Response.write "</tr>"
  36. newsRs.movenext
  37. wend
  38.   End if
  39.   %>
  40. </table>
  41. </BODY>
  42. </HTML>
  43. <%
  44. If Not IsNull(newsRs) then
  45. newsRs.close()
  46. End If
  47. Set newsRs=nothing
  48. %>
  49. <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->