📄 index1.asp
字号:
<%
user=request("user")
if logo="" or isnull(logo) then logo="images/girl.gif"
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<title><%=user%>的日记本</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:#ffffff; SCROLLBAR-FACE-COLOR: #ffffff; FONT-SIZE: 9pt; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #eeeeee; SCROLLBAR-3DLIGHT-COLOR: #eeeeee; SCROLLBAR-ARROW-COLOR: #dddddd; FONT-FAMILY: "Verdana"; SCROLLBAR-DARKSHADOW-COLOR: #ffffff
}
select,input{font-size:8pt; color:#666666;}
textarea{font-size:14; color:#666666}
A {
COLOR: #333333; TEXT-DECORATION: none ;border-bottom:1px dotted
}
A:hover {
COLOR: #333333; background-color:#C0FFFF;
}
td {FONT-SIZE: 9pt; FONT-FAMILY: "Verdana"; color:#3333333;letter-spacing : 1pt ;line-height : 150%}
</style>
</head>
<body topmargin="3" leftmargin="3" oncontextmenu="return false" ondragstart="return false">
<div align="left"><a href="index.asp?user=<%=user%>">{返回<%=user%>日记首页}</a></div>
<p align="center"><img src="images/dia-b-title.gif" width="101" height="36">
<div align="center">
<table width="50%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><%=user%>日记摘要</td>
</tr>
</table>
<table width="55%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/t-h_p-s.gif"><img src="images/t-h_p-s.gif" width="26" height="12"></td>
</tr>
</table>
<br>
<%
set conn=server.createobject("ADODB.CONNECTION")
conn.open "DBQ="+server.mappath("blueyr_com.asp")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set rs=server.createobject("adodb.recordset")
sql="SELECT * from txt where 用户='"&user&"' order by addtime desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p>还 没 有 一 则 日 记</p>"
else%>
</div>
<table style="border:1px dotted #999999" border="0" width="50%" cellspacing="0" cellpadding="5" align="center">
<%
For iPage = 1 To 5
If rs.EOF Then Exit For
if cc mod 2=1 then
Response.Write "<tr bgcolor=#E7E7E7>"
else
Response.Write "<tr BGCOLOR=#F4F4F4>"
end if
%>
<tr>
<td width="100%"><%=formatdatetime(rs("addtime"),vbshortdate)%><font size="2"><img src="images/dia-b-icon.gif" width="21" height="21"></font>
<%if rs("保密")<>"y" then%>
<%=left(rs("日记内容"),20)+"……"%><a href style='cursor:hand;' onClick="window.open('riji.asp?id=<%=rs("id")%>&user=<%=user%>','riji','scrollbars=no,resizable=yes,width=400,height=300')" title='查看本日的详细日记内容'>(详细)</a>
<%else%>
本则日记内容保密，要查看请进入<a href="pass.asp?user=<%=user%>">日记管理</a>
<%end if%></td>
</tr>
<%
rs.movenext
next
end if
%>
</table><NOSCRIPT><IFRAME SRC=index1.asp></IFRAME></NOSCRIPT><br>
<!--#include file="copy.asp"-->
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -