<% Response.Status="301 Moved Permanently" Response.AddHeader "Location","feed/feed.php" %> <% Response.Charset="UTF-8" Session.CodePage=65001 SetLocale("en-us") '//转换时间为GMT(RFC822)格式 Function DateTimeToGMT(sDate) Dim dWeek,dMonth Dim strZero,strZone strZero="00" strZone="GMT" dWeek=Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat") dMonth=Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec") DateTimeToGMT = dWeek(WeekDay(sDate)-1)&", "&Right(strZero&Day(sDate),2)&" "&dMonth(Month(sDate)-1)&" "&Year(sDate)&" "&Right(strZero&Hour(sDate),2)&":"&Right(strZero&Minute(sDate),2)&":"&Right(strZero&Second(sDate),2)&" "&strZone End Function '//截取标题长度 Public Function Cut(Str, StrLen) Dim l, t, c, I l = Len(Str) t = 0 For I = 1 To l c = AscW(Mid(Str, I, 1)) If c < 0 Or c > 255 Then t = t + 2 Else t = t + 1 If t >= StrLen Then Cut = Left(Str, I) & "..." Exit For Else Cut = Str End If Next End Function %> <% Dim sRssHead,sRssBody,sRssEnd,sSql Response.ContentType = "text/xml" sRssHead = "" & vbNewLine sRssHead = sRssHead &"" & vbNewLine sRssHead = sRssHead &""& vbNewLine '频道(channel)名称 sRssHead = sRssHead &""& vbNewLine '频道所用语言 sRssHead = sRssHead & "http://www.expoinfo.org/" & vbNewLine '响应该频道的网站的URL sRssHead = sRssHead &"Find the most updated information about upcoming trade shows, trade fairs, trade events, business exhibition, business expos, international trade shows, trade fair, business events, trade exhibitions, trade expos."& vbNewLine '是GIF、JPEG或PNG图像文件的URL地址，该图像代表整个频道 sRssHead = sRssHead &"en-us"& vbNewLine '响应该频道的网站的URL sRssHead = sRssHead &"Copyright expoinfo.org. All rights reserved"& vbNewLine 'sSql = "Select Top 10 ID,Title,Content,Time,Url From [Article] Order By ID Desc" sSql="select top 10 * from SMT_exhibit where SMT_key<>0 and SMT_key2=1" sSql=sSql&" and dateDiff(d,SMT_z_begindate,getdate())<1" 'sSql=sSql&" and DATEPART(year, SMT_z_begindate)="&gyear 'sSql=sSql&" and DATEPART(month, SMT_z_begindate)="&gmonth sSql=sSql&" order by SMT_z_begindate asc" Set Rs=Conn.Execute(sSql) Do While Not Rs.Eof currentlink="http://www.expoinfo.org/show/"&rs("SMT_id")&"-"&get_pass(rs("SMT_z_name"))&".html" currentpubdate=DateTimeToGMT(rs("SMT_z_date")) currentbegindate=Day(rs("SMT_z_begindate")) & "-" & MonthName(month(rs("SMT_z_begindate")), True) & "-" & Year(rs("SMT_z_begindate")) currentlastdate=Day(rs("SMT_z_lastdate")) & "-" & MonthName(month(rs("SMT_z_lastdate")), True) & "-" & Year(rs("SMT_z_lastdate")) sRssBody = sRssBody & "" & vbNewLine 'item(节点)的标题 sRssBody = sRssBody & "" & vbNewLine 'item(节点)的URL sRssBody = sRssBody & ""¤tlink&"" & vbNewLine 'item(节点)的概要 sRssBody = sRssBody & "" & vbNewLine 'item(节点)作者的Email if rs("SMT_ypxxone_id")<>0 then set rs1=server.createobject("adodb.recordset") sql1="select * from SMT_ypxxone where SMT_ypxxone_id="&rs("SMT_ypxxone_id") rs1.open sql1,conn,1,1 sRssBody = sRssBody & ""&replace(rs1("SMT_ypxxone"),"&","&")&"" & vbNewLine rs1.close set rs1=nothing end if '内容的发布时间 sRssBody = sRssBody &""¤tpubdate&""& vbNewLine 'item(节点)结束 sRssBody = sRssBody &"" & vbNewLine Rs.MoveNext Loop Rs.Close Set Rs=Nothing sRssEnd = "" Response.Write(sRssHead) Response.Write(sRssBody) Response.Write(sRssEnd) Conn.Close Set Conn=Nothing %>