本bbs的显示页面不理想，那为该今后可发给我！email：hahuwe@sina.com.另副数据库建立代码！
bbs数据库代码如下：
<%
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("bbs.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
sql="create table bbs (id text(4) ,authorname text(24),subject text(80),content memo,"
sql=sql&"adddate date,visitnum long,answernum text(4),addtime time,topnum text(4))"
conn.execute(sql)
%>

author数据库如下：
<%
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath(author.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

sql="create table author (authorname text(24),pawword text(20))"
conn.execute(sql)
%>