有问题,我访问不了,我放到我站目录下 http://www.567tour.com/rss.asp
代码修改为:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Inc/Cls_DB.asp"-->
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/NoSqlHack.Asp"-->
<%
on error resume next
set DBC=new DatabaseClass
set rss_conn = DBC.openconnection()
wordnum=50 '======定义默认简介内容字数
connstr=""
if len(trim(request.querystring("classEName")))>0 then
className = trim(request.querystring("classEName"))
set whatClass = server.CreateObject("adodb.recordset")
whatClassSQL = "select * from FS_newsClass where ClassEName='"&className&"'"
whatClass.open whatClassSQL,rss_conn
connstr="where ClassID='"&whatClass("ClassID")&"'"
end if
set rs = server.CreateObject("adodb.recordset")
strSQL = "select top 100 * from FS_news " &connstr &"order by id desc"
rs.open strSQL,rss_conn,3,3
set webconfig = server.CreateObject("adodb.recordset")
webSQL = "select * from FS_config"
webconfig.open webSQL,rss_conn
if err.number<> 0 then
response.write "没有找到任何内容"
else
response.contentType="text/xml"
response.write("<?xml version=""1.0"" encoding=""GB2312""?>")
'response.write "<?xml-stylesheet href=""css/rss.css"" type=""text/css""?>"
response.write("<rss version=""2.0"">")
response.write "<channel>"
if len(className)<=0 then
response.write "<title>"&replace(webconfig("SiteName"),"&","")&"</title>"
else
response.write "<title>"&replace(webconfig("SiteName"),"&","")&"["&replace(whatClass("ClassCName"),"&","")&"]</title>"
end if
do while not rs.eof
set newsClass = server.CreateObject("adodb.recordset")
classSQL = "select * from FS_newsClass where classID='"&rs("ClassID")&"'"
newsClass.open classSQL,rss_conn
response.write "<item>"
response.write "<title>" &replace(rs("title"),"&","")&"</title>"
response.write "<description><![CDATA["&left(replace(rs("content"),"&",""),wordnum)&"……"&"]]></description>"
linkStr="<link>" &replace(webconfig("DoMain"),"&","")&replace(newsClass("saveFilePath"),"&","")&"/"&replace(newsClass("ClassEName"),"&","")&"/"&replace(rs("filename"),"&","")&"."&replace(rs("fileextname"),"&","")&"</link>"
if len(trim(request.querystring("useDatePath")))>0 and request.QueryString("useDatePath")="1" then '====判断是否使用日期路径
linkStr="<link>" &replace(webconfig("DoMain"),"&","")&replace(newsClass("saveFilePath"),"&","")&"/"&replace(newsClass("ClassEName"),"&","")&replace(rs("Path"),"&","")&"/"&replace(rs("filename"),"&","")&"."&replace(rs("fileextname"),"&","")&"</link>"
end if
response.write linkStr
response.write "<category>" &replace(newsClass("ClassCName"),"&","")&"</category>"
response.write "<author>" &replace(rs("Author"),"&","")&"</author>"
response.write "<pubDate>"&rs("addDate")&"</pubDate>"
response.write "<comments></comments>"
response.write "</item>"
newsClass.close
set newsClass = nothing
rs.movenext
loop
response.write "</channel>"
response.write("</rss>")
end if
rs.close
set rs=nothing
%>
请指点指点哈!
