5分钟编写一个ASP论坛

ASP论坛, 制作源码

学ASP朋友的。。给大家分享个好东西* s5 n1 r! ?7 T& \4 U! w" o
真NB..佩服ing .....
大家在网上看到各种各样的ASP论坛是不是觉的做论坛很难呢，其实我们用简单的ASP语句就完全可以完成一个属于自己的论坛。下面我教大家如何用ASP来打造一个属于自己的论坛，自己的东西毕竟用起来爽吗。
/ |' H/ f  x! ?
同时，再复杂的论坛的写成也离不开下面的基本步骤，大家仔细看了。
- F6 g1 c* r* H- b. K/ y+ @
一、建立文件！
最简单的论坛也要有几个必要的文件，就是： ; l# j9 V3 c; [% v/ }% A# ?
( H1 S& O, K4 ?9 X
1、数据库，用来储存发表的帖子！-------命名为：bbs.mdb ' Y/ N1 s# ^' J. X
5 E8 e9 C& k, p. }4 C
2、有数据库就必须连接数据库，该文件用来连接数据库：----命名为：conn.asp + Y) t! V) W- E7 P
, K$ o, ]& E& x  i- x9 X
3、发表帖子的文件----命名为：say.asp 7 ]$ x" P. J; x3 ^
/ F% Z. s% M# r: z: u: X4 D
4、保存发表帖子内容的文件-----命名为：save.asp

5、显示帖子标题的文件------命名为：index.asp ! w6 X3 z% X; P9 H" V1 H6 K6 F
8 M0 W  G$ l$ x0 E4 Q9 M# d5 ?
6、显示帖子内容的文件，即点击标题后所进入的页面-----命名为：show.asp ( F: B; g' u; V: {, v1 B+ z

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

二、各文件的主要内容 6 F/ t+ K/ E% K, P' z& }

1、bbs.mdb

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

该表中有几个字段:

id(自动给帖子编号)，他的数据类型设为“自动编号” ) C- x% q4 K7 j- L3 o" s. C
6 V0 F+ ?6 M9 `6 J# x
name(用来储存发表的作者)，数据类型为“文本”

title(用来储存帖子的主题)，数据类型为“文本” 5 x$ O: z* y  ^

body(用来储存帖子的内容)，数据类型为“备注” # U& b0 w$ ^4 |% [: J
2 r/ J9 v0 g5 \) V& D
2、conn.asp ; v5 T- O' B' h* G+ t7 q$ Z5 ^
源代码为： ( S6 J5 w& y* t1 l
<%
Server.scriptTimeout="10"
c+server.mappath("═bbs═.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection")
conn.open connstr 9 ^- ~+ @; \+ n9 A
%>

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

3、say.asp
, i3 V0 `- U- X( B1 Q
源代码为： $ `4 u" {9 H8 k
<form method="POST" action="save.asp">
<p>大名：<input type="text" name="name" size="20"></p> ) o* }! ~5 k  ?& B  I
<p>标题：<input type="text" name="title" size="91"></p> * ~( j: W9 c& Y7 j5 _" ?
<p>内容：</p>
<p><textarea rows="11" name="body" cols="97"></textarea></p>
<p>　</p>
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p> % d& l# ^- Z, n/ g% K% V
</form> * \" Z8 j( E, M( N2 E6 {' G' l
大家应该看得懂的，这个根本就是html语法，对的，根本就是，这个只是发表的界面 ) P7 Y  T$ L3 C+ k/ @7 K- l1 T: E
不过要注意这一句<form method="POST" action="save.asp">，他把用户所填的内容发送至save.asp这个文件，下面就看save.asp这个文件吧！ $ e; T+ l( b" K

4、save.asp . E8 u" X- ~4 n  y$ j8 w

源代码： * o- _) ?$ {  D0 h8 p  [
 # G  w! J  r1 @7 U  P1 ~0 ~: |
<%name=Replace(Request.Form("name"),"'","''") 1 J( c+ i: j. h7 o/ H& Q9 c
title=Replace(Request.Form("title"),"'","''")
body=Replace(Request.Form("body"),"'","''") 2 J; j5 r) t) t* ^6 y) N% p2 {
%> 7 |% J3 {" M& w/ R
<%if name="" or title="" or body="" then%>
请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！
<%else%> 0 f" N0 n, D2 O1 G
<%set savebbs=conn.execute("insert into bbs(name,title,body)values('"&name&"','"&title&"','"&body&"')")%>   m7 I& F# _# M5 }- Z4 X
发表成功！<a href="index.asp">查看帖子</a>
<%end if
set savebbs=nothing   h9 E& g5 c# {) G. d+ u7 w" A
%>
) G! t: D3 W, t. y- i5 v
第一句：，意思是插入conn.asp文件，即与数据库进行连接！ & U) t/ z, s6 p6 s
asp语句必须用<% %>这个格式包含起来，而插入文件的语句就不用， 1 O1 I- n1 D  P
接下来几句：
name=Replace(Request.Form("name"),"'","''") 5 i* Q, f8 n' g9 o7 A# P8 c$ ]* k$ d  S
title=Replace(Request.Form("title"),"'","''")
body=Replace(Request.Form("body"),"'","''")

“Replace(Request.Form("name"),"'","''")”意思是接收表单中名为name的文本框发来的数据， & g7 R. }* R1 p3 _+ F& p
而“name=Replace(Request.Form("name"),"'","''")”则是把发来的数据储存在name变量中，
如果你这样：“abc123=Replace(Request.Form("name"),"'","''")”
就是把表单中名为name的文本框发来的数据储存在abc123变量中 + S: r" T4 k/ b4 Y
6 |/ j5 m( z0 x0 |6 X
接着：if name="" or title="" or body="" then : v# P1 F  a# I% z! Z, _
判断name、title和body变量中是否没有填写内容，即为""，如果这样，就执行这一语句： , z6 F: @& Z: i, ?5 ~8 K
“请<a href="****:history.go(-1)">后退</a>填写完整资料，你才能发表帖子！”
该语句属于html语法，大家都看得懂的！ % b( g5 C* V6 M& @; {
/ M* ]" t& B( F4 G$ c7 n" E
"<%else%>"就是说“当if……then不成立（即是说所有内容都已经填写）”，就执行语句： . a: k( |. ~# t8 p8 _( U
“<%set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")%> ' N. L, J9 L! P5 T3 K& O
发表成功！<a href="index.asp">查看帖子</a>” ; E4 T# E5 l  M7 d% C
4 F: {% j/ g; H" X: I) l* X
"set save=conn.execute"属于固定的语句，不过savebbs可以自己修改,"="后面的就难解释了： . b9 h" r, Q- H
insert into bbs(name,title,body)意思是向名为bbs的表（在建立数据库时已经建立的表） ' Q# m& b$ z  v
中的name,title,body字段插入，插入什么呢？看接下的values('"&name&"','"&title&"','"&body&"')") - J1 I6 J* H3 E6 M3 v! }4 t  i
values是“值”的意思 6 O4 F9 Q0 d+ k8 s, v
就是插入向量name,title,body，向量用格式'"&name&"'表示 ( C( H0 b2 N0 \7 O4 z4 X

最后：end if就是结束if……then
set savebbs=nothing可以说是关闭掉： / U+ J$ w: `3 }- b
set savebbs=conn.execute("insert into bbs(name,title,body) values('"&name&"','"&title&"','"&body&"')")

$ J# y- b% h) ~; w; O0 w
5、index.asp
源代码：

<b><a href="say.asp">发表帖子</a></b><br><br>
<div align="center"> 7 x! o2 y" K( d0 V# O* `( C& S1 r
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="26">
<tr>
<td width="17%"><b>作者</b></td> 3 s; X8 j, q8 x" s, b5 h0 @
<td width="83%"><b>主题</b></td>
</tr>
</table> * z# C. W/ z1 l5 m  V$ X' K  k
</center>
</div><hr size="1">
<%i=1
set showbbs=conn.execute("select*from bbs order by id desc") ( n  C+ e) k+ s! `8 x
do while not showbbs.eof 1 E  F9 ~' w6 C) O0 I% Q
%>
<div align="center"> . F/ ]/ o4 ^8 w' ^$ _
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; " bordercolor="#000000" width="100%" height="20">
<tr> / l+ u0 h- ^- `" A
<td width="17%"><%=showbbs("name")%>　</td>
<td width="83%"> $ `, v* k( U& J( n: P
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a></td> % ]& d! b9 g: B. }
</tr>
</table> , d+ |+ Q: T( }4 u  n$ B5 r6 _' a
</center> ; W4 H6 b. w; g  g5 e0 A
</div><hr size="1">
<%i=i+1
if i>50 then exit do
showbbs.movenext & H: F8 D# k+ b- E0 ^1 H* `& z; z, Z
Loop
showbbs.Close
set showbbs=nothing # }; d; [! l, x# L# k
%>   k; k; g7 J$ n9 q0 H3 D. [
% B" u) g) A  l8 S, Z* m
这个文件就不一句一句的讲了
主要讲精华部分： : [! o& `$ A- _/ o' s6 g& g) |( M
set showbbs=conn.execute("select*from bbs order by id desc") 9 E- ^) p2 v2 E# T+ R( b' A
意思是：向数据库中的bbs数据表查询数据，并以id排顺序，
还有这么一句：<%=showbbs("name")%>
就是显示数据表中的name字段的数据，这里的showbbs就是set showbbs=……中的showbbs 5 a4 T- n$ ~, X- l8 d- r
代码中的i=1和i=i+1
if i>50 then exit do - r9 }& R) r2 N! a2 o4 q
showbbs.movenext
Loop ; p+ X3 P* ~& D
showbbs.Close - l2 o  l! e  g$ W* i4 a$ _; U7 f
set showbbs=nothing % A5 G0 M- w9 A9 g% c, H8 }
, [  @6 y* [0 x- C: k3 r
这几句属于循环语句,这里就不理他，理解了也不太好用，因为他只显示50张贴子！ * l( Y, o3 {8 T* i% {: V
if i>50 then exit do中的50可以修改
但我们做论坛必须把帖子分页，又因为分页这个语句太复杂，我想就不讲了，等这一个弄懂了才来弄
还有一句很有用的：
<a href="show.asp?id=<%=showbbs("id")%>"><%=showbbs("title")%></a> ) O3 c) x9 q* I4 w" N5 ]
里面的超连接：show.asp?id=<%=showbbs("id")%>，注意：这里的超连接把帖子的id包含了，
等一下在show.asp文件中就有用了 , `& s9 q4 u- Q+ [4 b5 \2 {; x
2 e/ G/ ]( A. ~: n) X# o; x' r
5、show.asp
源代码：
9 _& K2 c" t5 m4 Q+ }6 N% H

<%id=request.querystring("id")%> 8 c8 K: X+ h4 m  g
<%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"> ) m/ B- ?' X2 v: p4 S/ u; P' f
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="180"> . w; M( ]; U1 v
<tr> 5 Z, I% v  m) o- o
<td width="21%" height="22"><b>作者：</b><%=show("name")%></td> ! X- E2 }0 k7 m# L1 ^. X! {
<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>
</table><%set show=nothing%>
, A- [) y! p' y  m! d
劲语句---精华语句： 8 h9 P# i3 X4 p7 w+ s: P( z' v
id=request.querystring("id")
在讲解index.asp文件的后面已经说到：show.asp?id=<%=showbbs("id")这一句，
id=request.querystring("id")就是把地址栏中的id的值读取下来，
因为index.asp文件中的超连接点击后，地址栏就为http://…………/show.asp?id=数字， " f9 X) K8 M" K' \, X- L2 q
所以show.asp使用id=request.querystring("id")语句把数字读取下来 3 Y$ d4 P4 z6 ^" x0 x9 d7 n) J
于是接着使用：set show=conn.execute("select*from bbs where id="&id&"")
向数据表查询id为这时读取下来的数字的帖子，即where id="&id&"
最后<%set show=nothing%> / S0 O4 k9 h0 u3 g# o8 o

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

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

返回列表

5分钟编写一个ASP论坛

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

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