1. 论坛系统升级为Xenforo,欢迎大家测试!
    排除公告

教你5分钟做成一个ASP论坛

本帖由 baga082010-02-10 发布。版面名称:源码讨论

  1. baga08

    baga08 New Member

    注册:
    2010-01-15
    帖子:
    3
    赞:
    0
    教你5分钟做成一个ASP论坛

    [在线交流800029900]



    教大家用asp做个非常简单的论坛!用自己的论坛感觉多舒服
    做论坛其实并不难,只要你掌握了几句精华的asp语法,就能搞定。现在我献丑了!

    一、建立文件!
    最简单的论坛也要有几个必要的文件,就是:

    1、数据库,用来储存发表的帖子!-------命名为:bbs.mdb

    2、有数据库就必须连接数据库,该文件用来连接数据库:----命名为:conn.asp

    3、发表帖子的文件----命名为:say.asp

    4、保存发表帖子内容的文件-----命名为:save.asp

    5、显示帖子标题的文件------命名为:index.asp

    6、显示帖子内容的文件,即点击标题后所进入的页面-----命名为:show.asp

    建立文件是可以先建立文本文档,他的格式为文件名.txt,我们只需把它改为文件名.asp

    二、各文件的主要内容

    1、bbs.mdb

    打开这个数据库,建立一个表,命名为bbs

    该表中有几个字段

    id(自动给帖子编号),他的数据类型设为“自动编号”

    name(用来储存发表的作者),数据类型为“文本”

    title(用来储存帖子的主题),数据类型为“文本”

    body(用来储存帖子的内容),数据类型为“备注”

    2、conn.asp
    源代码为:
    %
    Server.scriptTimeout=10
    c+server.mappath(bbs.mdb+;DefaultDir=;DRIVER={Microsoft Access Driver (.mdb)};
    set conn=Server.CreateObject(ADODB.connection
    conn.open connstr
    %

    这个文件就是这样,代码内容大家就自己研究,这个我也不知道怎么说才好!

    3、say.asp

    源代码为:
    form method=POST action=save.asp
    p大名:input type=text name=name size=20p
    p标题:input type=text name=title size=91p
    p内容:p
    ptextarea rows=11 name=body cols=97textareap
    p p
    pinput type=submit value=提交 name=B1input type=reset value=重置 name=B2p
    form
    大家应该看得懂的,这个根本就是html语法,对的,根本就是,这个只是发表的界面
    不过要注意这一句form method=POST action=save.asp,他把用户所填的内容发送至save.asp这个文件,下面就看save.asp这个文件吧!

    4、save.asp

    源代码:
    !--#include file=conn.asp--
    %name=Replace(Request.Form(name,',''
    title=Replace(Request.Form(title,',''
    body=Replace(Request.Form(body,',''
    %
    %if name= or title= or body= then%
    请a href=javascripthistory.go(-1)后退a填写完整资料,你才能发表帖子!
    %else%
    %set savebbs=conn.execute(insert into bbs(name,title,body)values('&name&','&title&','&body&')%
    发表成功!a href=index.asp查看帖子a
    %end if
    set savebbs=nothing
    %

    第一句:!--#include file=conn.asp--,意思是插入conn.asp文件,即与数据库进行连接!
    asp语句必须用% %这个格式包含起来,而插入文件的语句就不用,
    接下来几句:
    name=Replace(Request.Form(name,',''
    title=Replace(Request.Form(title,',''
    body=Replace(Request.Form(body,',''

    “Replace(Request.Form(name,',''”意思是接收表单中名为name的文本框发来的数据,
    而“name=Replace(Request.Form(name,',''”则是把发来的数据储存在name变量中,
    如果你这样:“abc123=Replace(Request.Form(name,',''”
    就是把表单中名为name的文本框发来的数据储存在abc123变量中

    接着:if name= or title= or body= then
    判断name、title和body变量中是否没有填写内容,即为,如果这样,就执行这一语句:
    “请a href=javascripthistory.go(-1)后退a填写完整资料,你才能发表帖子!”
    该语句属于html语法,大家都看得懂的!

    %else%就是说“当if……then不成立(即是说所有内容都已经填写)”,就执行语句:
    “%set savebbs=conn.execute(insert into bbs(name,title,body) values('&name&','&title&','&body&')%
    发表成功!a href=index.asp查看帖子a”

    set save=conn.execute属于固定的语句,不过savebbs可以自己修改,=后面的就难解释了:
    insert into bbs(name,title,body)意思是向名为bbs的表(在建立数据库时已经建立的表)
    中的name,title,body字段插入,插入什么呢?看接下的values('&name&','&title&','&body&')
    values是“值”的意思
    就是插入向量name,title,body,向量用格式'&name&'表示

    最后:end if就是结束if……then
    set savebbs=nothing可以说是关闭掉:
    set savebbs=conn.execute(insert into bbs(name,title,body) values('&name&','&title&','&body&')


    5、index.asp
    源代码:
    !--#include file=conn.asp--
    ba href=say.asp发表帖子ab


    div align=center
    center
    table border=0 cellpadding=0 cellspacing=0 style=border-collapse collapse; bordercolor=#000000 width=100% height=26
    tr
    td width=17%b作者btd
    td width=83%b主题btd
    tr
    table
    center
    divhr size=1
    %i=1
    set showbbs=conn.execute(selectfrom bbs order by id desc
    do while not showbbs.eof
    %
    div align=center
    center
    table border=0 cellpadding=0 cellspacing=0 style=border-collapse collapse; bordercolor=#000000 width=100% height=20
    tr
    td width=17%%=showbbs(name% td
    td width=83%
    a href=show.aspid=%=showbbs(id%%=showbbs(title%atd
    tr
    table
    center
    divhr size=1
    %i=i+1
    if i50 then exit do
    showbbs.movenext
    Loop
    showbbs.Close
    set showbbs=nothing
    %

    这个文件就不一句一句的讲了
    主要讲精华部分:
    set showbbs=conn.execute(selectfrom bbs order by id desc
    意思是:向数据库中的bbs数据表查询数据,并以id排顺序,
    还有这么一句:%=showbbs(name%
    就是显示数据表中的name字段的数据,这里的showbbs就是set showbbs=……中的showbbs
    代码中的i=1和i=i+1
    if i50 then exit do
    showbbs.movenext
    Loop
    showbbs.Close
    set showbbs=nothing

    这几句属于循环语句,这里就不理他,理解了也不太好用,因为他只显示50张贴子!
    if i50 then exit do中的50可以修改
    但我们做论坛必须把帖子分页,又因为分页这个语句太复杂,我想就不讲了,等这一个弄懂了才来弄
    还有一句很有用的:
    a href=show.aspid=%=showbbs(id%%=showbbs(title%a
    里面的超连接:show.aspid=%=showbbs(id%,注意:这里的超连接把帖子的id包含了,
    等一下在show.asp文件中就有用了

    5、show.asp
    源代码:

    !--#include file=conn.asp--
    %id=request.querystring(id%
    %set show=conn.execute(selectfrom bbs where id=&id&%
    a href=index.asp
    b回到首页ba
    ba href=say.asp发表帖子ab
    hr size=1
    table border=1 cellpadding=0 cellspacing=0 style=border-collapse collapse bordercolor=#111111 width=100% height=180
    tr
    td width=21% height=22b作者:b%=show(name%td
    td width=79% height=22b主题:b%=show(title%td
    tr
    tr
    td width=100% colspan=2 height=158 valign=topb
    内容:b%=show(body%td
    tr
    table%set show=nothing%

    劲语句---精华语句:
    id=request.querystring(id
    在讲解index.asp文件的后面已经说到:show.aspid=%=showbbs(id这一句,
    id=request.querystring(id就是把地址栏中的id的值读取下来,
    因为index.asp文件中的超连接点击后,地址栏就为http…………show.aspid=数字,
    所以show.asp使用id=request.querystring(id语句把数字读取下来
    于是接着使用:set show=conn.execute(selectfrom bbs where id=&id&
    向数据表查询id为这时读取下来的数字的帖子,即where id=&id&
    最后%set show=nothing%

    好了,论坛就做成了,里面的精华你就去吸取!
    当然论坛不可能这么简单,他还有许多文件需要你去制作,这里讲的只是个别必需的功能.




    [​IMG]
    商务虚拟主机和智能建站:试用详情点击进入


    电话:0756-3810516 QQ 800029900 全国免费销售热线:400-680-2000







    [​IMG]
    主机-虚拟主机-时代互联(www.now.cn )全国五强虚拟主机提供商,CNNIC五星级 ...
    虚拟主机领先提供商-时代互联为全球十多万客户提供卓越的虚拟主机,名列全国5强虚拟主机提供商,CNNIC五星级认证服务商!十年品质,百年企业-时代互联,拥有专业的虚拟主机 ...

    www.now.cn/vhost

    更多相关的关键字:主机,java虚拟主机,虚拟主机,java空间,java主机