E_Zabihi
پنج شنبه 08 شهریور 1386, 09:16 صبح
این کد رو من قبلا نوشتم برای ساخت فایل rss خبری :
<%@ CodePage="65001"%>
<%
Function RemoveHTML( strText )
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>|&[^;]*;"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
End Function
TopicID = Request("TId")
if Not(IsNumeric(TopicID)) then TopicID=1
If TopicID<>"" then
CondStr = " AND TopicID = "&TopicID
else
CondStr = " "
end if
Const adOpenKeyset = 1
Const adOpenStatic = 3
set objConn = CreateObject("ADODB.CONNECTION")
set objRsNews = CreateObject("ADODB.RECORDSET")
objConn.Open Application("NNewsDBConnStr")
objRsNews.CursorType=3 ' adOpenStatic
objRsNews.Open "SELECT TOP 20 NewsID,Title,Abstract,TopicID,RegisterDate FROM Tbl_News WHERE (PubUserID IS NOT NULL) AND (InActive=0) AND ((TypeID=1) OR (TypeID=2)) "& CondStr &" ORDER BY RegisterDate DESC",objConn
Dim g_retVal
g_retVal = "<?xml version=""1.0"" encoding=""utf-8""?>"
' RSS 2.0 XML
g_retVal = g_retVal & "<rss version=""2.0""><channel>"
g_retVal = g_retVal & "<title>Irane1404 News</title>" 'title
g_retVal = g_retVal & "<link>http://www.irane1404.com</link>" 'link
g_retVal = g_retVal & "<description>Irane1404 News</description>" 'description
g_retVal = g_retVal & "<language>en-us</language>" 'language
g_retVal = g_retVal & "<copyright>Copyright 2006 By Irane1404 . All Rights Reserved.</copyright>"
g_retVal = g_retVal & "<generator>Irane1404 online RSS Generator</generator>"
g_retVal = g_retVal & "<webMaster>info@irane1404.com</webMaster>"
g_retVal = g_retVal & "<ttl>"& CStr(objRsNews.RecordCount) &"</ttl>"
if Not(objRsNews.EOF) then
do while Not(objRsNews.EOF)
g_retVal = g_retVal & "<item>"
g_retVal = vbCr & g_retVal & "<title>" & Server.HTMLEncode(objRsNews("Title").Value) & "</title>" 'title
g_retVal = g_retVal & "<pubDate>" & objRsNews("RegisterDate").Value & "</pubDate>" 'pubDate
g_retVal = g_retVal & "<guid>" & objRsNews("NewsID").Value & "</guid>" 'link
g_retVal = g_retVal & "<description>" & Server.HTMLEncode(RemoveHTML(objRsNews("Abstract").Value)) & "</description>" 'description
g_retVal = g_retVal & "<link>http://www.irane1404.com/Ndetail.asp?NID=" & objRsNews("NewsID").Value & Server.HTMLEncode("&") & "TID=" & objRsNews("TopicID").Value & "</link>" 'link
g_retVal = g_retVal & "</item>"
objRsNews.MoveNext
loop
end if
objRsNews.Close
g_retVal = g_retVal & "</channel></rss>"
Session.CodePage = 65001
response.ContentType="text/xml"
Response.Write g_retVal
%>