五天学会做博客.docx
《五天学会做博客.docx》由会员分享,可在线阅读,更多相关《五天学会做博客.docx(12页珍藏版)》请在冰豆网上搜索。
![五天学会做博客.docx](https://file1.bdocx.com/fileroot1/2022-10/29/82fd4df9-c256-4dd1-b816-d00287414122/82fd4df9-c256-4dd1-b816-d002874141221.gif)
五天学会做博客
五天学会做博客 - 第一天
从今天起,本博客将用10天时间推出《五天学会做博客-ASP+ACCEESS》系列文章,每两天更新一篇。
最后一天提供源码下载和演示,有兴趣的朋友请留意。
第一天学习内容:
建立ACCESS数据库及数据库链接文件。
一、建立数据库
(一)打开Microsoft Office Access 2003,新建一个空数据库,保存在wwwroot根目录下的date(date为新建文件夹)内,数据库命名为mydate.mdb。
(二)双击使用设计器创建表,分别创建以下字段。
字段名 数据类型 说明
id 自动编号
title 文本 用于储存文章标题
content 备注 用于储存文章内容
ass 文本 用于储存文章分类
jishu 数字 用于储存文章浏览次数
time 日期/时间 用于储存添加文章的时间
将以上信息保存在名为myblog的表内。
(三)双击使用设计器创建表,分别创建以下字段。
字段名 数据类型 说明
id 自动编号
user 文本 用于储存管理员名字
pass 备注 用于储存管理员密码
将以上信息保存在名为myadmin的表内。
二、建立数据库链接文件,代码如下(复制代码需删除前面空格):
<%
dim Db,Str,conn '声明三个变量
Db = "date/mydate.mdb" '变量Db储存数据库路径
Str = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(Db)'前面是驱动程序,后面是路径
On Error Resume Next'没有错误的情况下执行下面代码
Set conn = Server.CreateObject("ADODB.Connection")'建立数据库对象
conn.open Str '打开数据库
If Err Then'如果发生错误,则执行下面代码
err.Clear
Set conn = Nothing
Response.Write "数据库链接错误……"
Response.End
End If
%>
将以上代码保存在conn.asp文件中(conn是文件名,也可以是其它名字)。
第一天学习内容到此结束。
五天学会做博客 - 第二天
这些天搞城乡环境综合治理,单位上工作很忙,呵呵,言归正传。
第二天学习内容:
制作主页(default.asp)及CSS文件(mycss.css)。
一、制作CSS文件(mycss.css)
CSS文件就是把网页的背景、字体颜色、大小、表格等等统一放到一个文件中,在需要的地方用调用即可(这个地方CSS文件名为mycss.css)。
制作方法:
可以用Macromedia Dreamweaver 8直接添加(可视化的,可以到,里面有教程地址和下载地址)。
如果你想偷懒,也可以直接复制下面代码(代码见第四部分,为方便学习,可以先看看后面的内容),然后保存为mycss.css即可。
完毕,呵呵,简单吧!
二、制作主页(default.asp)
因主页里面的代码较多,不一一详细解释,这里只讲几个重点。
(一)主页最前面必须有包含链接数据库的那个文件(conn.asp)的代码,如下:
--#include file="conn.asp"-->
(二)主页
和之间的代码如下,我分几个版块讲:
######################下面是logo部分,用class="logo"调用样式#################################
这里是博客名字等信息
######################下面是body部分,用class="body"调用样式#################################
##############下面是body左边的部分,用class="bodyleft"调用样式,?
myass=1是什么后面再讲。
#######
##############################################################################################
下面是body右边部分,用class="bodyright"调用样式,也是博客的核心部分,主要由打开表、分页、显示博客内容等几部分构成。
##############################################################################################
<%
'打开数据库中名为myblog的表。
set rs_blog=server.createobject("adodb.recordset")
sql_blog="select * from myblog order by id desc"rs_blog.open sql_blog,conn,1,1
'对数据库myblog表中的信息进行判断,如果没有,显示“暂时没有日志”。
IF (rs_blog.State =adStateClosed) or (rs_blog.BOF=true and rs_blog.EOF =true) or rs_blog.RecordCount=0 THEN
RESPONSE.Write "暂时没有日志"
ELSE
'如果有,则规定每页显示5篇文章(可以更改),下面五行是分页控制代码。
dim page,ipage
rs_blog.pagesize=5
page=clng(request("Page"))
if page=empty then page=1
rs_blog.absolutepage=page
%>
'用一个循环语句显示出rs_blog.pagesize(上面设置的是5)条信息。
<%for ipage=1 to rs_blog.pagesize%>
'说明:
下面的代码是用<%=rs_blog("id")%>、<%=rs_blog("title")%>、<%=rs_blog("time")%>分别从数据库中读出博文的id、题目、发表的时间。
并将题目链接到完整显示博文内容display.asp文件中(display.asp文件会根据下面?
ID=<%=rs_blog("id")%>部分的内容判断显示哪一篇文章。
),时间用括号括上,和题目相区别。
ID=<%=rs_blog("id")%>"><%=rs_blog("title")%>
(<%=rs_blog("time")%>)
'分行
'说明:
下面代码用dvHTMLcode函数显示文章前300个字的内容,字数可以更改,dvHTMLcode函数代码附后,可将其放在conn.asp包含文件中。
<%=dvHTMLcode(left(rs_blog("content"),300))%>
'分行后显示阅读次数。
阅读:
<%=rs_blog("jishu")%>
'画一根横线,和第二篇文章分开。
'向下移动,以找出并显示下一条文章记录。
<%
rs_blog.movenext
If rs_blog.eof Then exit For
Next
%>
<%end if%>
'分行,下页是显示分页的代码,和前面分页部分的代码相配合。
<%if page<>1 then%>
page=1 title="首页">首页
Page=<%=(page-1)%> title="上一页">上一页
<%else%>
首页 上一页
<%end if%>
<% if page<>rs_blog.pagecount then%>
Page=<%=(page+1)%> title="下一页">下一页
Page=<%=rs_blog.pagecount%> title="尾页">尾页
<%else%>
下一页 尾页
<%end if%>
######################下面是页面底部部分,用class="mydown"调用样式###########
<%
rs_logo.close '关闭表
set rs_logo=nothing
conn.close'断开链接,释放内存
set conn=nothing
%>
注意:
最后一定要关闭表、断开数据库链接,以释放资源。
三、dvHTMLCode函数代码
<%
function dvHTMLCode(byval fString)
if isnull(fString) or trim(fString)="" then
dvHTMLCode=""
exit function
end if
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, " "," ")
fString = Replace(fString, """, CHR(34))
fString = Replace(fString, "'", CHR(39))
fString = Replace(fString, "
",CHR(10) & CHR(10))
fString = Replace(fString, "
", CHR(10))
fString = Replace(fString, CHR(10),"
")
dvHTMLCode