5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西7 \8 ?$ w, L' `# ^
真NB..佩服ing .....
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。( D3 D) M0 D8 ^2 ]' }  `5 M% o$ B

同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。 ' J2 s/ H* r2 Z6 J1 X$ c

一、建立文件！
最简单的论坛也要有几个必要的文件，就是：

1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb . }  o/ J0 D# Y9 T, G9 x$ U
+ k3 i) _. k8 {# i; I, W6 |% H) c. n
2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp

3、发表帖子的文件----命名为：say.asp   q! n& |0 i9 t  C) A) S9 s
8 {; ~( n/ B2 X0 `$ g5 I/ T" _
4、保存发表帖子内容的文件-----命名为：save.asp 6 t' l: a0 R! f3 i" G: u6 D% F

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

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

建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp"
! \0 h4 E& p, l7 ~5 b
二、各文件的主要内容 . L7 I" y' K* V) M. V' j$ U& u
, A2 _' X6 \) @! \
1、bbs.mdb . {: B5 [! k5 w( R
2 N0 D; S/ }( B5 V. ]
打开这个数据库，建立一个表，命名为bbs & @0 x9 z; s6 u* Z+ |" s/ F
$ ~/ t- X( j% i/ h6 Y
该表中有几个字段: # t, A2 t4 m5 ?. d' N5 G

id(自动给帖子编号)，他的数据类型设为“自动编号”
4 ]% m: x4 t. {( c4 v' ~  i4 R
name(用来储存发表的作者)，数据类型为“文本”
- R" Y( z3 b+ A: _
title(用来储存帖子的主题)，数据类型为“文本”

body(用来储存帖子的内容)，数据类型为“备注” / h0 l6 F; {7 I# n5 I- }
$ P, t. Y. e2 q$ k2 d% I! n, d
2、conn.asp
源代码为：
<% , U$ V6 ^4 w) x( }4 k5 y
Server.scriptTimeout="10"
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" ) [) T2 k2 \" P' B) x
set conn=Server.CreateObject("ADODB.connection")
conn.open connstr % {: q8 I! q% f
%> 0 _) B7 |+ K5 t( }
3 I, x, b  }. n8 H# @8 ^
这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！
. z+ U( ^# x6 j' o$ S, O+ Q
3、say.asp
: o& g- Q9 A: L, i
源代码为：
<form method="POST" action="save.asp"> 9 C7 ^, e* G- R' Q1 r
<p>大名：<input type="text" name="name" size="20"></p> : P% K% d  E) K) r' d
<p>标题：<input type="text" name="title" size="91"></p> . H( s* |( Y; v+ b5 Z- d( x
<p>内容：</p> 9 T- Y& V1 ^9 h
<p><textarea rows="11" name="body" cols="97"></textarea></p> * d. {6 d1 K  R- V5 u  m6 m
<p>　</p>
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form>
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面 # `* c7 d- p$ _7 e( q1 r% i
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！ 7 z+ C+ G, ^' T; @
6 n7 X" t" k7 e% @
4、save.asp . B2 J# ?  L" @6 R
* F' O* ~5 b( Q# A
源代码： 8 _; M! o7 s5 V/ \9 o
 3 y. g; ^- a. d- x
<%name=Replace(Request.Form("name"),"'","''") - P8 k9 O; A6 u9 h4 {% k$ W* m
title=Replace(Request.Form("title"),"'","''") * o8 O; a: m3 W' P, y8 ]
body=Replace(Request.Form("body"),"'","''")
%>
<%if name="" or title="" or body="" then%>
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！ " X: X6 o. K; a' Z8 v
<%else%> 9 h+ i1 x$ I1 a8 Q' z$ K/ m
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%>   ]8 b" }4 w8 P! ^8 Y+ L% V
发表成功！<a href="index.asp">查看帖子</a> ) y: y3 v: ^2 j3 `
<%end if 5 E  M* ?5 c* e9 v# t( v
set savebbs=nothing
%>

第一句：，意思是插入conn.asp文件，即与数据库进行连接！ 8 T6 T  w  s# f
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用，
接下来几句： 2 C! e' M& L9 \4 O+ D
name=Replace(Request.Form("name"),"'","''") 0 f) B# L- `9 ~) `0 i  V0 X5 \
title=Replace(Request.Form("title"),"'","''")
body=Replace(Request.Form("body"),"'","''") 3 J* b) w- n( f% c, M

“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据，
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中，
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")”
就是把表单中名为name的文本框发来的数据储存在abc123变量中 % E+ \" @9 ~$ C& I3 a
/ U1 M" k5 [5 @; T, \% a! ?5 `
接着：if name="" or title="" or body="" then
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句：
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！” $ y, A0 Z3 \8 K; r3 Y4 {" Q
该语句属于html语法，大家都看得懂的！ : p4 A4 S9 g6 I0 u

"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句： . s) b/ ?( i* R" _' m( H
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%> & G3 t- a+ D- W' D3 Z; p
发表成功！<a href="index.asp">查看帖子</a>”

"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了：
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表） # e, K4 H/ t: y
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')")
values是“值”的意思 7 G8 Q: N4 F% M2 p& s: ~7 {8 }
就是插入向量name,title,body，向量用格式'"&name&"'表示 ' t4 X) U" D% T# Z' a
/ q( a+ j) c8 h
最后：end if就是结束if……then
set savebbs=nothing可以说是关闭掉： / t- \, l2 H0 i+ ~& j( ]. N
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")

5、index.asp
源代码：

<b><a href="say.asp">发表帖子</a></b><br><br> 1 v3 i; T+ h/ [- k
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26">
<tr> + v& p! z1 @+ e/ k
<td width="17%"><b>作者</b></td>
<td width="83%"><b>主题</b></td>
</tr>
</table>
</center>
</div><hr size="1">
<%i=1 1 A5 V- S8 \5 }, A' j. B
set showbbs=conn.execute("select*from bbs order by id desc")
do while not showbbs.eof # f- j" K- n, Z3 ^
%>
<div align="center"> # d; b6 d; z# c" ]" w( U% {
<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> & ?7 [6 y% J+ {" R
<td width="83%"> ) c" J  \3 ]$ E7 y7 g8 z! Z2 ?- x
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td>
</tr>
</table>
</center> * a5 W- }1 l4 V# M" ?6 A$ A! c8 I
</div><hr size="1">
<%i=i+1 . T1 v. a, ?9 X% l) ~- k0 ~3 h8 y
if i>50 then exit do
showbbs.movenext
Loop 1 ^0 \4 ~% p' L1 u* d1 v
showbbs.Close
set showbbs=nothing * E7 c, T* N( M% D! ]2 \; ?: W- U
%>

这个文件就不一句一句的讲了
主要讲精华部分： 2 Q- r( Z" \3 ^8 ^1 s
set showbbs=conn.execute("select*from bbs order by id desc")
意思是：向数据库中的bbs数据表查询数据，并以id排顺序， # X% o& i- ^$ n' F8 p7 c2 h" G, K
还有这么一句：<%=showbbs("name")%> , z' [0 R: |. e
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs 3 s. I6 }8 J( N2 O/ Y
代码中的i=1和i=i+1
if i>50 then exit do
showbbs.movenext 6 U1 g$ R; G1 i3 J: v
Loop 0 F7 e- r  r. I9 z7 |3 H! f
showbbs.Close
set showbbs=nothing   s) k) q3 }2 D+ ?
! \0 N- z& ^% w7 P
这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！
if i>50 then exit do中的50可以修改
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄
还有一句很有用的：
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a> 1 b2 H8 z8 y/ P9 t; E. @, p9 s
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了，
等一下在show.asp文件中就有用了
3 \- }4 t6 L+ `  w6 Z* j" r* n! L$ L
5、show.asp
源代码： - T) ]0 ~1 X! m: c$ z; W


<%id=request.querystring("id")%> & p! P5 U! D* E& i/ L
<%set show=conn.execute("select*from bbs where id="&id&"")%>
<a href="index.asp">
<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"> " D$ s3 D  q& G1 W* r8 }
<tr> / O7 m4 E" P' T/ O* U/ z
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td> " y- g" E" h% e+ ~
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td> 2 f0 J$ ]! K! n1 D. _; _
</tr> $ V0 L( ~: T7 b
<tr>
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td>
</tr>
</table><%set show=nothing%>

劲语句---精华语句： 5 y# O! |  F* s- n' ^  T9 G
id=request.querystring("id") 0 `8 ^. g! g1 U4 E
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句，
id=request.querystring("id")就是把地址栏中的id的值读取下来， , R3 Y6 W, o, ]- i% f+ W% j
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字，
所以show.asp使用id=request.querystring("id")语句把数字读取下来 1 Y& `. Z* ^5 J% Y; A
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"") 0 k1 F4 J) m6 }% }
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&" # {# s2 ?# t% G) s
最后<%set show=nothing%>

好了，一个简单的论坛就这样完成了，挂在我们自己的ASP空间上去试试

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

紫藤花

新手上路

Rank: 1

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

2楼

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

好厉害啊

TOP

返回列表

5分钟编写一个ASP论坛

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

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