5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西
真NB..佩服ing ....., m: J, d# x/ a* L
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。

同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。 2 I# _% z6 X8 Y  ^

一、建立文件！ " s5 d# d& B4 m/ l$ o' T
最简单的论坛也要有几个必要的文件，就是：
. k1 T7 P# L1 _4 M' _" l" P# E
1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb , C. Y, b! L6 N$ a5 ?1 P/ W
4 Q! b2 u! `1 t4 r& ^1 i3 y$ O
2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp
: o4 u8 \: v8 j* O1 w
3、发表帖子的文件----命名为：say.asp
6 b' e/ ?6 m+ b2 O; h, H
4、保存发表帖子内容的文件-----命名为：save.asp 5 ?6 v8 h% A) P, a# o

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

6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp ' {, G; f) \/ O- o0 x7 K; p3 k6 y
" Y  @7 p, K( r) Y% E
建立文件是可以先建立文本文档，他的格式为"文件名.txt"，我们只需把它改为"文件名.asp" & W& r$ q* v5 A
. i% M5 B; e1 ]% V" j
二、各文件的主要内容 * A% X7 D5 C7 D) @8 e0 d
8 `) R, ]2 q5 D9 s  o' T
1、bbs.mdb 7 `  H! V8 P+ W% Z

打开这个数据库，建立一个表，命名为bbs
5 R& s0 V: ^+ s) a, K2 H
该表中有几个字段:
" [2 i7 s  w' T1 a
id(自动给帖子编号)，他的数据类型设为“自动编号”
2 b$ M$ `$ K# c( F  E
name(用来储存发表的作者)，数据类型为“文本” % ]. s% `4 Z9 |7 o' o0 L; C$ N

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

body(用来储存帖子的内容)，数据类型为“备注” & `% W$ P: O3 e* l

2、conn.asp
源代码为： ) I. \3 s9 n; o: |" k  a7 s( O9 y
<%
Server.scriptTimeout="10"
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection")
conn.open connstr
%> 3 H9 W2 F) d- A1 q8 D
. Z- g- p$ ^' z+ l: q% d
这个文件就是这样，代码内容大家就自己研究，这个我也不知道怎么说才好！ 1 G0 M' n$ v# p! e5 x; y
9 |: t, k4 ?$ u8 C+ f
3、say.asp ' D' c) N' r- M2 D# l) a+ M4 B

源代码为：
<form method="POST" action="save.asp">
<p>大名：<input type="text" name="name" size="20"></p> 6 @/ e6 ~) T) D$ ]! U
<p>标题：<input type="text" name="title" size="91"></p>
<p>内容：</p> 9 @& ~& h1 y# n
<p><textarea rows="11" name="body" cols="97"></textarea></p> 4 o3 M2 B4 E! ]) C8 k! [+ m
<p>　</p>
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p> - J- z+ F% z! I$ c/ l( q' V
</form> " O: x: v3 {' i! o% P& y
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！ ) X/ g1 g" J+ t; W
' Q7 W0 j3 j! |# L+ c( z
4、save.asp
/ N  W6 P# F! q& J
源代码： 6 U8 b' Q$ o' U- C1 V; d" w4 t

<%name=Replace(Request.Form("name"),"'","''")
title=Replace(Request.Form("title"),"'","''")
body=Replace(Request.Form("body"),"'","''") ' ^5 a; W8 @+ ]7 \* I
%>
<%if name="" or title="" or body="" then%>
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！ 0 \- A( \8 I7 A) d
<%else%>
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%> 9 S# }; |7 f& t' t' l$ [
发表成功！<a href="index.asp">查看帖子</a>
<%end if
set savebbs=nothing
%> / a5 s  C/ Y; w% q0 B
. Q2 ?0 c5 L6 r# R, T
第一句：，意思是插入conn.asp文件，即与数据库进行连接！
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用，
接下来几句：
name=Replace(Request.Form("name"),"'","''") - e1 p/ v- m1 N, s# M
title=Replace(Request.Form("title"),"'","''") % j/ [9 V2 k7 R$ |2 P! g
body=Replace(Request.Form("body"),"'","''")

“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据， ; ^0 O- c7 _; q
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中，   v, B) \- p' A7 b$ a
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")”
就是把表单中名为name的文本框发来的数据储存在abc123变量中
( m* e, Z) `" w; i
接着：if name="" or title="" or body="" then # d9 W) W. m# Y" Q
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句：
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！”
该语句属于html语法，大家都看得懂的！ 7 a4 \/ b) z8 G( {8 I" o+ e8 ?% j

"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句：
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%>
发表成功！<a href="index.asp">查看帖子</a>”
6 B8 h$ b" V! S+ r4 J7 V
"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了：
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表）
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')")
values是“值”的意思
就是插入向量name,title,body，向量用格式'"&name&"'表示 / I! G1 ~: O1 y) _! R
( q9 H4 U  A1 Y
最后：end if就是结束if……then
set savebbs=nothing可以说是关闭掉： % ^* U, |9 z$ F+ R
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')") - f% W, y; o- }$ N6 T
# A; P8 B) `' U& `* Q% i5 i9 r
. S3 e7 ?2 I# n5 v9 j5 Q
5、index.asp
源代码：

<b><a href="say.asp">发表帖子</a></b><br><br> ) [+ P0 S/ Q+ I9 U. B! M% ^
<div align="center"> ( Q& j7 L( x  s/ c
<center> 3 M9 X  K4 ]5 L5 ^
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26">
<tr> ' }6 X0 ^) f3 x! ]' V
<td width="17%"><b>作者</b></td> ( |  B# [  U' f. t
<td width="83%"><b>主题</b></td>
</tr> $ g* z* v( W  r9 [1 H8 n
</table> + n% e; s9 T7 _2 F; E; Z
</center> - ^; t" ~) f( Y( p. v' L- y
</div><hr size="1"> - P+ V  c8 B8 r. G" Q
<%i=1 8 @, ?( z( X0 q' ?" o; e; m
set showbbs=conn.execute("select*from bbs order by id desc")
do while not showbbs.eof
%> 3 E* r9 x/ H2 @9 |' `& H, H7 }6 F$ e
<div align="center"> " @3 u6 \( }3 b/ G2 y
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20">   s1 Y  h4 X. Y
<tr>
<td width="17%"><%=showbbs("name")%>　</td>
<td width="83%">
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td> 0 ~" i7 b. r, `' ~3 U
</tr> 5 K; y% t( f+ l! [6 ~$ v( Q% J
</table>
</center> 6 E1 z- g4 r: F1 v  m2 h8 j. v( f
</div><hr size="1">
<%i=i+1 & t" }( [1 T% F9 e' g% d7 U
if i>50 then exit do 8 c7 o5 m" |. [5 ?' L) o! M
showbbs.movenext
Loop   U' U1 V* P2 x) ?; g
showbbs.Close
set showbbs=nothing
%>
/ {! l; `  }; K$ S
这个文件就不一句一句的讲了 ) A! j! Q3 E/ o4 c6 B
主要讲精华部分：
set showbbs=conn.execute("select*from bbs order by id desc")
意思是：向数据库中的bbs数据表查询数据，并以id排顺序，
还有这么一句：<%=showbbs("name")%> , D6 [% r3 ?& c  f* A* S  G
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs   c9 h/ a$ P+ |( N- c
代码中的i=1和i=i+1 # S9 @$ C' b( g, y
if i>50 then exit do   m5 g( A& h: p
showbbs.movenext 1 ]; V# Y, T3 h# Z+ X
Loop
showbbs.Close 1 H4 Q. y/ k1 o7 [. p
set showbbs=nothing 2 d4 p$ }+ O) s1 ~' A0 Z( E$ T

这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！
if i>50 then exit do中的50可以修改 ; t' C, l) W& u( x
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄 / e9 `/ \- g5 l
还有一句很有用的： 1 m2 s8 X5 @2 j5 I; O
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a> ! v2 k3 {' d: \: a, ^1 M+ l
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了， ! p# i0 B+ R. F( p* o
等一下在show.asp文件中就有用了

5、show.asp & Y9 A& Y3 v5 D! M6 k5 c2 |8 D
源代码： 0 f2 F$ P: `4 E: O/ R( M( @3 e( F" ]


<%id=request.querystring("id")%>
<%set show=conn.execute("select*from bbs where id="&id&"")%>
<a href="index.asp"> 1 P0 a6 r% p8 V5 y" Q5 E# d
<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"> + ]* V: \- j5 ~, x0 d8 @2 A
<tr> 4 f& `5 i7 k+ g# [
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td>
<td width="79%" height="22"><b>主题：</b><%=show("title")%></td>
</tr>
<tr>
<td width="100%" colspan="2" height="158" valign="top"><b><br>内容：</b><%=show("body")%></td>
</tr> 3 }$ q% N0 }2 K( v9 [/ e2 H. a# c- W
</table><%set show=nothing%> 5 V! O5 S+ S4 k  g/ @2 P; [1 G0 z6 Q

劲语句---精华语句： + U% w5 O; L2 @5 {+ F4 d
id=request.querystring("id") & x) i: g& D7 e- D1 U* A7 n
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句，
id=request.querystring("id")就是把地址栏中的id的值读取下来，
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字， 4 I  O! p) i! h. H, J) k+ H
所以show.asp使用id=request.querystring("id")语句把数字读取下来
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"")
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&" 1 ?/ m  z7 Z) X$ N
最后<%set show=nothing%> * ]. C; d, {; ?6 {) {
# ~& j- H/ V+ o1 n9 A" X7 U! Y
好了，一个简单的论坛就这样完成了，挂在我们自己的ASP空间上去试试

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

紫藤花

新手上路

Rank: 1

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

2楼

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

好厉害啊

TOP

返回列表

5分钟编写一个ASP论坛

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

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