📄 index.asp
字号:
<%@ Language=VBScript %>
<!--#include file="includes/adovbs.inc"-->
<%dim view
view=Request.QueryString("view")
'Open the database
dim objConn, strCon, objRS, strSQL
Set objConn = Server.CreateObject("ADODB.Connection")
'*************************************
'www.everbaidu.com 感谢您的关注
' 联系我请登陆网站查看联系我们
'*************************************
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\wwwroot\20061101\boke\shujuku\everbaidu.mdb"
objConn.connectionstring = strCon
objConn.Open
Set objRS = Server.CreateObject("ADODB.Recordset")
'ON ERROR RESUME NEXT
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>简单博客系列----www.everbaidu.com</title>
<link rel="stylesheet" type="text/css" href="includes/style.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<p>
<div align="center">
<table width="700" border="0" cellspacing="0" cellpadding="0">
<tr><td bgcolor="#915BA3" class="blogTitle" valign="middle">
</td><td bgcolor="#915BA3" class="blogTitle" valign="middle">
<a href="http://www.everbaidu.com"><img src="images/banner.gif" width="700" height="58" alt="" border="0"></a></td></tr>
<tr><td colspan="2">
<table width="700" border="0" cellspacing="0" cellpadding="5" width="100%">
<tr><td valign="top" width="500" class="blog">
<% IF view="" THEN%>
<table width="100%"><tr><td> </td><td align="right"><a href="admin.asp"></a></td></tr></table>
<p>亲爱的各位朋友们，大家好，欢迎光临我的博客。简单百度，改变生活，我是百度爱好者，你呢？
<p>关注百度资讯，关注百度天下网，百度天下网网址是<a target=blank href=http://www.everbaidu.com>http://www.everbaidu.com</a>
<h5>最新博文</h5>
<%
dim counter, blogEntry
counter=0
' Set the SQL Statement to get the information from the database
strSQL="SELECT * FROM TBLBlog WHERE Status=1 ORDER BY id DESC"
' Open the Database
objRS.Open strSQL, objConn, adOpenKeyset, adLockPessimistic, adCmdText
DO UNTIL counter=7 OR objRS.EOF
%>
<table width="95%" class="blogEntry"><tr><td>
<b><%=objRS("entryTitle")%></b></td><td align="right">posted: <%=objRS("bday")%>/<%=objRS("bmonth")%>/<%=objRS("byear")%> at <%=objRS("btime")%> </td></tr>
<tr><td colspan="2" class="blog2">
<%blogEntry = Replace(objRS("entry"), vbCrLf, "<br>")%>
<%' check the length of the entry and truncate if over a certain number of characters
IF Len(blogEntry) > 50 THEN
blogEntry=left(blogEntry,50)
blogEntry=blogEntry+" ......<a href=""index.asp?view=display&ID="&objRS("id")&"""><img src=""images/read.gif"" width=""25"" height=""22"" alt=""Read More"" border=""0"" align=""right"" valign=""bottom""></a>"
END IF
Response.Write(blogEntry)
%>
</td></tr>
</table>
<br>
<%counter=counter+1
objRS.MoveNext
Loop
objRS.Close
%>
<%END IF%>
<%IF view="display" THEN
'Display the selected article in full
' Set the SQL Statement to get the information from the database
strSQL="SELECT * FROM TBLBlog WHERE id="&Request.QueryString("ID")
' Open the Database
objRS.Open strSQL, objConn
%>
<table width="95%" class="blogEntry"><tr><td>
<b><%=objRS("entryTitle")%></b></td><td align="right">posted: <%=objRS("bday")%>/<%=objRS("bmonth")%>/<%=objRS("byear")%> at <%=objRS("btime")%> </td></tr>
<tr><td colspan="2" class="blog2">
<%blogEntry = Replace(objRS("entry"), vbCrLf, "<br>")
Response.Write(blogEntry)
%>
</td></tr>
</td></tr></table>
<br>
<br>
<a href="index.asp">回到首页</a>
<%END IF%>
<% IF view="archive" THEN
'Display the selected day's entries
' Set the SQL Statement to get the information from the database
strSQL="SELECT * FROM TBLBlog WHERE Status=1 AND bday="&Request.QueryString("day")&" AND bmonth="&Request.QueryString("month")&" AND byear="&Request.QueryString("year")
' Open the Database
objRS.Open strSQL, objConn%>
<table width="100%"><tr><td><a href="index.asp">首页</a></td><td align="right"><a href="admin.asp"></a></td></tr></table>
<h5>博文 for <%=Request.QueryString("day")%>/<%=Request.QueryString("month")%>/<%=Request.QueryString("year")%></h5>
<%
IF NOT objRS.EOF THEN
DO WHILE NOT objRS.EOF
%>
<table width="95%" class="blogEntry"><tr><td>
<b><%=objRS("entryTitle")%></b></td><td align="right">posted: <%=objRS("bday")%>/<%=objRS("bmonth")%>/<%=objRS("byear")%> at <%=objRS("btime")%> </td></tr>
<tr><td colspan="2" class="blog2">
<%blogEntry = Replace(objRS("entry"), vbCrLf, "<br>")%>
<%' check the length of the entry and truncate if over a certain number of characters
Response.Write(blogEntry)
%>
</td></tr>
</table>
<br>
<%
objRS.MoveNext
Loop
ELSE
%>
<table width="100%"><tr><td><a href="index.asp"></a></td><td align="right"><a href="admin.asp"></a></td></tr></table>
Sorry啦，博主有点懒，还没写日志呢。
<%END IF%>
<br>
<br>
<a href="index.asp"></a>
<%END IF%>
<% IF view="archiveMonth" THEN
'Display the selected day's entries
' Set the SQL Statement to get the information from the database
strSQL="SELECT * FROM TBLBlog WHERE Status=1AND bmonth="&Request.QueryString("month")&" AND byear="&Request.QueryString("year")&" ORDER BY bday DESC"
' Open the Database
objRS.Open strSQL, objConn%>
<table width="100%"><tr><td><a href="index.asp">首页</a></td><td align="right"><a href="admin.asp"></a></td></tr></table>
<h5>博文 for <%=Request.QueryString("month")%>/<%=Request.QueryString("year")%></h5>
<%
IF NOT objRS.EOF THEN
DO WHILE NOT objRS.EOF
%>
<table width="95%" class="blogEntry"><tr><td>
<b><%=objRS("entryTitle")%></b></td><td align="right">posted: <%=objRS("bday")%>/<%=objRS("bmonth")%>/<%=objRS("byear")%> at <%=objRS("btime")%> </td></tr>
<tr><td colspan="2" class="blog2">
<%blogEntry = Replace(objRS("entry"), vbCrLf, "<br>")%>
<%' check the length of the entry and truncate if over a certain number of characters
Response.Write(blogEntry)
%>
</td></tr>
</table>
<br>
<%
objRS.MoveNext
Loop
ELSE
%>
<table width="100%"><tr><td><a href="index.asp"></a></td><td align="right"><a href="admin.asp"></a></td></tr></table>
Sorry啦，博主有点懒，还没写日志呢。
<%END IF%>
<br>
<br>
<a href="index.asp"></a>
<%END IF%>
</td>
<td width="10" class="blog4">
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br> </td>
<td width="190" class="blog3" valign="top">
<center><b>博客存档</b></center><br>
<!--#include file="includes/calendar.asp"-->
<table border="0" width="100%" class="blogEntry" cellspacing="0" cellpadding="2">
<tr>
<td><center><b>友情链接</b></center>
<table border="0" width="100%" cellspacing="0">
<tr>
<td width="13%" valign="top" class="tiny">>></td>
<td width="87%"> <a href="http://www.everbaidu.com" target="_blank" class="tiny">百度天下网</a></td>
</tr>
<tr>
<td width="13%" valign="top" class="tiny">>></td>
<td width="87%"><a href="http://hi.baidu.com/liyanhong" target="_blank">Robin在找你</a></td>
</tr>
<tr>
<td width="13%" valign="top" class="tiny">>></td>
<td width="87%"><a href="http://hi.baidu.com/conquer" target="_blank">朴实追梦人</a></td>
</tr>
<tr>
<td width="13%" valign="top" class="tiny">>></td>
<td width="87%"><a href="http://hi.baidu.com/tianxiaomeng" target="_blank">记忆是个匣子</a></td>
</tr>
<tr>
<td width="13%" valign="top" class="tiny">>></td>
<td width="87%"><a href="http://hi.baidu.com/sasha" target="_blank">美女爱自拍</a></td>
</tr>
<tr>
<td width="13%" valign="top" class="tiny">>></td>
<td width="87%"><a href="http://hi.baidu.com/hefeng" target="_blank">和风</a></td>
</tr>
<tr>
<td width="13%" valign="top" class="tiny">>></td>
<td width="87%"><a href="http://my.donews.com/xuxs" target="_blank">徐新事的blog</a></td>
</tr>
<tr>
<td width="13%" valign="top" class="tiny">>></td>
<td width="87%"><a href="http://www.english8848.net/e3008" target="_blank">英语3008句</a></td>
</tr>
<tr>
<td width="13%" valign="top" class="tiny">>></td>
<td width="87%"><a href="http://zhidao.baidu.com" target="_blank">百度知道</a></td>
</tr>
<tr>
<td width="13%" valign="top" class="tiny">>></td>
<td width="87%"><a href="http://www.chinaz.com" target="_blank">中国站长站</a></td>
</tr>
<tr>
<td width="13%" valign="top" class="tiny">>></td>
<td width="87%"><a href="http://www.52725.com" target="_blank">对比搜</a></td>
</tr>
<tr>
<td width="13%" valign="top"> </td>
<td width="87%"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr><td valign="top" width="500">
<center><a href='http://www.everbaidu.com' target='_blank'><img border='0' Src='http://www.everbaidu.com/baidu/Images/everbaidu.gif'></a><br/>
<a href=http://www.miibeian.gov.cn target=blank>[鲁ICP备06029842号]</a>
</td>
<td width="10" class="blog2">
</td>
<td width="190" class="blog2" valign="top">
</td>
</tr></table>
</td></tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -