📄 atline.asp
字号:
<html>
<head>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub bb(d)
top.fy.fy.ren.value=d
end sub
-->
</SCRIPT>
</head>
<body bgcolor="#CCFFCC">
<% 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 atline" ,strcnn
if rst.eof=true then%>
<p>没有谈话内容！<%=t%></p>
<% else%>
<table border="0" cellspacing="0" width="120%" cellpadding="0" bordercolordark="#FFFFFF" bordercolorlight="#1840B0" align="left">
<tr>
<FONT COLOR="#000099" face="楷体_GB2312">聊天室里</font>
<tr>
<FONT COLOR="#000099" face="楷体_GB2312">有</font> <FONT COLOR="red" size="3" ><%=Application("N")%></font> <FONT COLOR="#000099" face="楷体_GB2312">人</font>
<tr>
<% dim fy
do until rst.eof
fy= rst("名字")
%>
<tr><td><IMG height=19 src="ico/<%=rst("肖像")%>" "SCRIPT LANGUAGE="VBScript" : OnClick='call bb("<%=fy%>")'"><FONT COLOR="#000099" "SCRIPT LANGUAGE="VBScript" : OnClick='call bb("<%=fy%>")'"><%=rst("名字")%> </FONT></td >
<% rst.movenext
loop %>
<%conn.close
set conn=nothing
rst.close
set rst=nothing
end if
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -