ShowJsNews.asp
资源名称:eat.rar [点击查看]
上传用户:jisenq
上传日期:2014-06-29
资源大小:7216k
文件大小:1k
源码类别:
数据库编程
开发平台:
ASP/ASPX
- <% Option Explicit %>
- <!--#include file="../../../FS_Inc/Const.asp" -->
- <!--#include file="../../../FS_InterFace/MF_Function.asp" -->
- <!--#include file="../../../FS_InterFace/ns_Function.asp" -->
- <!--#include file="../../../FS_Inc/Function.asp" -->
- <!--#include file="cls_main.asp" -->
- <!--#include file="Cls_Js.asp"-->
- <%'Copyright (c) 2006 Foosun Inc. Code by Einstein.Liu
- Dim Conn,newsRs,jsName
- MF_Default_Conn
- MF_Session_TF
- jsName=NoSqlHack(request.querystring("JSName"))
- If jsName<>"" then
- Set newsRs=Conn.execute("Select title from FS_NS_FreeJsFile where JSName='"&jsName&"'")
- End if
- %>
- <HTML>
- <HEAD>
- <TITLE>CMS4.0</TITLE>
- <link href="../../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
- </HEAD>
- <BODY>
- <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
- <tr>
- <td class="xingmu" colspan="2">调用新闻:</td>
- </tr>
- <%
- Dim index
- index=0
- If Not IsNull(newsRs) Then
- While Not newsRs.eof
- index=index+1
- Response.write "<tr>"&vbcrlf
- Response.write "<td width=""8"" class=""hback""><img src=""../../images/all_article_icon.gif""></td><td class=""hback"">"&index&":"&newsRs("title")&"</td>"&vbcrlf
- Response.write "</tr>"
- newsRs.movenext
- wend
- End if
- %>
- </table>
- </BODY>
- </HTML>
- <%
- If Not IsNull(newsRs) then
- newsRs.close()
- End If
- Set newsRs=nothing
- %>
- <!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->