📄 topdiary.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="diary_conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>我爱日记 -- Flash日记首页 -> 日记排行榜</title>
<script language="JavaScript" type="text/JavaScript">
<!--
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.01
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 && d.getElementById) x=d.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>
<link href="../image/css.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#E2FAFF" onLoad="MM_preloadImages('../images/first_05.gif','../html/images/first_05.gif')">
<!--#include file="top.htm"-->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="207" height="200" align="center" valign="top" bgcolor="#F7FBCE">
<!--#include file="left.asp"-->
</td>
<td valign="top" bgcolor="#FFFFFF"><table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="25" bgcolor="#EEF9FF"> 您的位置：<a href="../index.htm" class="music">Flash日记首页</a> -> <span class="b9_02">日记排行榜</span></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><script type="text/javascript"><!--
google_ad_client = "pub-7753774943472744";
google_ad_width = 468;
google_ad_height = 60;
google_ad_format = "468x60_as_rimg";
google_cpa_choice = "CAAQycb8zwEaCNrmdvgKt1bFKJnA93M";
//--></script>
<script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script></td>
</tr>
</table>
<table width="96%" border="0" align="center" cellpadding="2" cellspacing="0">
<tr align="center" bgcolor="#DCF1FF">
<td width="14%" height="22">日记数</td>
<td width="35%">日记本</td>
<td width="25%">作者</td>
<td width="26%">注册日期</td>
</tr>
<%
SET RSdiary = Server.CreateObject("ADODB.Recordset")
SQLdiary="select count(HYname) as 'diary_count',HYname from diary group by HYname order by count('diary_count') desc"
RSdiary.Open SQLdiary,conn,1,1
MaxPerPage=30
page=Request("page")
if (page="" or isempty(page)) then page=1
RSdiary.pagesize=MaxPerPage
j=1
i=(page-1)*maxPerPage+1
if not (RSdiary.eof or err) then RSdiary.move (page-1)*maxPerPage
'会员表
set rsHY=server.CreateObject("ADODB.Recordset")
do while not RSdiary.eof
sqlHY = "select * from HuiYuan where HYname = '" & RSdiary("HYname") & "'"
rsHY.open sqlHY,conn,1,1
'if (j mod 2)=1 then
%>
<tr>
<td align="center"><a href="../diary.asp?id=<%=rsHY("id")%>" target="_blank" class="playlet"><%=RSdiary("'diary_count'")%>篇</a></td>
<td align="left" class="down"><%=rsHY("diary_title")%></td>
<td align="center"><a href="../diary.asp?id=<%=rsHY("id")%>" target="_blank" class="playlet"><%=rsHY("hyname")%></a></td>
<td align="center" class="down">
<%
'年
y = year(rsHY.fields("HYzhuchedate"))
'月
m = month(rsHY.fields("HYzhuchedate"))
if m<10 then m = "0" & m
'日
d = day(rsHY.fields("HYzhuchedate"))
if d<10 then d = "0" & d
'时
h = hour(rsHY.fields("HYzhuchedate"))
if h<10 then h = "0" & h
'分
mm = Minute(rsHY.fields("HYzhuchedate"))
if mm<10 then mm = "0" & mm
'秒
s = Second(rsHY.fields("HYzhuchedate"))
if s<10 then s = "0" & s
Response.write(y &"-" & m &"-"& d &" "& h & ":" & mm & ":" & s)%></td>
</tr>
<tr>
<td colspan="4"><img src="image/dian.gif" width="526" height="3"></td>
</tr>
<%
j=j+1
if j>maxPerPage then exit do
RSdiary.movenext
rsHY.close
i=i+1
Loop
rsHY = nothing
%>
</table>
<form name="form2" method="post" action="">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="46%">共<span class="b9_02"><%=RSdiary.recordCount%></span> 页次<span class="b9_02"><%=page%></span>/<span class="b9_02"><%=RSdiary.pagecount%></span>页 每页<span class="b9_02"><%=MaxPerPage%></span><br>
<br>
</td>
<td width="54%" align="center">
<%if page>1 then%>
<a href="topdiary.asp?page=1" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image91','','../html/images/first_05.gif',1)"><img src="../html/images/first_03.gif" name="Image91" width="49" height="21" hspace="3" border="0" align="absmiddle" id="Image91"></a> <a href="topdiary.asp?page=<%=page-1%>"><img src="../html/images/pre_03.gif" width="49" height="21" hspace="3" border="0" align="absmiddle" style="cursor:hand" onMouseOver="this.src='../html/images/pre_05.gif'" onMouseOut="this.src='../html/images/pre_03.gif'" ></a>
<%end if%>
<%if RSdiary.recordCount>page*maxPerPage then%>
<a href="topdiary.asp?page=<%=page+1%>"><img src="../html/images/next_03.gif" width="49" height="21" hspace="3" border="0" align="absmiddle" style="cursor:hand" onMouseOver="this.src='../html/images/next_05.gif'" onMouseOut="this.src='../html/images/next_03.gif'" ></a> <a href="topdiary.asp?page=<%=RSdiary.pagecount%>"><img src="../html/images/last_03.gif" width="49" height="21" hspace="3" border="0" align="absmiddle" style="cursor:hand" onMouseOver="this.src='../html/images/last_05.gif'" onMouseOut="this.src='../html/images/last_03.gif'" ></a>
<%end if%>
</td>
</tr>
</table>
</form></td>
<td width="15" bgcolor="#F7FBCE"> </td>
</tr>
</table>
<%
RSdiary.close
set RSdiary = nothing
call CloseDataConn
%>
<!--#include file="down.htm"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -