最新纠结帖子：
<%
Function readrss(xmlseed)
dim xmlDoc
dim http
Dim title_s
Dim item,title,link,str,category,link2
Dim i
Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET",xmlseed,False
http.send
Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.Async=False
xmlDoc.ValidateOnParse=False
xmlDoc.Load(http.ResponseXML)
Set item=xmlDoc.getElementsByTagName("item")
if item.Length<=1 then
else
For i=0 to 19 '调出最新10条数据，可自己修改
Set title=item.Item(i).getElementsByTagName("title")
Set link=item.Item(i).getElementsByTagName("link")
Set link2=item.Item(i).getElementsByTagName("link2")
Dim author,pubDate
Set author=item.Item(i).getElementsByTagName("author")
Set category=item.Item(i).getElementsByTagName("category")
Dim poster,url,cate,url2
poster=author.Item(0).Text
url=link.Item(0).Text
url2=link2.Item(0).Text
cate=category.Item(0).Text
title_s =title.Item(0).Text
if (len(title_s)>12) then
title_s=left(title.Item(0).Text,30)&"" '控制文章标题字数为30个字，可自己修改
end if
str = str & "- "&poster&""& title_s &""& cate &"
"
readrss = str
Next
end if
End Function
Dim post
post=readrss("http://www.jiujie2.com/bbs/rss.php?fid=0") '引号里面是rss源地址
%>
<%=post%>
什么是纠结？
纠结，词语，可指难于解开或理清的缠结，也指树木的枝干互相缠绕。唐朝诗人李白的《古意》一诗中：“枝枝相纠结，叶叶竞飘扬。”中“枝枝相纠结”也有亲情的意思，比如兄弟间，也叫纠结，因为血缘或者其他原因不能分开。但通常指不情愿的联系。在动漫、网络中纠结也表示囧。使陷入困惑或混乱状态，焦虑的表现形式一种，可指难于解开或理清的缠结。心理：某种感觉或某件事情在心上纠着个疙瘩，解不开又放不下。
身体：某种别扭的姿态。
关系：暧昧不清似合非合似离非离的感情。