📄 fp.asp
字号:
<html>
<head>
<title>聊天室</title>
<SCRIPT LANGUAGE="vbScript">
<!--
sub dd(d)
top.fy.fy.ren.value=d
end sub
-->
</SCRIPT>
</head>
<body bgcolor="#CCCCFF" >
<%
dim nu
dim t
nu=session("nam1")
t=session("tim")
strcnn="provider=Microsoft.Jet.OLEDB.4.0;Data source=" & server.MapPath("liaotian.mdb")
set conn=server.CreateObject("ADODB.Connection")
conn.open strCnn
set rst=server.CreateObject("ADODB.Recordset")
rst.open"select * from liao where 时间 >= '" & t & "' and (发言人='" & trim(session("nam1")) & "' or 对话人='"& trim(session("nam1")) & "' or 对话人='大家') " ,strcnn
if rst.eof=true then%>
<p></p>
<% else%>
<table border="0" cellspacing="0" width="100%" cellpadding="0" bordercolordark="#FFFFFF" bordercolorlight="#1840B0" align="left">
<tr>
<% dim fy
do until rst.eof
fy= rst("发言人")
%>
<tr><td><IMG height=19 src="ico/<%=rst("肖像")%>" "SCRIPT LANGUAGE="VBScript" : OnClick='call dd("<%=fy%>")'"><FONT COLOR="#000099" "SCRIPT LANGUAGE="VBScript" : OnClick='call dd("<%=fy%>")'"><%=rst("发言人")%> </FONT><FONT COLOR="red">对 <FONT COLOR="blude" "SCRIPT LANGUAGE="VBScript" : OnClick='call dd("<%=rst("对话人")%>")'"><%=rst("对话人")%> </FONT></a>说<FONT COLOR="#FF00FF">（<%=rst("时间")%>）</FONT>： <FONT COLOR="#0000A0"><%=rst("说话")%></FONT></FONT></td >
<% rst.movenext
loop %>
<%conn.close
set conn=nothing
rst.close
set rst=nothing
end if
%>
<tr><td>
<a name="top"></a><td>
</table>
<SCRIPT LANGUAGE="vbScript">
<!--
window.location="/liaotian/fp.asp#top"
-->
</SCRIPT>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -