mess.asp

来自「asp.net +AJAX无刷新聊天室」· ASP 代码 · 共 35 行

<%Response.Charset="gb2312"%> 
<% 
dim node,i,nodecount 
set xml = CreateObject("Microsoft.XMLDOM") 
xml.async = false 
xml.load(Server.MapPath("data.xml")) 
set root = xml.documentElement 
set nodeLis = root.childNodes 
nodeCount = nodeLis.length
nums=nodeCount-15
For i=1 to nums
set node = nodeLis.nextNode() 
next
For i=i to nodeCount 
set node = nodeLis.nextNode() 
sty1=""
sty2=""
face=""
select case node.selectSingleNode("mfont").text
case "1"
sty1="<b>"
sty2="</b>"
case "2"
sty1="<i>"
sty2="</i>"
end select
if node.selectSingleNode("elist").text<>"" then
face="<img src=face/"&node.selectSingleNode("elist").text&">"
end if
%> 
<font color="#FF0000"><%=node.selectSingleNode("time").text%></font> [<font color="#663300"><%=node.selectSingleNode("user").text%></font>]对[<font color="#663300"><%=node.selectSingleNode("mtowho").text%></font>]说: <%=sty1%><font color="<%=node.selectSingleNode("mfcolor").text%>"><%= node.selectSingleNode("mess").text%></font><%=sty2%> <%=face%><br/>
<% 
Next 
%>