用asp建立BBS站
第一步:
首先建立一个数据库用来存放留言,可以用acess的数据库,数据字段设置的典型
为:ID,NAME,EMAIL,TITLE,CONN,ADDR等字段.在acess中的id字段为自动加'1'的字段.例如:本人的bbs站
的设置为:acess数据库,数据库名为bbs,其中一个数据表为bbs,数据表的字段组成如上.接下来就要在服
务器上设置DNS=bbs-lh并将数据库指向acess的数据库bbs所在目录和数据库名(bbs.mdb).即完成第一步
的工作.
第二步:
第二步可以先建立bbs站的显示,设完成显示工作的asp脚本为test.asp,test.asp的程序代码如下:
<%
set conn = server.createobject("adodb.connection")
conn.open "bbs-lh"
set rs = conn.execute("select date,name,title,addr,id from bbs order by id
desc")
%>
<p>
</p>
<table border=4 width="760" bgcolor="#c0c0c0"
bordercolor="#FFFFFF">
<tr>
<% for i=0 to rs.fields.count-3%>
<td <%if rs(i).name="date" then response.write"width=10%" else
if rs(i).name="name" then response.write"width=5%" end if end
if%>><% = rs(i).name %> </td>
<%next%>
</tr>
<%do while not rs.eof%>
<tr>
<% for i=0 to rs.fields.count-3%>
<td valign=top><% if RS(i).name="title" then
response.write"<a
href=show.asp?id="&rs("id")&">"&rs(i)&"</a>"
response.write "<B> from </B>"
response.write "<font color=#FFFF00> "&rs("addr")&"
</font>"
else
response.write rs(i)
end if
%></td>
<%next%>
</tr>
<%rs.movenext
loop
rs.close
conn.close
%>
</table>
它所完成的工作为:将所有的留言的标题和作者,时间,留言者的ip地址以表格的形式显示在你的浏览器
上,以便进行连接和阅读.
第三步:
用来显示留言的具体内容,执行脚本设为show.asp,其代码如下:
<%
id = Request.QueryString("id")
If id = "" Then
Response.Redirect("test.asp")
End If
%>
<%
set conn = server.createobject("adodb.connection")
conn.open "bbs-lh"
set rs = conn.execute("select name,title,email,mem from bbs where
id="&id&"")
%>
<center>
<% = rs("name") %>
<p>
</p>
<% = rs("title") %>
<p>
</p>
<% = rs("email") %>
<p>
</p>
<% = rs("mem") %>
</center>
第四步:
如何进行留言填写的asp脚本设为subbs.asp,代码如下:
<%
set conn = server.createobject("adodb.connection")
conn.open "bbs-lh"
sql="insert into bbs(name,email,title,mem,addr)
values('"&request.form("t1")&"','"&request.form("t2")&"','"&request.form("t3")&"','"&request.form("s1")&"','"&request.servervariables("remote_addr")&"')"
set rs = conn.execute(sql)
Response.Redirect("test.asp")
%>
第五步:
设计留言簿的书写介面guest.htm,html的代码如下:(或为guest.asp)
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;
charset=gb2312">
<title>bbs</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>
<body background="Soapston.jpg">
<p align="center"><strong><big><big><font
color="#0000FF">发表文章</font></big></big></strong></p>
<p> </p>
<form action="subbs.asp" method="POST">
<!--webbot bot="SaveResults" startspan
U-File="_private/form_results.txt"
S-Format="TEXT/CSV" S-Label-Fields="TRUE" --><!--webbot
bot="SaveResults" endspan --><p><font
color="#0000FF">您的姓名:</font><font
color="#FF0000"><input type="text" name="T1"
size="20"></font></p>
<p><font color="#0000FF">您的email</font><font
color="#FF0000"><input type="text"
name="T2" size="23"></font></p>
<p><font color="#0000FF">文章标题:</font><font
color="#FF0000"><input type="text"
name="T3" size="23"></font></p>
<p><font color="#0000FF">文章内容:</font></p>
<p><textarea rows="7" name="S1"
cols="41"></textarea></p>
<p><font color="#FF0000"> 注:在您的文章内容和文章标题中,请不要用"<"">"的</font></p>
<p><font color="#FF0000">符号,谢谢合作.</font></p>
<p> <input
type="submit" value="发送" name="action">
<input type="reset" value="清除"
name="reset"></p>
</form>
<p> </p>
</body>
</html>
这样一个bbs站的基本结构就已经完成.在NT服务器上就可以完成留言和查询留言的工作.
最后,对于该模式下的bbs站还可以进行线上维护,对于有不适当的留言进行删除的工作,这个留言簿还
有一此细节的东西没有完善,如:对留言的格式的前期检查,及为防止有的留言者将标题写成很大的字,即
防止在特定的栏有"<"或">"的出现.这些内容本人将下次推出.
Next-->page>>回上一页,看更多资料