📄 search1.asp
字号:
<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>
<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>
<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="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/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%>
<%
end if
end if
end if
end if
%>
</tr>
<%
rs.MoveNext
loop
%>
</table>
</td>
<td width="5%"> </td>
</tr>
<tr>
<td width="5%"> </td>
<td width="90%"> </td>
<td width="5%"> </td>
</tr>
</table>
</td>
<td width="2" bgcolor="#DEDEA7"></td>
</tr>
<tr>
<td colspan="3" height="2" bgcolor="#DEDEA7"></td>
</tr>
</table>
</td>
<td width="17"> </td>
</tr>
<tr>
<td width="21"> </td>
<td width="737"> </td>
<td width="17"> </td>
</tr>
</table>
<P> </P>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -