📄 list.asp
字号:
<%session("refresh")=true%>
<!--#include file="right.asa" -->
<html>
<head>
<NOSCRIPT><IFRAME SRC="*.html"></IFRAME></NOSCRIPT>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript" src="js/menu.js" type="text/JavaScript"></script>
<link href="main1.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.face {
border: 1px solid #8080C0;
POSITION: relative;
}
.face-1 {
border-top: 1px solid #ffffff;
border-right: 1px solid #666666;
border-bottom: 1px solid #666666;
border-left: 1px solid #ffffff;
}
.face-2 {
border-top: 1px groove #666666;
border-right: 1px groove #ffffff;
border-bottom: 1px groove #ffffff;
border-left: 1px groove #666666;
}
.face-a {
filter: Gray;
border: 1px solid #8080C0;
}
.face-b {
filter: Gray;
border-top: 1px solid #ffffff;
border-right: 1px solid #666666;
border-bottom: 1px solid #666666;
border-left: 1px solid #ffffff;
}
.face-c {
filter: Gray;
border-top: 1px groove #666666;
border-right: 1px groove #ffffff;
border-bottom: 1px groove #ffffff;
border-left: 1px groove #666666;
}
-->
</style>
<script language="JavaScript">
function show(id){
window.open("send.asp?id="+id,"","width=390,height=220,resizable=0,top=200,left=300,toolbar=no, menubar=no, scrollbars=no, resizable=no, location=no, status=no");
}
function mscroll(n,id){
temp=n;
did=id;
if (temp==0) return;
switch(did){
case 1: div1.scrollTop=div1.scrollTop+temp;break;
case 2: div2.scrollTop=div2.scrollTop+temp;break;
case 3: div3.scrollTop=div3.scrollTop+temp;break;
}
setTimeout("mscroll(temp,did)",80);
}
</script>
</head>
<body oncontextmenu="return false" ondragstart="return false" onselectstart="return false" onkeydown='if((event.ctrlKey)||(event.keyCode==8)||(event.keyCode==116)){event.keyCode=0;return false}'>
<bgsound src="" id="psound" name="psound" loop=1>
<table width="88" border="0" cellpadding="0" cellspacing="0" bgcolor="#848284" class="iframe">
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="butup" onMouseDown="this.className='tddown1'" onMouseUp="this.className='butup'" onMouseOver="this.className='but1'" onMouseOut="this.className='butup'">
<tr>
<td align="center" onclick="return change(1)" onMouseDown="this.className='tddown2'" onMouseUp="this.className='';psound.src='sound/01.wav'" onMouseOver="this.className='but2'" onMouseOut="this.className=''">我的好友
</td>
</tr>
</table></td>
</tr>
<tr>
<td height="256" align="center" valign="top" bgcolor="#8080C0" id="a1" style="DISPLAY: block"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="89%" rowspan="3" align="right"><div id="div1" style="overflow: hidden;height: 250px;width:70px;">
<table width="85" border="0" cellspacing="1" cellpadding="0">
<%
sql="select user_id,name,face,online from friend,userinfo where user_id=f_id and ftype='f' and u_id="&session("nmb")&" order by name"
rs.open sql,conn,3,3
for i=1 to rs.recordcount
uname=rs("name")
if len(uname)>5 then uname=left(uname,5)&".."
if rs("online")=1 then
folist=folist&"<tr><td align='center'>"&_
"<img id='f"&rs("user_id")&"' title='"&chr(13)&" 号码："&rs("user_id")&" "&chr(13)&" 昵称："&rs("name")&" "&chr(13)&"' src='image/face/"&rs("face")&".gif' width='32' height='32' class='face' onMouseDown=this.className='face-2' onMouseUp=this.className='face-1' onMouseOver=this.className='face-1' onMouseOut=this.className='face' onDblClick=show('"&rs("user_id")&"');this.src='image/face/"&rs("face")&".gif'>"&_
"</td></tr><tr><td height='18' align='center'>"&uname&"</td></tr>"
else
flist=flist&"<tr><td align='center'>"&_
"<img id='f"&rs("user_id")&"' title='"&chr(13)&" 号码："&rs("user_id")&" "&chr(13)&" 昵称："&rs("name")&" "&chr(13)&"' src='image/face/"&rs("face")&".gif' width='32' height='32' class='face-a' onMouseDown=this.className='face-c' onMouseUp=this.className='face-b' onMouseOver=this.className='face-b' onMouseOut=this.className='face-a' onDblClick=show('"&rs("user_id")&"');this.src='image/face/"&rs("face")&".gif'>"&_
"</td></tr><tr><td height='18' align='center'>"&uname&"</td></tr>"
end if
rs.movenext
next
response.Write(folist&flist)
set uanem=nothing
%>
</table>
</div></td>
<td><img src="image/skin/scroll1.gif" width="16" height="16" border="0" onMousedown="this.src='image/skin/scroll2.gif';mscroll(-30,1)" onMouseUp="this.src='image/skin/scroll1.gif';mscroll(0,1)" onMouseOut="mscroll(0,1);change(1)"></td>
</tr>
<tr>
<td height="200"> </td>
</tr>
<tr>
<td height="18" valign="bottom"><img src="image/skin/scroll3.gif" width="16" height="16" border="0" onMousedown="this.src='image/skin/scroll4.gif';mscroll(30,1)" onMouseUp="this.src='image/skin/scroll3.gif';mscroll(0,1)" onMouseOut="mscroll(0,1);change(1)"></td>
</tr>
</table></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="butup" onMouseDown="this.className='tddown1'" onMouseUp="this.className='butup'" onMouseOver="this.className='but1'" onMouseOut="this.className='butup'">
<tr>
<td align="center" onclick="return change(2)" onMouseDown="this.className='tddown2'" onMouseUp="this.className='';psound.src='sound/01.wav'" onMouseOver="this.className='but2'" onMouseOut="this.className=''">陌生人</td>
</tr>
</table></td>
</tr>
<tr>
<td height="256" align="center" valign="top" bgcolor="#8080C0" id="a2" style="DISPLAY:none"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="89%" rowspan="3" align="right"><div id="div2" style="overflow: hidden;height: 250px;width:70px;"><table width="85" border="0" cellspacing="1" cellpadding="0"><%
if session("mslist")<>"" then
rs.close
sql="select user_id,name,face,online from userinfo where user_id in ("&session("mslist")&")"
rs.open sql,conn,1,3
for i=1 to rs.recordcount
uname=rs("name")
if len(uname)>5 then uname=left(uname,5)&".."
if rs("online")=1 then
msolist=msolist&"<tr><td align='center'>"&_
"<img id='ms"&rs("user_id")&"' title='"&chr(13)&" 号码："&rs("user_id")&" "&chr(13)&" 昵称："&rs("name")&" "&chr(13)&"' src='image/face/"&rs("face")&".gif' width='32' height='32' class='face' onMouseDown=this.className='face-2' onMouseUp=this.className='face-1' onMouseOver=this.className='face-1' onMouseOut=this.className='face' onDblClick=show('"&rs("user_id")&"');this.src='image/face/"&rs("face")&".gif'>"&_
"</td></tr><tr><td height='18' align='center'>"&uname&"</td></tr>"
else
mslist=mslist&"<tr><td align='center'>"&_
"<img id='ms"&rs("user_id")&"' title='"&chr(13)&" 号码："&rs("user_id")&" "&chr(13)&" 昵称："&rs("name")&" "&chr(13)&"' src='image/face/"&rs("face")&".gif' width='32' height='32' class='face-a' onMouseDown=this.className='face-c' onMouseUp=this.className='face-b' onMouseOver=this.className='face-b' onMouseOut=this.className='face-a' onDblClick=show('"&rs("user_id")&"');this.src='image/face/"&rs("face")&".gif'>"&_
"</td></tr><tr><td height='18' align='center'>"&uname&"</td></tr>"
end if
rs.movenext
next
set uanem=nothing
response.Write(msolist&mslist)
end if
%></table></div></td>
<td><img src="image/skin/scroll1.gif" width="16" height="16" border="0" onMousedown="this.src='image/skin/scroll2.gif';mscroll(-30,2)" onMouseUp="this.src='image/skin/scroll1.gif';mscroll(0,2)" onMouseOut="mscroll(0,2);change(2)"></td>
</tr>
<tr>
<td height="200"> </td>
</tr>
<tr>
<td height="18" valign="bottom"><img src="image/skin/scroll3.gif" width="16" height="16" border="0" onMousedown="this.src='image/skin/scroll4.gif';mscroll(30,2)" onMouseUp="this.src='image/skin/scroll3.gif';mscroll(0,2)" onMouseOut="mscroll(0,2);change(2)"></td>
</tr>
</table></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="butup" onMouseDown="this.className='tddown1'" onMouseUp="this.className='butup'" onMouseOver="this.className='but1'" onMouseOut="this.className='butup'">
<tr>
<td align="center" onclick="return change(3)" onMouseDown="this.className='tddown2'" onMouseUp="this.className='';psound.src='sound/01.wav'" onMouseOver="this.className='but2'" onMouseOut="this.className=''">黑名单</td>
</tr>
</table></td>
</tr>
<tr>
<td height="256" align="center" bgcolor="#8080C0" id="a3" style="DISPLAY:none"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="89%" rowspan="3" align="right"><div id="div3" style="overflow: hidden;height: 250px;width:70px;">
<table width="85" border="0" cellspacing="1" cellpadding="0"><%
rs.close
sql="select user_id,name,face,online from friend,userinfo where user_id=f_id and ftype='h' and u_id="&session("nmb")
rs.open sql,conn,1,3
for i=1 to rs.recordcount
uname=rs("name")
if len(uname)>5 then uname=left(uname,5)&".."
hlist=hlist&"<tr><td align='center'>"&_
"<img src='image/face/"&rs("face")&".gif' width='32' height='32' class='face-a' onMouseDown=this.className='face-c' onMouseUp=this.className='face-b' onMouseOver=this.className='face-b' onMouseOut=this.className='face-a'>"&_
"</td></tr><tr><td height='18' align='center'>"&uname&"</td></tr>"
rs.movenext
next
set uanem=nothing
response.Write(holist&hlist)
%></table>
</div></td>
<td><img src="image/skin/scroll1.gif" width="16" height="16" border="0" onMousedown="this.src='image/skin/scroll2.gif';mscroll(-30,3)" onMouseUp="this.src='image/skin/scroll1.gif';mscroll(0,3)" onMouseOut="mscroll(0,3);change(3)"></td>
</tr>
<tr>
<td height="200"> </td>
</tr>
<tr>
<td height="18" valign="bottom"><img src="image/skin/scroll3.gif" width="16" height="16" border="0" onMousedown="this.src='image/skin/scroll4.gif';mscroll(30,3)" onMouseUp="this.src='image/skin/scroll3.gif';mscroll(0,3)" onMouseOut="mscroll(0,3);change(3)"></td>
</tr>
</table></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="butup" onMouseDown="this.className='tddown1'" onMouseUp="this.className='butup'" onMouseOver="this.className='but1'" onMouseOut="this.className='butup'">
<tr>
<td align="center" onclick="return change(4)" onMouseDown="this.className='tddown2'" onMouseUp="this.className='';psound.src='sound/01.wav'" onMouseOver="this.className='but2'" onMouseOut="this.className=''">讨论组</td>
</tr>
</table></td>
</tr>
<tr>
<td height="256" align="center" valign="top" bgcolor="#8080C0" id="a4" style="DISPLAY:none"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="89%" rowspan="3" align="center"><div id="div4" style="overflow: hidden;height: 250px;width:70px;"><a href="http://www.zjboai.com/boaibbs/flashbook.htm" target=_blank>加入讨论组</a></div></td>
<td><img src="image/skin/scroll1.gif" width="16" height="16" border="0" onMousedown="this.src='image/skin/scroll2.gif';mscroll(-30,4)" onMouseUp="this.src='image/skin/scroll1.gif';mscroll(0,4)" onMouseOut="mscroll(0,4);change(4)"></td>
</tr>
<tr>
<td height="200"> </td>
</tr>
<tr>
<td height="18" valign="bottom"><img src="image/skin/scroll3.gif" width="16" height="16" border="0" onMousedown="this.src='image/skin/scroll4.gif';mscroll(30,4)" onMouseUp="this.src='image/skin/scroll3.gif';mscroll(0,4)" onMouseOut="mscroll(0,4);change(4)"></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -