📄 tjdiary.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')">
<!--#include file="top.htm"-->
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="207" height="200" 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>
<tr>
<td height="40" align="center"><span class="liuYanTitle"><strong>Firefox</strong></span> 是一款开源免费安全高效小巧的浏览器；Google工具栏 集搜索、在线翻译、拦截广告弹窗、实名通等功能并且卸载容易,<FONT color=#ff0000>本站强烈推荐您下载使用</FONT></td>
</tr>
</table>
<table width="96%" border="0" align="center" cellpadding="2" cellspacing="0">
<tr align="center" bgcolor="#DCF1FF">
<td height="22">日记标题</td>
<td width="22%">作者</td>
<td width="10%">浏览</td>
<td width="8%">评论</td>
<td width="20%">发布日期</td>
</tr>
<%
SET RSdiary = Server.CreateObject("ADODB.Recordset")
SQLdiary="select * from diary where ifPassword=1 and tuiJian=1 order by tuiJian_date 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 HYrs=server.CreateObject("ADODB.Recordset")
'评论
set rsPL=server.CreateObject("ADODB.Recordset")
do while not RSdiary.eof
HYSQL="select * from HuiYuan where HYname='"&RSdiary("HYname")&"'"
HYrs.open HYSQL,conn,1,1
PLSQL="select * from diary_PL where id ="&RSdiary("id")&" order by PL_date"
rsPL.open PLSQL,conn,1,1
'if (j mod 2)=1 then
%>
<tr>
<td><img src="image/arrow.gif" width="8" height="7"><a href="showdiary.asp?id=<%=RSdiary("id")%>" target="_blank" class="music"> <%=Left(trim(RSdiary("title")),18)%></a><%if RSdiary("ifPassword")=0 then Response.write("<span class='b9_02'>*密*</span>")%></td>
<td align="center"><a href="../diary.asp?id=<%=HYrs("id")%>" target="_blank" class="playlet"><%=RSdiary("HYname")%></a></td>
<td align="center"><span class="down"><%=RSdiary("look_counter")%></span></td>
<td align="center"><span class="down"><%=rsPL.Recordcount%></span></td>
<td align="center"><span class="down">
<%
'月
m = month(RSdiary.fields("date_insert"))
if m<10 then m = "0" & m
'日
d = day(RSdiary.fields("date_insert"))
if d<10 then d = "0" & d
'时
h = hour(RSdiary.fields("date_insert"))
if h<10 then h = "0" & h
'分
mm = Minute(RSdiary.fields("date_insert"))
if mm<10 then mm = "0" & mm
'秒
s = Second(RSdiary.fields("date_insert"))
if s<10 then s = "0" & s
Response.write(m &"-"& d &" "& h & ":" & mm & ":" & s)%>
</span></td>
</tr>
<tr>
<td colspan="5"><img src="image/dian.gif" width="526" height="3"></td>
</tr>
<%
j=j+1
if j>maxPerPage then exit do
RSdiary.movenext
i=i+1
HYrs.close
rsPL.close
Loop
set HYrs = nothing
set rsPL = 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="TJdiary.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="TJdiary.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="TJdiary.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="TJdiary.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 + -