<%
sql="SELECT * FROM 聊天表 ORDER BY ID DESC" 降序输入查询了局
Set rootRs=conn.Execute(sql)
set name=rootrs("姓名") 从数据库中获得姓名、措辞、色彩、脸色等
set word=rootrs("措辞")
set colo=rootrs("色彩")
set face=rootrs("脸色")
set who=rootrs("措辞对象")
%>
<%i=0%> 界说输入纪录数 i
<%Do While Not rootRs.Eof and i<=50%> 显示50句话,包含姓名、话语、色彩、脸色等
<%i=i+1%>
<table border='0' cellpadding='0' cellspacing='0' width='85%'><tr>
<td width='100%' bgcolor='#C0C0C0'></td></tr><tr><td width='100%'>
<font color='#0000FF'><strong><%=name%></font></strong><font color='#008080'><%=face%></font><font color='#0000FF'><strong><%=who%>说:
</font></strong><font color='<%=colo%>'><%=word%>
</font></td></tr><tr>
<td width='100%' bgcolor='#C0C0C0'></td></tr></table><br>
<%rootRs.MoveNext
Loop%>