📄 listfriend.asp
字号:
<%@ Language=VBScript %>
<!-- #include virtual = "/general/Gen.inc" -->
<%
set conn=server.CreateObject("adodb.connection")
set rsfriend=server.CreateObject("adodb.recordset")
Conn.Open "laoxiang","lx","mailyard"
sql="select * from friend where Regist_ID='"&Session("User_ID")&"'"
set rsfriend=conn.Execute(sql)
%>
<HTML><HEAD><TITLE>中国老乡录</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<STYLE type=text/css>TD {
FONT-SIZE: 12px
}
.p1 {
FONT-SIZE: 12px
}
P {
FONT-SIZE: 12px; LINE-HEIGHT: 130%
}
DIV {
FONT-FAMILY: "宋体"; FONT-SIZE: 12px; LINE-HEIGHT: 130%
}
.p2 {
FONT-SIZE: 12px; LINE-HEIGHT: 130%
}
.p3 {
FONT-SIZE: 14px
}
.p4 {
FONT-SIZE: 14px; LINE-HEIGHT: 130%
}
.p5 {
COLOR: #000000; FONT-FAMILY: "宋体"; FONT-SIZE: 12px
}
.p6 {
LINE-HEIGHT: 160%
}
.p7 {
LINE-HEIGHT: 180%
}
.hot {
COLOR: #ff3300; TEXT-DECORATION: none
}
.title {
COLOR: #ffffff; TEXT-DECORATION: none
}
A:link {
COLOR: #000066; TEXT-DECORATION: none
}
A:visited {
COLOR: #000066; TEXT-DECORATION: none
}
A.lb:link {
COLOR: #78793C; TEXT-DECORATION: none
}
A.title:link {
COLOR: white; TEXT-DECORATION: none
}
A.title:hover {
COLOR: white; TEXT-DECORATION: none
}
A.ln:hover {
COLOR: #a70404; TEXT-DECORATION: none
}
A.title:visited {
COLOR: white; TEXT-DECORATION: none
}
A.lb:visited {
COLOR: #D9CEA6; TEXT-DECORATION: none
}
A:hover {
COLOR: red; ; TEXT-DECORATION: none
}
A.lb:hover {
COLOR: #990000; ; TEXT-DECORATION: none
}
.pw {
COLOR: white; TEXT-DECORATION: none
}
A.lw:link {
COLOR: white; TEXT-DECORATION: none
}
A.lw:visited {
COLOR: white; TEXT-DECORATION: none
}
A.ch:link {
COLOR: #697111; TEXT-DECORATION: none
}
A.ch:visited {
COLOR: #697111; TEXT-DECORATION: none
}
.intext {
BORDER-BOTTOM: 1px solid; BORDER-LEFT: 1px solid; BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; FONT-SIZE: 12px
}
TABLE {
FONT-FAMILY: "宋体"; FONT-SIZE: 12px; TEXT-DECORATION: none
}
.ln {
FONT-FAMILY: "宋体"; FONT-SIZE: 12px; TEXT-DECORATION: none
}
.searchinput {
BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: 1px inset; BORDER-LEFT: 1px inset; BORDER-RIGHT: 1px inset; BORDER-TOP: 1px inset; FONT-SIZE: 9pt; VERTICAL-ALIGN: text-bottom
}
.buttoninput {
BACKGROUND-COLOR: #cccccc; BORDER-BOTTOM: 1px ridge; BORDER-LEFT: #ffffff 1px ridge; BORDER-RIGHT: 1px ridge; BORDER-TOP: #ffffff 1px ridge; FONT-SIZE: 9pt
}
.searchtable {
BACKGROUND: #f0f0f0; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid
}
</STYLE>
<script language="JavaScript">
<!--
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_findObj(n, d) { //v4.0
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && document.getElementById) x=document.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<META content="MSHTML 5.00.2920.0" name=GENERATOR>
</HEAD>
<BODY aLink=#000000 bgColor=#ffffff leftMargin=0 link=#000000 text=#000000 topMargin=0 vLink=#000000 marginwidth="0" marginheight="0" onLoad="MM_preloadImages('../map/laot1-2-1.gif','../map/laot1-3-1.gif','../map/laot1-4-1.gif')">
<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">
<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%"> </td>
<td width="5%"> </td>
</tr>
<tr>
<td width="5%"> </td>
<td width="90%">
<table width="100%" border="0" cellpadding="0" cellspacing="1" align="center">
<tr>
<td width="114" height="21" bgcolor="#DEDEA7">
<div align="center"><b>用户名</b></div>
</td>
<td width="136" height="21" bgcolor="#DEDEA7">
<div align="center"><b>性别</b></div>
</td>
<td width="170" height="21" bgcolor="#DEDEA7">
<div align="center"><b>出生日期</b></div>
</td>
<td width="210" height="21" bgcolor="#DEDEA7">
<div align="center"><b>在线</b></div>
</td>
<td width="145" height="21" bgcolor="#DEDEA7"> </td>
</tr>
<tr>
<td colspan="5"> </td>
</tr>
<tr>
<td colspan="5" bgcolor="#FAFAF1" height="3"></td>
</tr>
<%while not rsfriend.EOF%>
<tr>
<td width="114" height="25">
<div align="center"><%=rsfriend("Friend_RegistID")%>
<%
user_id=rsfriend("Friend_RegistID")
Set Rs=Server.CreateObject("ADODB.Recordset")
SQLQuery="Select * From Customer Where user_id='"&Cstr(user_id)&"'"
'response.write (SQLQuery)
'response.end
Set Rs=Conn.Execute(SQLQuery)
%></div>
</td>
<td width="136" height="25">
<div align="center"><%=rs("user_sex")%></div>
</td>
<td width="170" height="25">
<div align="center"><%=rs("user_age")%></div>
</td>
<td width="210" height="25">
<div align="center"> <%
if instr(1,trim(application("OnlineUser")),trim(User_ID))<>0 then
response.write "是"
else
response.write "否"
end if
%></div>
</td>
<td width="145" height="25">
<div align="center"><a href="delfriend.asp?Friend_ID=<%=rsfriend("Friend_ID")%>">删除</a></div>
</td>
</tr>
<tr>
<td colspan="5" height="3" bgcolor="#FAFAF1"></td>
</tr>
<%rsfriend.MoveNext
wend
conn.Close
set conn=nothing
%>
</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 + -