📄 show_mess.asp
字号:
<%
' Show_Mess.asp
Set cnObj = Server.CreateObject("ADODB.Connection")
dbpath = Server.MapPath("DB.mdb")
cnObj.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath
cnObj.Open
sqlcmd = "SELECT TOP 20 * FROM CHAT ORDER BY 留言时间 DESC"
Set rsObj = cnObj.Execute(sqlcmd)
%>
<html>
<head>
<meta http-equiv="refresh"
content="<% = Session("user_time") %>;url=show_mess.asp">
</head>
<body background="blutextb.gif">
<center>
<p><img src="ChatRoom_Title.jpg"></p>
<%
Do While Not rsObj.EOF
' 取得小时与分
mess_time = Hour(rsObj("留言时间")) & "：" & Minute(rsObj("留言时间"))
If rsObj("说话对象") = "Everybody" Or rsObj("说话对象") = Session("name") Or _
rsObj("姓名") = Session("name") Then
%>
<table>
<tr>
<td width="80"><font color="green">[<% = mess_time %>]</font></td>
<td width="600"><%=rsObj("系统")%><img src="<%=rsObj("图示")%>" align="middle">-
<font color="blue">『<%=rsObj("姓名")%>』</font>对
<font color="red"><%=rsObj("说话对象")%></font>说：
<font color="<%=rsObj("字体颜色")%>"><%=rsObj("内容")%></font>
</td>
<tr>
<td colspan="2"><hr aling="center" color="pink"></td>
</tr>
</table>
<% End If
rsObj.MoveNext
Loop
rsObj.Close
cnObj.Close
Set rsObj = Nothing
Set cnObj = Nothing
%>
</center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -