📄 diary_load2.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="diary_folder.asp" -->
<%
'数据库链接字符串
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("asp/###！￥%diary.asp")
conn.open connstr
Function CloseDataConn
conn.close
set conn = Nothing
end Function
%>
<%
'判断用户的id号
id = Request("id")
counter = Request("counter")
diary_type = Request("diary_type")
set rsHY = server.CreateObject("ADODB.Recordset")
SQL_HY = "select * from HuiYuan where id="&id
rsHY.open SQL_HY,conn,1,1
if not rsHY.eof then
HYname = rsHY("HYname")
else
Response.Write("没有此用户！")
Response.End()
end if
rsHY.close
set rs=server.CreateObject("ADODB.Recordset")
select case diary_type
case "1"
SQL="select top "&counter&" * from diary where HYname ='"&HYname&"' order by date_insert desc"
case "2"
SQL="select top "&counter&" * from diary where HYname ='"&HYname&"' and ifPassword=1 order by date_insert desc"
case "3"
SQL="select top "&counter&" * from diary_liuYan where diary_HYname ='"&HYname&"' order by diary_liuYan_reply_data desc"
case "4"
SQL="select top "&counter&" * from diary where ifPassword=1 and tuiJian=1 order by date_insert desc"
end select
rs.open SQL,conn,1,1
%>
<html>
<head>
<META http-equiv=Content-Language content=zh-cn>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Description" content="我爱我吧学习网,Flash留言本,Flash日记本,日记,日记本,我的Flash日记本,Flash多用户留言本,Flash日记,Flash与asp日记程序">
<meta name="Keywords" content="我爱我吧学习网,Flash留言本,Flash日记本,日记,日记本,我的Flash日记本,Flash多用户留言本,Flash日记,Flash与asp日记程序">
<META content="MSHTML 6.00.2800.1106" name=GENERATOR>
<META NAME="ROBOTS" CONTENT="all">
<title>Flash日记本和Flash留言本</title>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
body,td,th {
font-size: 12px;
}
a:link {
color: #3300CC;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #3300CC;
}
a:hover {
text-decoration: underline;
color: #0099FF;
}
a:active {
text-decoration: none;
color: #FF9900;
}
.style3 {color: #FF0000}
-->
</style>
</head>
<body>
<table width="180" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td height="20" align="center" bgcolor="#F0F0F0"><span class="style3">我的Flash日记本和留言本</span></td>
</tr>
</table>
<%
select case diary_type
case "1"
%>
<table width="180" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="2" cellspacing="0">
<%
if not RS.eof then
i=1
do while not rs.eof
if len(Trim(rs("title")))>13 then
tempTitle = Left(Trim(rs("title")),11)&".."
else
tempTitle = Trim(rs("title"))
end if
%>
<tr>
<td><a href=<%=diary_folder%>/diary.asp?id=<%=id%> target="_blank">·<%=tempTitle%></a></td>
</tr>
<%
i=i+1
RS.MoveNext
if RS.eof then exit do end if
loop
else
Response.Write("您还没有写一篇日记！")
end if
%>
</table></td>
</tr>
</table>
<%case "2" %>
<table width="180" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="2" cellspacing="0">
<%
if not RS.eof then
i=1
do while not rs.eof
if len(Trim(rs("title")))>13 then
tempTitle = Left(Trim(rs("title")),11)&".."
else
tempTitle = Trim(rs("title"))
end if
%>
<tr>
<td><a href=<%=diary_folder%>/diary.asp?id=<%=id%> target="_blank">·<%=tempTitle%></a></td>
</tr>
<%
i=i+1
RS.MoveNext
if RS.eof then exit do end if
loop
else
Response.Write("您还没有写一篇日记！")
end if
%>
</table></td>
</tr>
</table>
<%case "3" %>
<table width="180" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="2" cellspacing="0">
<%
if not RS.eof then
i=1
do while not rs.eof
if len(Trim(rs("diary_liuYan_title")))>13 then
tempTitle = Left(Trim(rs("diary_liuYan_title")),11)&".."
else
tempTitle = Trim(rs("diary_liuYan_title"))
end if
%>
<tr>
<td><a href=<%=diary_folder%>/diary.asp?id=<%=id%> target="_blank">·<%=tempTitle%></a></td>
</tr>
<%
i=i+1
RS.MoveNext
if RS.eof then exit do end if
loop
else
Response.Write("还没有人给您留言！")
end if
%>
</table></td>
</tr>
</table>
<%case "4" %>
<table width="180" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="2" cellspacing="0">
<%
if not RS.eof then
i=1
do while not rs.eof
if len(Trim(rs("title")))>13 then
tempTitle = Left(Trim(rs("title")),11)&".."
else
tempTitle = Trim(rs("title"))
end if
%>
<tr>
<td><a href=<%=diary_folder%>/diary.asp?id=<%=id%> target="_blank">·<%=tempTitle%></a></td>
</tr>
<%
i=i+1
RS.MoveNext
if RS.eof then exit do end if
loop
else
Response.Write("您还没有写一篇日记！")
end if
%>
</table></td>
</tr>
</table>
<%end select%>
</body>
</html>
<%CloseDataConn%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -