五天学会做博客.docx

上传人:b****1 文档编号:2484013 上传时间:2022-10-30 格式:DOCX 页数:12 大小:53.75KB
下载 相关 举报
五天学会做博客.docx_第1页
第1页 / 共12页
五天学会做博客.docx_第2页
第2页 / 共12页
五天学会做博客.docx_第3页
第3页 / 共12页
五天学会做博客.docx_第4页
第4页 / 共12页
五天学会做博客.docx_第5页
第5页 / 共12页
点击查看更多>>
下载资源
资源描述

五天学会做博客.docx

《五天学会做博客.docx》由会员分享,可在线阅读,更多相关《五天学会做博客.docx(12页珍藏版)》请在冰豆网上搜索。

五天学会做博客.docx

五天学会做博客

五天学会做博客 - 第一天

  从今天起,本博客将用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是什么后面再讲。

#######

20px;">

  + 

myass=1">网站设计

  + 

myass=2">编程开发

  + 

myass=3">他山之石

  + 

myass=4">心情日记

##############################################################################################

下面是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

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 求职职场 > 职业规划

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1