📄 default.asp
字号:
<%Option Explicit%><!--#include file="conn.asp"--><%
dim connpic
dim rs_user,rs_today,rs_lar,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
'取得人气最高的网友（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>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Namo WebEditor v4.0(Trial)">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>天翔网交朋识友</title>
<meta name="generator" content="Namo WebEditor v4.0(Trial)">
<style type="text/css">A:visited {
COLOR: #000000; TEXT-DECORATION: none
}
A:link {
COLOR: #000000; TEXT-DECORATION: none
}
A:hover {
COLOR: #0080c0; TEXT-DECORATION: none
}
TD {
FONT-SIZE: 9pt; COLOR: #000000; FONT-FAMILY: "宋体"
}
.f1 {
LINE-HEIGHT: 18px
}
.en {
FONT-WEIGHT: bold; FONT-FAMILY: "Arial","Verdana"
}
.new {
FONT-WEIGHT: bold; COLOR: #ff3300; FONT-FAMILY: "Arial"
}
.line {
LINE-HEIGHT: 19px
}
</style>
<SCRIPT language=JavaScript>
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
if (theURL != "fuckyou")
{ window.open(theURL,winName,features);}
}
//-->
</SCRIPT></head>
<body bgcolor="white" text="black" link="black" vlink="black" alink="black" leftmargin="1"
topmargin="0">
<div align="center"><table border="0" cellpadding="0" cellspacing="0" width="776"
height="13" bgcolor="black" scrolling="no">
<tr>
<td width="281"><p><font color="white"><marquee>天翔网 </font><a href="http://www.wzsky.com"
target="_blank"><font color="yellow">http://www.wzsky.com</font></a><font
color="white"> 欢迎您的光临！</font></marquee></td>
</tr>
</table><table border="0" cellpadding="0" cellspacing="0" width="776"
height="80" bgcolor="#A5EF00">
<tr>
<td width="253" height="88" bgcolor="#99CC00"><p align="center"> <img src="image/TOP.jpg" width="186"
height="73" border="0" alt="天翔网"></td>
<td width="506" height="88" bgcolor="#99CC00"><p align="left"><a href="http://www.wzsky.com" target="_blank"><img src="images/sky.jpg"
width="468" height="60" border="0"></a></td>
<td width="17" height="88" bgcolor="#99CC00"><p> </td>
</tr>
</table><table border="0" cellpadding="0" cellspacing="0" width="776"
height="19" bgcolor="#A5EF00">
<tr>
<td width="240" bgcolor="#99CC00"><p><img src="images/top_left_a.gif"
width="240" height="19" border="0"></td>
<td width="532" bgcolor="#99CC00"><p align="right"><span style="BACKGROUND-COLOR: #99cc00"><img src="images/top_left_z.gif"
border="0" usemap="#FPMap1"><img src="images/top_left_c.gif" width="72"
height="19" border="0"></span></td>
</tr>
</table><table border="0" cellpadding="0" cellspacing="0" width="775"
height="21" background="images/top_bg.gif">
<tr>
<td width="401"></td>
<td width="374"><p><img src="images/nav.gif" width="370" height="21"
border="0" usemap="#FPMap2"></td>
</tr>
</table></div>
<!------------------------------------------------------------------------------------------------------------------------------>
<table border="0" width="772" cellspacing="0" cellpadding="0" bordercolor="white" bordercolordark="white" bordercolorlight="white">
<tr>
<td width="166" bgcolor="#ffffff" valign="top"><table
border="0" cellspacing="1" width="160"
height="1" bordercolor="white">
<tr>
<td height="20" bgcolor="#A5EF00"><p
align="center"><font
face="Wingdings"
color="black">1
</font><font
color="black">网
友 登 陆</font></td>
</tr>
<tr>
<td height="102" bgcolor="white"><table
border="0" width="100%"
height="30">
<tr>
<td width="52%"
height="26"
align="left"
bgcolor="white"><table
border="0"
width="100%">
<tr>
<td
width="100%"> <form action="login.asp" method="POST">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="48%" align="center">用户名:</td>
<td width="52%"><input maxlength="20" name="user_name" size="10"></td>
</tr>
<tr>
<td width="48%" align="center">密 码:</td>
<td width="52%"><input maxlength="20" name="password" size="10" type="password"></td>
</tr>
<tr>
<td width="100%" colspan="2">
<p align="center"><input name="login" type="submit" value=" 登录 ">
<input name="addtofriend" onclick="window.open('reg.asp','','');" type="button" value="申请入会">
</td>
</tr>
<tr>
<td width="100%" colspan="2">
<p align="center"><a href="no.htm">[忘记密码]</a></td>
</tr>
</table>
</form>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table> <!--------------->
<table><tr><td></td></tr></table>
<!--------------->
<table border="1" width="157" cellspacing="0" cellpadding="0" bordercolor="#FF9933">
<tr>
<td width="90" bgcolor="#FF9933" align="center"><font color="#FFFFFF">会员总数</font></td>
<td width="67" bgcolor="#FF9933" align="center"><font color="#FFFFFF">今日加入</font></td>
</tr>
<tr>
<td width="90" align="center"><%=records%><font color="#FF0000"> </font></td>
<td width="67" align="center"><%=today_records%><font color="#FF0000"> </font></td>
</tr>
</table>
<!--------------->
<table><tr><td></td></tr></table>
<!--------------->
<table border="1" width="159" bordercolor="#A5EF00" cellspacing="0" cellpadding="0">
<tr>
<td width="155" bgcolor="#A5EF00" align="center"> <a href="search.asp" style="color:white">网
际 寻 友</a></td>
</tr>
<tr>
<td width="155">
<form action="searchout.asp" method="POST">
<table border="0" width="100%" cellspacing="0" cellpadding="0" bordercolor="#A5EF00">
<tr>
<td width="9%"><input type="checkbox" name="c_sex" value="ON"></td>
<td width="31%">性别:</td>
<td width="60%"><input type="radio" value="男" name="sex" checked>男<input type="radio" value="女" name="sex">女</td>
</tr>
<tr>
<td width="9%"><input type="checkbox" name="c_name" value="ON"></td>
<td width="31%">姓名:</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -