5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西
真NB..佩服ing .....% n. e0 A4 I/ e' K/ A  N
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。
  p& f7 L/ t7 A7 q5 j" r
同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。 . [- B6 O" a$ o/ Q

一、建立文件！ , @/ A* O" q* Z! L6 [4 `* |
最简单的论坛也要有几个必要的文件，就是： $ U+ u! o+ z+ P9 I! ?$ {" b, B

1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb ' I0 n0 t, v  a1 J/ H5 l  P' H
3 v0 P4 q6 b: A: L" C% a3 v7 h9 b
2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp ' d9 F5 r' O" I, f

3、发表帖子的文件----命名为：say.asp ' l, h- X  O% W; z5 r/ {
( A4 R9 F; k+ Q" T, m
4、保存发表帖子内容的文件-----命名为：save.asp

5、显示帖子标题的文件------命名为：index.asp & F5 N! z+ P, B1 h7 T! q7 s5 V$ c# |' _

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

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

二、各文件的主要内容 7 L6 J7 b+ I% l! [! L

1、bbs.mdb
/ b- _1 D; M# y, |# p; ?  \& i
打开这个数据库，建立一个表，命名为bbs
3 }! I' A8 b: w+ _( \% W
该表中有几个字段:
# y5 q- u7 @7 [2 T' p2 r3 d( X
id(自动给帖子编号)，他的数据类型设为“自动编号”
" g7 y% ^' g$ o% A4 R0 r6 ~
name(用来储存发表的作者)，数据类型为“文本” # T2 ?9 l: ^1 R- j  {

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

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

2、conn.asp
源代码为： 3 W4 c7 j/ Q& K
<%
Server.scriptTimeout="10" 6 r% S! y1 _: T& r9 i+ o
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection")
conn.open connstr ) B) @! ?3 o9 ~
%> ' l" j: B2 W" K& w8 ]+ W
. h' q3 ^) b# H+ N8 p
这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！
4 Y; o/ A; S6 Z4 r+ i
3、say.asp ! x# J" _2 Q' R9 q4 v" s/ c" ^
$ T* Q# e4 q5 J4 P2 Q2 |- G* @
源代码为：
<form method="POST" action="save.asp">
<p>大名：<input type="text" name="name" size="20"></p>
<p>标题：<input type="text" name="title" size="91"></p>
<p>内容：</p> 4 B. N5 H. N6 W' G) `' h
<p><textarea rows="11" name="body" cols="97"></textarea></p> 3 X/ D0 h- _. g: m
<p>　</p> ! l$ l4 ^) r1 l1 I; w
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form>
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！ ; J4 L* o% W% N% a4 ~- F
. f; g, @1 G- `3 z6 X
4、save.asp
! W0 e8 z( S3 X/ o8 i* k3 d
源代码：
 9 n: ]0 |6 ?. l6 `8 |
<%name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''") % f5 U* n) ]) S3 N- D$ b1 R
body=Replace(Request.Form("body"),"'","''") : y" }9 K# k$ C* t/ m7 D
%> 8 {' |5 E) q$ H7 w; a! P; B
<%if name="" or title="" or body="" then%> ; M) |5 I9 y) g4 U. j8 V4 Q
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！
<%else%>
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%> & }3 H8 p* I. g( X% R/ P! u6 P. J2 T
发表成功！<a href="index.asp">查看帖子</a>
<%end if
set savebbs=nothing
%> & m& Y$ y+ ]2 k$ o
: ]( ]3 D- J# f2 l4 Q; @4 {4 u
第一句：，意思是插入conn.asp文件，即与数据库进行连接！
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用，
接下来几句： 5 t! u* W+ _* C& F! |; B9 ]3 @
name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''")
body=Replace(Request.Form("body"),"'","''") ; P' l; O+ l& h& U

“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据， : H+ a8 G; H, ?5 ?0 V! W) i$ H
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中， . v  K+ e" `. n/ a0 f
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")”
就是把表单中名为name的文本框发来的数据储存在abc123变量中

接着：if name="" or title="" or body="" then
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句： 4 D( y, @2 @: H* N$ S
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！” : [# N; x* K2 \2 ~! T  k
该语句属于html语法，大家都看得懂的！ * w' ]6 c" M# ]! |# \4 j3 `) w" A

"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句：
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%> 2 l" |6 j& N% T4 t) {+ N
发表成功！<a href="index.asp">查看帖子</a>” . S2 d% e$ m0 h" [" K9 {

"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了： 0 T4 ?1 N: v+ N/ H* F. P
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表）
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')")
values是“值”的意思 2 O9 u. O3 k* @: b' T6 |
就是插入向量name,title,body，向量用格式'"&name&"'表示 # g: g) \; z1 Y9 s
( W9 @4 `+ D" D4 o% _
最后：end if就是结束if……then
set savebbs=nothing可以说是关闭掉： * i1 s6 {% g( D& d2 D* M; b
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")

5、index.asp
源代码：
 & Q5 O* E' R" W; u
<b><a href="say.asp">发表帖子</a></b><br><br>
<div align="center">
<center> * s! u) a( R8 R) G& s2 Y8 c
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26"> 5 V' `: R- u1 Q1 ?$ k3 v
<tr> ! S  g. U# @% T# Y0 Y2 h
<td width="17%"><b>作者</b></td>
<td width="83%"><b>主题</b></td>
</tr>
</table>
</center>
</div><hr size="1"> , h8 ^0 Q2 Q* i& q6 t
<%i=1
set showbbs=conn.execute("select*from bbs order by id desc") 2 q9 d" v( w% n$ s' I
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"> , X9 y8 r; e& }9 H% i3 U
<tr> ' B9 ], k2 b' n: T8 s2 _
<td width="17%"><%=showbbs("name")%>　</td>
<td width="83%"> 7 d& m: ?/ g- t1 _
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td>
</tr>
</table>
</center>
</div><hr size="1">
<%i=i+1 7 n* M3 t" n' p7 r0 V3 d" t, e
if i>50 then exit do
showbbs.movenext
Loop
showbbs.Close
set showbbs=nothing 9 W8 h, F/ N: Z+ _0 ^& u
%>

这个文件就不一句一句的讲了
主要讲精华部分： 1 A5 t' X8 O: P* c3 K2 q, c; q6 B
set showbbs=conn.execute("select*from bbs order by id desc")
意思是：向数据库中的bbs数据表查询数据，并以id排顺序，
还有这么一句：<%=showbbs("name")%>
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs ) y5 g* A" ]: G* Q  Y" D
代码中的i=1和i=i+1
if i>50 then exit do
showbbs.movenext
Loop
showbbs.Close
set showbbs=nothing
' F+ H; i) W- y7 @
这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！
if i>50 then exit do中的50可以修改
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄
还有一句很有用的： : L+ a3 ^+ p/ x, r8 [4 h/ p6 N
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a>
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了，
等一下在show.asp文件中就有用了

5、show.asp
源代码：
0 ~, x' E9 e5 D; w

<%id=request.querystring("id")%>
<%set show=conn.execute("select*from bbs where id="&id&"")%> , z6 E* D2 t2 q
<a href="index.asp">
<b>回到首页</b></a><br><b><a href="say.asp">发表帖子</a></b><br><hr size="1"> 5 o# v# ~  {+ E4 R! @
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="180">
<tr>
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td>
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td> / j% V% }' k3 \$ t& p$ t8 w
</tr> 9 b1 B2 K; {! i* b( y
<tr> + m5 D% x! ~4 O- u( _- j( n6 }0 G% Z
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td> 4 i3 S6 Z2 R& G* L, a
</tr>
</table><%set show=nothing%> % F+ W: ]* U; Z  m  i9 u' }2 X

劲语句---精华语句：
id=request.querystring("id") % S( v0 ~& ^% C4 W" \2 T
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句， $ X# G  o4 q& N- G2 ]& x+ y# f6 |
id=request.querystring("id")就是把地址栏中的id的值读取下来， - |) I. C) ~, l2 T" E
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字， " t3 }4 Q6 g  F/ j
所以show.asp使用id=request.querystring("id")语句把数字读取下来
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"")
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&"
最后<%set show=nothing%> 0 h4 ~# j( b1 A' R; z
7 k  i! R" ^. m
好了，一个简单的论坛就这样完成了，挂在我们自己的ASP空间上去试试

捌玖网络 89w.org----致力于站长学习交流

紫藤花

新手上路

Rank: 1

UID: 102
帖子: 10
精华: 0
积分: 49
金币: 12
威望: 0
贡献: 0

2楼

发表于 2007-12-25 18:07 | 只看该作者

好厉害啊

TOP

返回列表

5分钟编写一个ASP论坛

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]