5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西2 T5 b1 d/ D- W6 K+ z9 ~$ F" f
真NB..佩服ing .....; Z0 a  W; f. T% I+ z
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。

同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。 3 F7 H% o5 ~/ R* l8 ]1 \, K
7 ^. ?! Y' p3 G0 E8 ~6 Z* z
一、建立文件！
最简单的论坛也要有几个必要的文件，就是：
/ i. }0 l% T' J
1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb + d8 I+ f2 {/ h& [/ |

2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp 1 p. k' t) j6 }' R% p
* z! e7 Y# I  k- R, r% b+ n
3、发表帖子的文件----命名为：say.asp 4 R1 H9 g& {- Z: T$ m% G' U0 P8 z0 F

4、保存发表帖子内容的文件-----命名为：save.asp
2 f7 r8 }/ j' i. K
5、显示帖子标题的文件------命名为：index.asp / n8 j7 i, H$ d0 L, t- v
+ T/ ~6 C4 o. p# \$ ^6 u
6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp 6 _4 Y6 O1 |8 @8 r' r8 {$ S
, [$ z8 d6 ], {6 x
建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp"
5 A- B+ Q/ ?) Z  J$ o+ ~
二、各文件的主要内容
/ C1 u" p1 `7 {: l
1、bbs.mdb % i4 n: K( o/ h) p. |3 C
$ ~7 Y$ Z$ g, ^
打开这个数据库，建立一个表，命名为bbs 5 ]( C8 F9 d5 t( ?6 b6 g' \

该表中有几个字段: 6 n) j; u/ g; I2 X

id(自动给帖子编号)，他的数据类型设为“自动编号” 3 _3 L1 I# u( t- V9 q+ U
9 M/ C! r' N: _6 b# i
name(用来储存发表的作者)，数据类型为“文本”

title(用来储存帖子的主题)，数据类型为“文本”
& S$ }$ J  M5 @$ g1 w
body(用来储存帖子的内容)，数据类型为“备注”   c$ H9 D1 O# Z" o: t" x
' t. c5 e* p+ Q# E# O( f
2、conn.asp
源代码为：
<%
Server.scriptTimeout="10" % K( @. I, {' @+ Z# L, Z2 x
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection")
conn.open connstr
%>
/ Y' a' R( E9 x
这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！

3、say.asp

源代码为： % k  `$ F$ p# r! ~( {/ }
<form method="POST" action="save.asp">
<p>大名：<input type="text" name="name" size="20"></p> 1 \% U% j% c+ O
<p>标题：<input type="text" name="title" size="91"></p>
<p>内容：</p> $ N& d1 r! W; H
<p><textarea rows="11" name="body" cols="97"></textarea></p> ; m2 T0 _% }8 T: p
<p>　</p> 4 B& L1 L+ R2 f; m8 y  o4 _
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form>
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面 5 M$ z2 W! G: T7 d/ b
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！

4、save.asp

源代码：
 + J7 z" W; g) ]' b) m5 U
<%name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''") + @$ |. M' F" O8 ?! N% l4 c
body=Replace(Request.Form("body"),"'","''") " F: S; Y' S, ^- D' c
%> + ]- P! f' r' t' @
<%if name="" or title="" or body="" then%> " [" k/ j: E. t  U
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！ 0 A: c( |- d! m# X2 U$ T
<%else%>
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%> $ _) i2 u/ x$ A9 `& q' i
发表成功！<a href="index.asp">查看帖子</a>
<%end if : }  B. O. N( D
set savebbs=nothing 5 w- l  W$ |! y( A3 Q; {0 `
%> $ w$ X, Z. u9 R- l
7 W: `/ B% K& ]4 Q
第一句：，意思是插入conn.asp文件，即与数据库进行连接！ 5 E( C5 z4 y+ W! w6 t
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用，
接下来几句：
name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''") 9 j9 e2 N. u9 p
body=Replace(Request.Form("body"),"'","''") / k' K' C% e0 I0 E+ n4 z
1 v, H5 k5 O! ^# N% p' e
“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据，
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中，
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")” : f* {. C. n% L6 L0 }7 a4 w
就是把表单中名为name的文本框发来的数据储存在abc123变量中 & {& {. Y- B* s) W! k& g, l

接着：if name="" or title="" or body="" then / ~& g( j/ t$ w8 j3 u( {; B
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句：
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！”
该语句属于html语法，大家都看得懂的！ , }4 \* F: B: @/ \9 o

"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句：
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%>
发表成功！<a href="index.asp">查看帖子</a>” 8 _/ X0 X( @/ J: Q7 a  D; l# C) ]

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

最后：end if就是结束if……then * @+ ~9 X! Q8 f1 I
set savebbs=nothing可以说是关闭掉： ; x9 u+ c5 f' t4 ?# z
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")

5、index.asp 8 _, a5 h. G6 }+ h! v( D8 p- z2 g
源代码： + F" x# w5 P# v& \* B

<b><a href="say.asp">发表帖子</a></b><br><br> . R, j( |4 m9 ]% y4 V8 m+ q
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26"> ' u! e+ H& @# @- [* v1 F# {
<tr> ' a0 u# m( }" K0 d# S, g
<td width="17%"><b>作者</b></td>
<td width="83%"><b>主题</b></td> 5 @) E4 J* E' O1 q+ b
</tr> 7 a( l4 k& F! c6 |! v8 x' l. L+ M
</table> ! ~: G: ^# a) b. e
</center>
</div><hr size="1"> # N4 k; M2 m/ z! u% T
<%i=1 / J3 O9 G* T- M9 l" @! W
set showbbs=conn.execute("select*from bbs order by id desc")
do while not showbbs.eof
%>
<div align="center">
<center> # b; E8 y1 T' P, S  b7 V
<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%"> - j3 H* s& b2 n$ t1 k" X
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td> ) q, E: B2 V( Q) P- \4 Q. q
</tr> 7 D8 ^8 A& m" \
</table> ( S( c2 I  j) W
</center>
</div><hr size="1">
<%i=i+1 3 y& O: D1 S( N  i
if i>50 then exit do / h5 [; E7 W! ~- z  z, C' w
showbbs.movenext
Loop 3 @! G8 O. K/ [: m# D9 ]
showbbs.Close
set showbbs=nothing % L! I+ @0 c/ s' b
%> 6 u5 N( u" U7 |3 w1 o# n# I) i

这个文件就不一句一句的讲了
主要讲精华部分：
set showbbs=conn.execute("select*from bbs order by id desc")
意思是：向数据库中的bbs数据表查询数据，并以id排顺序，
还有这么一句：<%=showbbs("name")%>
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs
代码中的i=1和i=i+1
if i>50 then exit do $ @2 G# k# y9 s  W1 C6 i( L. A
showbbs.movenext ; M$ R; V8 }8 O, j9 h( q3 d4 k6 X
Loop
showbbs.Close
set showbbs=nothing

这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！ - `; _# i. T# V6 {( y8 j
if i>50 then exit do中的50可以修改 / C6 Y  h4 W! E4 F7 q9 q
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄 6 S0 H% X6 A. j2 r
还有一句很有用的： 5 ^* |: e* D7 o/ C0 ]4 q
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a>
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了， 3 o9 d; m+ g+ R2 [# _
等一下在show.asp文件中就有用了 $ |! U  a( {3 p- Y( a6 O

5、show.asp ( g& Z  h( `2 z
源代码：
5 W: K0 g3 e- y$ Z
 + G+ n1 h/ K" o5 Q  `
<%id=request.querystring("id")%> 0 J  ]! ^5 `/ y* }3 K5 h
<%set show=conn.execute("select*from bbs where id="&id&"")%>
<a href="index.asp"> 1 y' E* g' N3 K) X* K7 s  e8 I$ c
<b>回到首页</b></a><br><b><a href="say.asp">发表帖子</a></b><br><hr size="1">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="180"> * y: r2 I( E) g6 w- ]% Z+ Z
<tr>
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td>
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td>
</tr> - ~; C% r& W. |( X
<tr>
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td> " C1 y' F6 z$ w6 K
</tr> ( o7 r" `( O0 I
</table><%set show=nothing%>
8 q# m$ }# s  d# M# ~
劲语句---精华语句： 4 C& P4 E! F) m; v5 q) Y2 W8 g+ V
id=request.querystring("id")
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句，
id=request.querystring("id")就是把地址栏中的id的值读取下来，
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字， : g: D4 g) r7 W) }6 J" K
所以show.asp使用id=request.querystring("id")语句把数字读取下来
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"")
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&"
最后<%set show=nothing%>
+ r! P9 x( ~/ h# r# _
好了，一个简单的论坛就这样完成了，挂在我们自己的ASP空间上去试试

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

紫藤花

新手上路

Rank: 1

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

2楼

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

好厉害啊

TOP

返回列表

5分钟编写一个ASP论坛

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

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