📄 index.asp

📁 在线交友模块：在线交友是指通过网络来结交朋友。利用网络资源的无限性实现跨地域的信息交流
💻 ASP
字号:
<%Option Explicit%>
<!--#include file="conn.asp"-->
<%
dim connpic
dim rs_user,rs_today,rs_lar,rs_brither,rs_new,rs_board,rs_boy,rs_girl
dim sql,records,today_records,rs_pic
dim i,j,k
if isempty(session("user_id")) then session("user_id")=1

'取得入会人数
Set rs_user = Server.CreateObject("ADODB.Recordset")
rs_user.open "user_reg",conn,1,1
records=rs_user.recordcount
rs_user.close:set rs_user=nothing

'取得当天入会人数
Set rs_today = Server.CreateObject("ADODB.Recordset")
rs_today.open "select * from user_reg where date=#" & cdate(date) & "#" ,conn,1,1
today_records=rs_today.recordcount
rs_today.close:set rs_today=nothing

'取得今日生日
Set rs_brither = Server.CreateObject("ADODB.Recordset")
rs_brither.open "select * from larchives where britherday='& today &'"  ,conn,1,1

'取得人气最高的网友（10位）
Set rs_lar = Server.CreateObject("ADODB.Recordset")
rs_lar.open "select * from larchives order by renqi desc",conn,1,1

'取得人气最高的男主角
Set rs_boy = Server.CreateObject("ADODB.Recordset")
sql="select * from larchives where photo>0 and sex like '" & "男" & "' order by renqi desc"
rs_boy.open sql,conn,1,1

'取得人气最高的女主角
Set rs_girl = Server.CreateObject("ADODB.Recordset")
sql="select * from larchives where photo>0 and sex like '" & "女" & "' order by renqi desc"
rs_girl.open sql,conn,1,1

'取得最新加入的网友（10位）
Set rs_new = Server.CreateObject("ADODB.Recordset")
rs_new.open "select * from larchives order by lar_id desc",conn,1,1

'取得寻友启事
Set rs_board = Server.CreateObject("ADODB.Recordset")
rs_board.open "select * from callboard order by id desc",conn,1,1
%>
<HTML><HEAD><TITLE>交友中心</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE type=text/css>
TD {
	FONT-SIZE: 12px; COLOR: #800000; LINE-HEIGHT: 14pt
}

A {
	FONT-SIZE: 9pt; COLOR: red; TEXT-DECORATION: none
}
A:hover {
	COLOR: #800000; TEXT-DECORATION: underline
}
.put {
	BORDER-RIGHT: #f7e0e0 1px solid; BORDER-TOP: #f7e0e0 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: #f7e0e0 1px solid; COLOR: #000000; BORDER-BOTTOM: #f7e0e0 1px solid; BACKGROUND-COLOR: #fef7f7
}
BODY {
	SCROLLBAR-FACE-COLOR: #ee9999; SCROLLBAR-HIGHLIGHT-COLOR: #fef7f7; SCROLLBAR-SHADOW-COLOR: #fef7f7; SCROLLBAR-3DLIGHT-COLOR: #fef7f7; SCROLLBAR-ARROW-COLOR: #ffffff; SCROLLBAR-TRACK-COLOR: #fef7f7; SCROLLBAR-DARKSHADOW-COLOR: #fef7f7
}
</STYLE>
<META content="Microsoft FrontPage 5.0" name=GENERATOR>
</HEAD>
<BODY bgColor=white leftMargin=0 topMargin=0>
<BR>
<TABLE width=716 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD width=77 rowSpan=2>
    <TD vAlign=top width=86 background="img/cclbk.gif" 
      rowSpan=2><A 
      href="list.asp"><IMG 
      height=78 alt=网友列表 src="img/list.gif" width=86 
      border=0></A><BR><A 
      href="reg.asp"><IMG 
      height=54 alt=加入我们 src="img/join.gif" width=86 
      border=0></A><BR><A 
      href="your.asp"><IMG 
      height=54 alt=资料修改 src="img/modi.gif" width=86 
      border=0></A><BR>
      <A href="wjxy.asp">
      <IMG height=56 alt=高级搜索 src="img/search.gif" width=86 border=0></A><BR>
      <A href="adminlogin.asp"><IMG height=70 alt=管理员 src="img/manager.gif" width=86 border=0></A></TD>
    <TD vAlign=top width=320 bgColor=#fef7f7 rowSpan=2><BR>
    <BR>
      <TABLE cellSpacing=0 cellPadding=0 width=310 align=right border=0>
<TBODY>
<TR>
<TD><IMG src="img/flower.gif" width="10" height="16">
<FONT face=Arial color=red MT><B>最新加入网友</B></FONT>&nbsp;&nbsp;&nbsp;今日有<FONT face=Arial color=red MT><B><%=today_records%></B></FONT>位网友加入<BR>
          <IMG src="img/line.gif" width="301" height="2"><BR></TD>
        <TR>
          <TD>
<TABLE cellSpacing=0 cellPadding=0 width="320" border=0>
<TBODY>
<TR>
<TD width="100">
  <P align=center>名字 </P></TD>
<TD width="30">
  <P align=center>性别 </P></TD>
<TD width="35">
  <P align=center>年龄 </P></TD>
<TD width="102">
  <P align=left>居住地区 </P></TD>
<TD width="53">
  <P align=center>点击 </P></TD></TR>
<%i=1%> 
 <%do while not(rs_new.eof) and i<13%>
<TR vAlign=top bgColor=#ffffff>
<TD bgColor=#fff4f4 width="100">
<P align=center>
<a href="read.asp?user_id=<%=rs_new("user_id")%>" title="查看详细资料">
<FONT color=#0000ff><%=rs_new("netname")%></FONT></A></P></TD>
<TD bgColor=#fff4f4 width="30">
<P align=center><FONT color=#000000><%=rs_new("sex")%></FONT></P></TD>
<TD bgColor=#fff4f4 width="35">
<P align=center><FONT color=#000000><%=rs_new("age")%></FONT></P></TD>
<TD bgColor=#fff4f4 width="102">
<P align=left><FONT color=#000000><%=rs_new("home")%><FONT size=+0></FONT></FONT></P></TD>
<TD bgColor=#fff4f4 width="53">
<P align=center><FONT color=#000000><%=rs_new("click")%>次</FONT></P></TD></TR>
        <%i=i+1%> 
 <%rs_new.movenext%> 
 <%loop%> 
 <%rs_new.close%> 
</TR></TBODY></TABLE>
</TD></TR>

<TR>
<TD><IMG src="img/flower.gif" width="10" height="16">
<FONT face=arial color=red mt><B>网友人气排行{TOP 12}</B></font>&nbsp;&nbsp;&nbsp;已有<FONT face=Arial color=red MT><B><%=records%></B></FONT>位网友加入<BR>
<IMG src="img/line.gif" width="301" height="3"><BR>
<TABLE cellSpacing=0 cellPadding=0 width="320" border=0 height="1" style="border-collapse: collapse" bordercolor="#111111">
<TBODY>
<TR>
<TD width="100" height="24">
<P align=center>名字 </P></TD>
<TD width="30" height="24">
<P align=center>性别 </P></TD>
<TD width="35" height="24">
  <P align=center>年龄 </P></TD>
<TD width="100" height="24">
  <P align=left>居住地区 </P></TD>
<TD width="55" height="24">
 <P align=center>人气值 </P></TD></TR>
 <%i=1%> 
 <%do while not(rs_lar.eof) and i<13%> 
<TR vAlign=top bgColor=#ffffff>
<TD bgColor=#fff4f4 width="100" height="1">
<P align=center>
 <a href="read.asp?user_id=<%=rs_lar("user_id")%>" title="查看详细资料">
<FONT color=#0000ff><%=rs_lar("netname")%></FONT></A></P></TD>
<TD bgColor=#fff4f4 width="30" height="1">
<P align=center><FONT color=#000000><%=rs_lar("sex")%></FONT></P></TD>
<TD bgColor=#fff4f4 width="35" height="1">
<P align=center><FONT color=#000000><%=rs_lar("age")%></FONT></P></TD>
<TD bgColor=#fff4f4 width="100" height="1">
<P align=left><FONT color=#000000><%=rs_lar("home")%></FONT></P></TD>
<TD bgColor=#fff4f4 width="55" height="1">
<P align=center><FONT color=#000000><%=rs_lar("renqi")%>点</FONT></P></TD></TR>
 <%i=i+1%> 
 <%rs_lar.movenext%> 
 <%loop%> 
 <%rs_lar.close%> 
</TR></TBODY></TABLE>           

<IMG src="img/line.gif" width="301" height="2"><BR></TD></TR>
<TR>
<TD>
<DIV align=center>| <A href="reg.asp">申请入会</A> 
 | <A href="register.asp">档案注册</A>
 | <A href="your.asp">个人专栏</A> 
 | <A href="wjxy.asp">搜索网友</A> 
 
  <br><form action="login.asp" method="POST"> <img src="img/c.gif">用户名:<input maxlength="20" name="user_name" size="10" class=put>
密 码:<input maxlength="20" name="password" size="8" type="password" class=put>
<input name="login" type="submit" value="登录" class=put></DIV></TD></FORM></TR></TBODY>

</TABLE>
</TD>
<FORM action=searchout.asp method=post>
<TD vAlign=top align=middle width=217 bgColor=#fef7f7>
<DIV align=center><img src="img/s.gif">搜索网友<br>
<INPUT type=checkbox value=ON name=c_sex class=put>性别:
<INPUT type=radio CHECKED value=男 name=sex class=put>男<INPUT type=radio value=女 name=sex class=put>女   
<br><INPUT type=checkbox value=ON name=c_name class=put>姓名:
<INPUT size=12 name=name class=put class=put>
<br><INPUT type=checkbox value=ON name=c_netname class=put>网名:
<INPUT size=12 name=netname class=put>&nbsp;<INPUT type=submit value=查找 name=B1 class=put>
</form>  

<IMG src="img/new.gif" border=0 width="149" height="90"><p>♀本期最佳女主角<DIV align=center>
<%Set connpic = Server.CreateObject("ADODB.Connection")
 DBPath = Server.MapPath("friend/pic.mdb")
 connpic.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
 if rs_girl.eof and rs_girl.bof then%>
      
<%else  
 Set rs_pic = Server.CreateObject("ADODB.Recordset")  
 sql="select * from pic where user_id=" & rs_girl("user_id")  
 rs_pic.open sql,connpic,1,1  
 %>
  <table border="1" width="90%" cellspacing="0" cellpadding="0" bordercolor="#F7E0E0" style="border-collapse: collapse" height="7">  
 <tr>  
 <td width="40%" valign="top" rowspan="7" height="7" bgcolor="#FFFFFF"><a href="read.asp?user_id=<%=rs_girl("user_id")%>"><img border="0" src="display.asp?id=<%=rs_pic("id")%>" width="90" height="120" alt="查看详细资料"></a></td>  
 
 </tr>  
 <tr>  
 <td width="60%" height="1">网名:<%=rs_girl("netname")%></td>  
 </tr>  
 <tr>  
 <td width="60%" height="1">年龄:<%=rs_girl("age")%></td>  
 </tr>  
 <tr>  
 <td width="60%" height="1">学历:<%=rs_girl("education")%></td>  
 </tr>  
 <tr>  
 <td width="60%" height="1">职业:<%=rs_girl("job")%></td>  
 </tr>  
 <tr>  
 <td width="60%" height="1">来自:<%=rs_girl("home")%></td>  
 </tr>  
 <tr>  
 <td width="60%" height="1">OICQ:<%=rs_girl("netcall")%></td>  
 </tr>  
 </table>     <%rs_girl.close:set rs_girl=nothing%>  
 <%end if%>    
      
 <%if rs_boy.eof and rs_boy.eof then%>    
<%else  
 Set rs_pic = Server.CreateObject("ADODB.Recordset")  
 sql="select * from pic where user_id=" & rs_boy("user_id")  
 rs_pic.open sql,connpic,1,1  
 %>     
 <P><center>♂本期最佳男主角<br>   
 <table border="1" width="91%" cellspacing="0" cellpadding="0" bordercolor="#F7E0E0" style="border-collapse: collapse" height="117">  
 <tr class=good>  
 <td width="41%" valign="top" rowspan="7" height="117" bgcolor="#FFFFFF"><a href="read.asp?user_id=<%=rs_boy("user_id")%>"><img border="0" src="display.asp?id=<%=rs_pic("id")%>" width="90" height="120" alt="查看详细资料"></a></td>  
 
 <tr>  
 <td width="59%" height="17">网名:<%=rs_boy("netname")%></td>  
 </tr>  
 <tr>  
 <td width="59%" height="17">年龄:<%=rs_boy("age")%></td>  
 </tr>  
 <tr>  
 <td width="59%" height="17">学历:<%=rs_boy("education")%></td>  
 </tr>  
 <tr>  
 <td width="59%" height="17">职业:<%=rs_boy("job")%></td>  
 </tr>  
 <tr>  
 <td width="59%" height="17">来自:<%=rs_boy("home")%></td>  
 </tr>  
 <tr>  
 <td width="59%" height="9">OICQ:<%=rs_boy("netcall")%></td>  
 </tr>  
 </table>       
    <%rs_pic.close:set rs_pic=nothing:set connpic=nothing  
 rs_boy.close:set rs_boy=nothing  
 end if%>    
</P></DIV></TD></FORM>
    <TD width=16 background="img/ccrbk.gif" rowSpan=2></TD></TR>
  <TR>
    <TD vAlign=bottom align=right bgColor=#fef7f7 height=133 width="217">
<IMG 
      src="img/leaf.gif" width="152" height="180"> </TD></TR></TBODY></TABLE>
<TABLE width=715 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD width=88 height=2></TD>
    <TD width=15 height=2>
    <IMG src="img/cb1.gif" width="15" height="15"></TD>
    <TD width=589 background="img/cbbk.gif" height=2></TD>
    <TD width=12 height=2>
<IMG 
src="img/cb2.gif" width="15" height="15"></TD></TR></TBODY></TABLE>
<!--#include file=CopyRight.asp -->


<%set conn=nothing%>
💿 文件大小 325 K
👤 上传用户 whyzhao
📂 所属分类书籍源码
🏷️ 相关标签

#模块 #交流 #网络 #网络资源
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -