📄 showdiary.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="diary_conn.asp"-->
<%
id = Request("id")
'日记
set RSdiary=server.CreateObject("ADODB.Recordset")
SQL="select * from diary where id ="&id
RSdiary.open SQL,conn,2,3
if not RSdiary.eof then
else
Response.Write("找不到此篇日记，请返回。")
Response.end
end if
'评论
set RSpl=server.CreateObject("ADODB.Recordset")
SQL="select * from diary_PL where id ="&id
RSpl.open SQL,conn,1,1
'会员
set RShy=server.CreateObject("ADODB.Recordset")
SQL="select * from HuiYuan where HYname ='"&RSdiary("HYname")&"'"
RShy.open SQL,conn,1,1
%>
<!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><%=RSdiary("title")%> -- 我爱日记 -- Flash日记本</title>
<script language="JavaScript" type="text/JavaScript">
<!--
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];}}
}
//-->
</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"><%=RSdiary("title")%></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>
<%
if RSdiary("ifPassword")=1 or rsHY("HYname")=session("HYname") then
RSdiary("look_counter") = RSdiary("look_counter")+1
RSdiary.update
%>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="center" class="diary_title"><%=RSdiary("title")%></td>
</tr>
<tr>
<td height="30" align="center" class="down">作者：<a href="../diary.asp?id=<%=RShy("id")%>" target="_blank" class="playlet"><%=RSdiary("HYname")%></a> 日期：<%=RSdiary("date_insert")%> <%=RSdiary("weather")%> <%=RSdiary("week")%> 浏览数：<span class="b9_02"><%=RSdiary("look_counter")%></span> 评论数：<span class="b9_02"><%=RSpl.recordcount%></span></td>
</tr>
<tr>
<td class="down"><hr size="1" noshade color="#cccccc"></td>
</tr>
<tr>
<td> <span class="diary_body">
<%=replace(RSdiary("body"),"SIZE=","")%></span></td></tr>
<tr>
<td height="35" class="b9_02"><strong>[本日记本访问地址]：</strong><a href="http://www.5irj.com/diary.asp?id=<%=RShy("id")%>" class="music">http://www.5irj.com/diary.asp?id=<%=RShy("id")%></a></td>
</tr>
<tr>
<td height="25" class="b9_02"><strong>[个性签名]：</strong><span class="down"><%=RShy("diary_foreword")%></span></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td height="25"><table width="100%" border="0" cellpadding="2" cellspacing="0">
<tr>
<td height="1" colspan="2" align="center" valign="top" bgcolor="#376330"></td>
</tr>
<tr>
<td width="50%" height="30" bgcolor="F3F3F4" class="b9_02">
<%
RSdiary.close
id = Request.QueryString("id")
SQL="select * from diary where ifPassword=1 and Id="&(Id-1)
RSdiary.Open SQL,conn,1,1
i=2
do while RSdiary.eof
RSdiary.close
SQL="select * from diary where ifPassword=1 and Id="&(Id-i)
RSdiary.Open SQL,conn,1,1
i=i+1
if i>30 then exit do
Loop
if not RSdiary.bof then
%>
上一篇：<a href="showdiary.asp?Id=<%=RSdiary("Id")%>"><%=RSdiary("Title")%></a>
<%else%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -