📄 diary.asp
字号:
<!--#include file="conn.asp"-->
<%
dim username
username=Request.QueryString("user")
session("user")=username
%>
<%
set rs1=Server.CreateObject("ADODB.Recordset")
sql1="select * from user where user ='"&session("user")&"'"
rs1.open sql1,conn,1,1
set rs2=Server.CreateObject("ADODB.Recordset")
sql2="select * from admin"
rs2.open sql2,conn,1,1
%>
<%
dim kind
kind = rs1("kind")
if kind ="" then
response.write("<script>alert('对不起，您输入的网址有错误或者该日记本为加密日记本！')</script>")
server.transfer("login.asp")
end if
dim passcheck
if session("user") <> rs1("user") or session("password") <> rs1("password") then
passcheck = 1
else
passcheck = 2
end if
if kind = 2 and passcheck = 1 then
response.write("<script>alert('本日记本不是公开日记本，您没有权利访问！请登陆！')</script>")
server.transfer("login.asp")
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs1("user")%>的日记本:::由<%=rs2("webname")%>免费提供</title>
<style fprolloverstyle>A:hover {color: #FF0000}
</style>
</head>
<body leftmargin="100" link="#000000" vlink="#666666" bgcolor="#FFCCFF">
<p align="center">
<embed width="403" height="206" src="http://wj1320.6168.net/images/rj.swf"></p>
<div style="FONT-SIZE: 10pt; FILTER: dropshadow(color=#cccccc,offx=1,offy=1); COLOR: #666666; FONT-FAMILY: ; width:582; height:31"宋体"">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="99%" id="AutoNumber2">
<tr>
<td width="9%">
<a href=diary_add.asp?user=<%=session("user")%>>
<font size="2">写日记</font></a><font size="2">
</font></td>
<td width="19%">
<font size="2"> </font><a href=modify.asp?user=<%=session("user")%>&id=<%=rs1("id")%>><font size="2">修改日记本信息</font></a></td>
<td width="20%">
<p align="center">
<font size="2">
<a title="注销日记本，您的日记和用户信息都将删除掉！" href="del.asp?user=<%=session("user")%>">注销该日记本</a></font></td>
<td width="14%" align="center">
<font size="2">
<img border="0" src="images/dq.gif" title='<%=rs1("area")%>'></font></td>
<td width="13%" align="center">
<font size="2">
<img border="0" src="images/email.gif" title='<%=rs1("email")%>'></font></td>
<td width="13%" align="center">
<font size="2">
<img border="0" src="images/qq.gif" title='<%=rs1("qq")%>'></font></td>
<td width="12%" align="center">
<font size="2">
<a href="<%=rs1("url")%>" title='<%=rs1("web")%>'>
<img border="0" src="images/web.gif"></a></font></td>
</tr>
<tr>
<td width="100%" colspan="7">
<font size="2">
<marquee style="background-color: #E7EFD6" height="15"><%=rs1("welcome")%></marquee></font></td>
</tr>
</table>
</div>
<%
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from diary where username ='"&session("user")&"' order by id desc"
rs.open sql,conn,1,1
%>
<%
Rs.pagesize=pagesize
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
%>
<%
do while not Rs.eof
i = i + 1
if i > Rs.pagesize then
exit do
end if
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="11%" bgcolor="#A9D46D" style="border-style: solid; border-width: 0; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
<p align="right">
<font size="2"><img border="0" src=<%=rs("face")%> width="15" height="15"></font></td>
<td width="23%" bgcolor="#A9D46D" style="border-style: solid; border-width: 0; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
<font size="2">日期: <%=rs("date")%></font></td>
<td width="48%" bgcolor="#A9D46D" style="border-style: solid; border-width: 0; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
<font size="2">标题:<%=rs("title")%></font></td>
<td width="18%" bgcolor="#FFFFFF" style="border-style: solid; border-width: 0; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
<font size="2">天气:<%=rs("weather")%></font></td>
</tr>
<tr>
<td width="100%" colspan="4" bgcolor="#E7EFD6">
<p style="margin-left: 30; margin-right: 20">
<font size="2">dgfdgd<%=rs("body")%></font> </td>
</tr>
<tr>
<td width="100%" colspan="4" bgcolor="#A9D46D">
<p align="right">
<font size="2">
<a href=diary_modify.asp?user=<%=session("user")%>&id=<%=rs("id")%>>
修改</a> <a href="diary_del.asp?user=<%=session("user")%>&id=<%=rs("id")%>">删除</a> </font></td>
</tr>
</table>
<p style='margin-top: 0; margin-bottom: 0'><font style='font-size: 2pt'> </font></p>
<%
Rs.movenext
loop
%>
<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" >
<tr>
<td style="FONT-SIZE: 10pt; FILTER: dropshadow(color=#cccccc,offx=1,offy=1); COLOR: #666666; FONT-FAMILY: "宋体"">
<p style="margin-top: 0; margin-bottom: 0">共有<%
dim scount
scount=INT(Rs.recordcount)
response.write scount & "个日记"
%> 共<%=Rs.pagecount%>页 您正在浏览第<%=page%>页 <%for go=1 to Rs.pagecount%> <a href=diary.asp?user=<%=rs1("user")%>&page=<%=go%>><%=go%></a> <%next%><% if page<>1 then %> <a href=diary.asp?user=<%=rs1("user")%>&page=<%=page-1%>>上一页</a><%end if%><% if Rs.pagecount-page <> 0 then %> <a href=diary?user=<%=rs1("user")%>&page=<%=page+1%>>下一页</a><%end if%></td>
</tr>
</table>
<!--#include file="bottom.asp"-->
</body>
</html>
<%
rs2.close
set rs2=nothing
rs1.close
set rs1=nothing
rs.close
set rs=nothing
%><!--#include file="close.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -