📄 benri.asp

📁 电子日记可以自动提醒、记录你所做的事情。在特别有意义的日子里
💻 ASP
字号:
<%
user=request("user")
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<%
n=request("n")
y=request("y")
r=request("r")
nyr="n="+n+"&y="+y+"&r="+r
set conn=server.createobject("ADODB.CONNECTION")
conn.open "DBQ="+server.mappath("classsky.asp")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set rs1=server.createobject("adodb.recordset")
sql1="SELECT * from admin"
rs1.open sql1,conn,1,1

set rs2=server.createobject("adodb.recordset")
sql2="SELECT * from user where user='"&user&"'"
rs2.open sql2,conn,1,1
if not rs2.eof then
	url=rs2("url")
	mail=rs2("mail")
	logo=rs2("logo")
end if
	if logo="" or isnull(logo) then logo="images/girl.gif"

userid=user&nyr
if session("usersee")<>userid then
	sql2="update txt set see=see+1 where 用户='"&user&"' and 年='"&n&"' and 月='"&y&"' and 日='"&r&"'"
	conn.execute(sql2)
	session("usersee")=userid
end if

set rs=server.createobject("adodb.recordset")
sql="SELECT * from txt where 用户='"&user&"' and 年='"&n&"' and 月='"&y&"' and 日='"&r&"'"
rs.open sql,conn,1,1
if not rs.eof then
	see=rs("see")
end if
%>
<title>日记本申请 - <%=user%>--<%=n%>年<%=y%>月<%=r%>日</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<style>
BODY {BACKGROUND-ATTACHMENT: fixed; BACKGROUND-IMAGE: url(<%=logo%>); BACKGROUND-POSITION:center center;  BACKGROUND-REPEAT: no-repeat;scrollbar-track-color:#eeeeee; SCROLLBAR-FACE-COLOR: #ffffff; FONT-SIZE: 9pt; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #ffffff;  SCROLLBAR-3DLIGHT-COLOR: #ffffff; SCROLLBAR-ARROW-COLOR: #ffffff; FONT-FAMILY: "Verdana"; SCROLLBAR-DARKSHADOW-COLOR: #ffffff;CURSOR: url('images/c.cur')}
select,input{font-size:8pt; color:#666666;}
textarea{font-size:14; color:#666666}
A {COLOR: #000000; TEXT-DECORATION: none }
A:visited {COLOR: #000000; TEXT-DECORATION: none}
A:active {COLOR: #ffffff; TEXT-DECORATION: none}
A:hover {COLOR: #000000; background-color: #E8FCD0}
td {FONT-SIZE: 9pt;  FONT-FAMILY: "Verdana"; color:#3333333;letter-spacing : 1pt ;line-height :14pt;WORD-BREAK: break-all;}
.style2 {color: #5AB2FF}
</style>
</head>

<body topmargin="3" leftmargin="0" bgcolor="#FFFFFF" oncontextmenu="return false" ondragstart="return false" >
<NOSCRIPT><IFRAME SRC=benri.asp></IFRAME></NOSCRIPT>
<div align="center">
  <center>
    <img src="images/title.gif" width="200" height="40"> 
    <table border="0" width="50%" cellspacing="0" cellpadding="0">
      <tr>
        <td width="50%">&nbsp;<font size="2"><%=user%>的日记&nbsp;<img border="0" src="images/ic1.gif" width="9" height="9"></font> 
          <font color="888888" face="Arial">观看<%=see%>次</font> </td>
        <td align=right>|<a href="calendar.asp?user=<%=user%>" title=按日历选择查看日记内容>&nbsp;日历&nbsp;</a>|<a href="pass.asp?user=<%=user%>" title=日记的修改、增加、删除、配置>&nbsp;管理&nbsp;</a>|<a href="index.asp?user=<%=user%>">&nbsp;返回日记首页&nbsp;</a>|</td>
      </tr>                                                
  </table>                                                
  </center>                                                
</div>                                                
<div align="center">                                                
  <center>
  <p>
    <%if rs.eof and rs.bof then
	response.write "<p>哎，太懒了？本日没有写日记</p>"
else%>
  </p>
<table border="0" width="50%" cellspacing="2" cellpadding="2" align="center">
  <%                                                 
	cc=1
	if not isempty(request("page")) then                                                 
		pagecount=cint(request("page"))                                                 
	else                                                 
		pagecount=1                                                 
	end if                                                 
	rs.PageSize=rs1("page")                                                 
	rs.AbsolutePage=pagecount                                                 
For iPage = 1 To rs.PageSize                                                 
If rs.EOF Then Exit For                                                 
if cc mod 2=1 then                                                 
	Response.Write "<tr>"                                                 
else                                                 
	Response.Write "<tr>"                                                 
end if                                                 
%>
      <td> - <%=rs("年")%>年<%=rs("月")%>月<%=rs("日")%>日 
      <%if DateDiff("d",rs("addtime"),date())<1 then%>
      <%end if%>
      &nbsp;&nbsp;<%=rs("天气")%>&nbsp;&nbsp;<img src='<%=rs("心情")%>' border=0></td>
  </tr>
  <tr> 
    <td><img src=images/ic1.gif height=9 width=9 border=0 hspace=0> 
      <%if rs("保密")<>"y" then%>
      <%=rs("日记内容")%> 
      <%else%>
      本则日记保密，要查看请<a href="pass.asp?user=<%=user%>">进入管理</a> 
      <%end if%>
    </td>
  </tr>
  <%                                              
cc=cc+1                                              
rs.movenext                                              
Next                                              
Response.Write "</table><p>"

if rs.PageCount>1 Then
Response.Write "本日共有"&rs.recordcount&"则日记"
Response.Write "，这是第"
Response.Write PageCount
Response.Write "则　"
If pagecount<>1 Then                                              
   Response.Write "<A HREF=benri.asp?user="&user&"&"
   Response.Write nyr
   Response.Write "&Page=1>首页</A>    "                                              
   Response.Write "<A HREF=benri.asp?user="&user&"&"
   Response.Write nyr
   Response.Write "&Page="&(pagecount-1)&">前页</A> "                                              
 End If                                              
 If pagecount<>rs.PageCount Then                                              
   Response.Write "<A HREF=benri.asp?user="&user&"&"
   Response.Write nyr
   Response.Write "&Page="&(pagecount+1)&">后页</A>    "
   Response.Write "<A HREF=benri.asp?user="&user&"&"
   Response.Write nyr
   Response.Write "&Page="&rs.PageCount&">尾页</A>"                                              
 End If                                              
End If                                              
end if                                              
%>
</table>                                    
<div>
  <div align="center"><span style=behavior:url(inc/font.htc)>此日记只提供<%=user%>使用</span></div>
</div>
<p align="center"></p>
<p align="center" class="style2"><span style=behavior:url(font.htc)><a href="reg.asp"><img src="images/00000002.gif" width="200" height="50" border="0"></a></span><br>
</p>
<table class=td2 width="50%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td nowrap align="center"><font size="1">      <a href="http://classsky.com/" target="_blank"><img src="images/copy.gif" width="305" height="5" border="0"></a> 
    </font></td>
  </tr>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -