rss.asp

这是一个非常好的留言版程序

<!--#include file="conn.asp"-->
<!--#include file="include/function.asp"-->
<!--#include file="include/setup.asp"-->
<!--#include file="head.asp"-->
<!--#include file = "So_page.asp"-->
<script language="JavaScript">
function submitForm(obj)
{
	var Title=obj.Title.value;
	var Sort=obj.Sort.value;	
	obj.action="list.asp?sort="+Sort+"&title="+Title;
	return true;
}
</script>

<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="10" colspan="3"></td>
    </tr>
  <tr>
    <td width="220" height="28" align="left" bgcolor="#D4D0C8" class="title">48小时精彩好贴</td>
    <td width="10"></td>
    <td align="left" bgcolor="#9E9EAD" class="title">RSS订阅</td>
  </tr>
  <tr>
    <td height="28" align="left" valign="top" bgcolor="#F4EFE5" class="list"><%
		row=0
		set rszhai=conn.execute("select top 15 ID,IIf(Len(Title)<15,Title,Left(Title,15)+'..') as Title,UserID,PostTime,HtmUrl,filepath,FromURL,a.Sort,b.SortName,IIf(Len(Intro)<100,Intro,Left(Intro,100)+'...') as Intro,c.ZhaiID,c.Visits from zhai a,sort b,(select ZhaiID,count(*) as Visits from visit where int(now-VisitTime)<=2 group by ZhaiID order by count(*) desc) c where a.Sort=b.SortID and ID=c.ZhaiID and isPub=true order by Visits desc")
		do while not rszhai.Eof	
			if isgd=1 then
				linkadd="article/"&rszhai("filepath")&"/"&rszhai("HtmUrl")
			else
				linkadd="goto.asp?id="&rszhai("id")
			end if			
			a=split(rszhai("PostTime"),"-")	
			Response.Write("·<a href="&linkadd&" target='_blank' >"&HTMLEncode(rszhai("Title"))&"</a><br>")
			rszhai.movenext
			row=row+1
			if row=18 then
				Exit do
			end if
		loop
		rszhai.close
	   %></td>
    <td></td>
    <td valign="top" bgcolor="#E6E6EB"><table width="100%" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td height="25" colspan="3" align="left" class="list"><b>要想订阅RSS内容，请先下载RSS新闻阅读器</b></td>
      </tr>
      <tr>
        <td colspan="3"></td>
      </tr>
      <tr>
        <td height="25" align="center"><a href="http://www.mydown.com/soft/203/203013.html" target="_blank">1.博阅RSS阅读器下载</a></td>
        <td align="center"><a href="http://www.kantianxia.com/pcreader-download.htm" target="_blank">2.“看天下”RSS新闻阅读器下载</a></td>
        <td align="center"><a href="http://download.pchome.net/utility/file/browse/19140.html" target="_blank">3.周博通RSS阅读器下载</a></td>
      </tr>
    </table>
      <%
set rs=server.createobject("adodb.recordset")
sql="select sortid,sortname from sort where issy=true"
rs.open sql,conn,1,1

    zjls=rs.recordcount
    if zjls mod 2 =0 then
	   hs=zjls/2
	else
	   hs=round(zjls/2+0.6)
	end if

    For i=1 to hs
    if rs.eof then exit for

%>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="10%" align="center"><img src="image/xml.gif" /></td>
          <td height="28" align="left"><a href="rss2feed.asp?sort=<%=rs("sortid")%>" target="_blank" title="RSS格式输出"><%=rs("sortname")%>&nbsp;&nbsp;<%=request.ServerVariables("SERVER_NAME")%>/rss2feed.asp?sort=<%=rs("sortid")%></a></td>
        </tr>
      </table>
      <%
		rs.movenext
		if rs.eof then exit for

		%>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="10%" align="center"><img src="image/xml.gif" /></td>
          <td height="28" align="left"><a href="rss2feed.asp?sort=<%=rs("sortid")%>" target="_blank" title="RSS格式输出"><%=rs("sortname")%>&nbsp;&nbsp;<%=request.ServerVariables("SERVER_NAME")%>/rss2feed.asp?sort=<%=rs("sortid")%></a></td>
        </tr>
      </table>
      <%
		rs.movenext
		if rs.eof then exit for
        next
		%>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td align="left" class="list"><p><br />
              --------------------------------------------------------<br />
              <span class="title">·什么是RSS</span><br />
                &nbsp;&nbsp;&nbsp;&nbsp;RSS是站点用来和其他站点之间共享内容的一种简易方式（也叫聚合内容），通常被用于新闻和其他按顺序排列的网站，例如Blog。一段项目的介绍可能包含新闻的全部介绍等。或者仅仅是额外的内容或者简短的介绍。这些项目的链接通常都能链接到全部的内容。网络用户可以在客户端借助于支持RSS的新闻聚合工具软件（例如SharpReader,NewzCrawler、FeedDemon），在不打开网站内容页面的情况下阅读支持RSS输出的网站内容。网站提供RSS输出，有利于让用户发现网站内容的更新。<br />
                  <br />
                  <span class="title">·RSS如何工作</span><br />
                  &nbsp;&nbsp;&nbsp;&nbsp;您一般需要下载和安装一个RSS新闻阅读器，然后从网站提供的聚合新闻目录列表中订阅您感兴趣的新闻栏目的内容。订阅后，您将会及时获得所订阅新闻频道的最新内容。</p>
              <p><span class="title">·RSS新闻阅读器的特点</span><br />
                    &nbsp;&nbsp;&nbsp;&nbsp;1.没有广告或者图片来影响标题或者文章概要的阅读。<br />
                      &nbsp;&nbsp;&nbsp;&nbsp;2.RSS阅读器自动更新您订制的网站内容，保持新闻的及时性。<br />
                      &nbsp;&nbsp;&nbsp;&nbsp;3.用户可以加入多个订制的RSS提要，从多个来源搜集新闻整合到单个数据流中。<br />
                <br />
                <span class="title">·下载RSS新闻阅读器提示</span>>
            <br />
              &nbsp;&nbsp;&nbsp;&nbsp;为了使您能够更方便的阅读到E摘网全球最新娱乐精华，我们建议您安装<a href="down/rss/BoYue1.0.rar">博阅RSS阅读器</a>或<a href="down/rss/kantianxia.rar">“看天下”RSS新闻阅读器</a><br />
              &nbsp;&nbsp;&nbsp;&nbsp;博阅RSS阅读器需在Java工作环境中运行，请先下载安装<a href="http://www.java.com/zh/download/windows_automatic.jsp">JRE</a>后，再下载安装   RSS信息阅读器。如果您的机器已经有<a href="http://www.java.com/zh/download/windows_automatic.jsp">JRE</a>，则可直接订阅
            <br />
&nbsp;&nbsp;&nbsp;&nbsp;有些RSS阅读器(SharpReader)等需在 .NET Framework工作环境中运行，请先下载安装<a href="http://v5.windowsupdate.microsoft.com/v5consumer/default.aspx?ln=zh-cn">Microsoft   .NET Framework</a>后，再下载安装 RSS新闻阅读器。 </td>
        </tr>
      </table></td>
  </tr>
</table>
<!--#include file="bottom.asp"-->