📄 search1.asp
字号:
<table align=center bgcolor=#ffffff border=0 cellpadding=0 cellspacing=0 width=775 height="72">
<tr>
<td align=middle width=381 height="78">
<div align="center"><img src="../map/t5.jpg" width="397" height="72"></div>
</td>
<td align=middle width=131 height="78"></td>
<td align=middle width=263 height="78"><img src="../map/t4.jpg" width="309" height="72"></td>
</tr>
</table>
<table align=center border=0 cellpadding=0 cellspacing=0 width=775>
<tr bgcolor="#78793C">
<td align=middle bgcolor=#993300 height=18 width="63"><a href="../default.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image3','','../map/laot1-2-1.gif',1)"><img name="Image3" border="0" src="../map/laot1-2.gif" width="63" height="18"></a></td>
<td align=middle bgcolor=#993300 height=18 width="98"><a href="search.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image4','','../map/laot1-3-1.gif',1)"><img name="Image4" border="0" src="../map/laot1-3.gif" width="98" height="18"></a></td>
<td align=middle height=18 bgcolor="#78793C" width="99"><a href="../newluntan/lt-main.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image14','','../map/laot1-4-1.gif',1)"><img name="Image14" border="0" src="../map/laot1-4.gif" width="98" height="18"></a></td>
<td align=middle height=18 width="259" bgcolor="#78793C"> </td>
<td align=middle height=18 width="127"> </td>
<td align=middle height=18 width="129"> </td>
</tr>
</table>
<table width="775" border="0" align="center" cellpadding="0" cellspacing="0" height="20">
<tr>
<td width="375"></td>
<td width="400" background="../map/laoz1-3-1.gif">
<div align="center"><a href="listfriend.asp">好友一览</a></div>
</td>
</tr>
</table>
<table width="775" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="21"> </td>
<td width="737"> </td>
<td width="17"> </td>
</tr>
<tr>
<td width="21" height="13"> </td>
<td width="737" height="13">
</td>
<td width="17" height="13"> </td>
</tr>
<tr>
<td width="21"> </td>
<td width="737">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3" height="2" bgcolor="#DEDEA7"></td>
</tr>
<tr>
<td width="2" bgcolor="#DEDEA7"></td>
<td width="752" bgcolor="#F4F4E3" valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="5%"> </td>
<td width="90%"> </td>
<td width="5%"> </td>
</tr>
<tr>
<td width="5%"> </td>
<td width="90%">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
do while not rs.EOF
%>
<tr>
<%User_ID=rs("User_ID")
for i=0 to ubound(user) '获得非空的在线用户列表
if strcomp(user(i),trim(User_ID))=0 then
zx=0
exit for
else
zx=1
end if
next
'if instr(1,trim(application("OnlineUser")),trim(User_ID))<>0 then
if zx="0" then
%>
<td width="13%">
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align=center onMousedown="flipMenu(document.all.Mnu<%=rs("id")%>)">
<%sex=rs("user_sex")%>
<div align="center">
<%
if sex="男" then
%>
<img src="../map/man.gif" width="32" height="32">
<%
else
%>
<img src="../map/woman.gif" width="32" height="32">
<%
end if
%>
</div>
</td>
</tr>
<tr>
<td>
<div align="center"><%=rs("User_ID")%></div>
</td>
</tr>
<tr>
<td>
<table align="center" id=Mnu<%=rs("id")%> style="cursor:default; visibility:hidden;">
<tr>
<td><a href="userinfo.asp?ID=<%=Rs("ID")%>&lookid=<%=rs("user_id")%>" title=<%=rs("User_ID")%> >用户信息</a></td>
</tr>
<tr>
<td><a href="joinfriend.asp?Friend_RegistID=<%=Rs("User_id")%>" title=<%=rs("User_id")%>>添加好友</a></td>
</tr>
<tr>
<td><a href="bbsSendBegin.asp?df_id=<%=rs("user_id")%>">发送消息</a></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<%else %>
<td width="11%">
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align=center onMouseDown="flipMenu(document.all.Mnu<%=rs("id")%>)">
<%sex=rs("user_sex")%>
<div align="center">
<%
if sex="男" then
%>
<img src="../map/mand.gif" width="32" height="32">
<%
else
%>
<img src="../map/womand.gif" width="32" height="32">
<%
end if
%>
</div>
</td>
</tr>
<tr>
<td>
<div align="center"><%=rs("User_ID")%></div>
</td>
</tr>
<tr>
<td>
<table align="center" id=Mnu<%=rs("id")%> style="cursor:default; visibility:hidden;">
<tr>
<td><a href="userinfo.asp?ID=<%=Rs("ID")%>&lookid=<%=rs("user_id")%>" title=<%=rs("User_ID")%> >用户信息</a></td>
</tr>
<tr>
<td><a href="joinfriend.asp?Friend_RegistID=<%=Rs("User_id")%>" title=<%=rs("User_id")%>>添加好友</a></td>
</tr>
<tr>
<td><a href="bbsSendBegin.asp?df_id=<%=rs("user_id")%>">发送消息</a></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<%end if%>
<%rs.MoveNext
if rs.EOF then
exit do
else
%>
<%User_ID=rs("User_ID")
for i=0 to ubound(user) '获得非空的在线用户列表
if strcomp(user(i),trim(User_ID))=0 then
zx=0
exit for
else
zx=1
end if
next
'if instr(1,trim(application("OnlineUser")),trim(User_ID))<>0 then
if zx="0" then
%>
<td width="9%">
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align=center onMouseDown="flipMenu(document.all.Mnu<%=rs("id")%>)">
<%sex=rs("user_sex")%>
<div align="center">
<%
if sex="男" then
%>
<img src="../map/man.gif" width="32" height="32">
<%
else
%>
<img src="../map/woman.gif" width="32" height="32">
<%
end if
%>
</div>
</td>
</tr>
<tr>
<td>
<div align="center"><%=rs("User_ID")%></div>
</td>
</tr>
<tr>
<td>
<table align="center" id=Mnu<%=rs("id")%> style="cursor:default; visibility:hidden;">
<tr>
<td> <a href="userinfo.asp?ID=<%=Rs("ID")%>&lookid=<%=rs("user_id")%>" title=<%=rs("User_ID")%> >用户信息</a></td>
</tr>
<tr>
<td><a href="joinfriend.asp?Friend_RegistID=<%=Rs("User_id")%>" title=<%=rs("User_id")%>>添加好友</a></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<%else %>
<td width="9%">
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align=center onMouseDown="flipMenu(document.all.Mnu<%=rs("id")%>)">
<%sex=rs("user_sex")%>
<div align="center">
<%
if sex="男" then
%>
<img src="../map/mand.gif" width="32" height="32">
<%
else
%>
<img src="../map/womand.gif" width="32" height="32">
<%
end if
%>
</div>
</td>
</tr>
<tr>
<td>
<div align="center"><%=rs("User_ID")%></div>
</td>
</tr>
<tr>
<td>
<table align="center" id=Mnu<%=rs("id")%> style="cursor:default; visibility:hidden;">
<tr>
<td><a href="userinfo.asp?ID=<%=Rs("ID")%>&lookid=<%=rs("user_id")%>" title=<%=rs("User_ID")%> >用户信息</a></td>
</tr>
<tr>
<td><a href="joinfriend.asp?Friend_RegistID=<%=Rs("User_id")%>" title=<%=rs("User_id")%>>添加好友</a></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<%end if%>
<%rs.MoveNext
if rs.EOF then
exit do
else
%>
<%User_ID=rs("User_ID")
for i=0 to ubound(user) '获得非空的在线用户列表
if strcomp(user(i),trim(User_ID))=0 then
zx=0
exit for
else
zx=1
end if
next
'if instr(1,trim(application("OnlineUser")),trim(User_ID))<>0 then
if zx="0" then
%>
<td width="9%">
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align=center onMouseDown="flipMenu(document.all.Mnu<%=rs("id")%>)">
<%sex=rs("user_sex")%>
<div align="center">
<%
if sex="男" then
%>
<img src="../map/man.gif" width="32" height="32">
<%
else
%>
<img src="../map/woman.gif" width="32" height="32">
<%
end if
%>
</div>
</td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -