2024年6月21日发(作者：)

电脑编程技巧与维护　

基于ＡＳＰ与Ａｃｃｅｓｓ技术开发ＢＢＳ系统　

程林　

（蚌埠市委党校，蚌埠２３３０００）　

摘要：在现代社会中，ＢＢＳ论坛系统因其具有即时通信、共享资源等功能而得到越来越广泛的应用。重点介绍了　

在Ｄｒｅａｍｗｅａｖｅｒ　ＭＸ软件中，如何基于ＡＳＰ语言、Ａｃｃｅｓｓ数据库技术开发ＢＢＳ论坛系统。　

关键词：论坛系统；ＡＳＰ；Ａｃｃｅｓｓ；Ｄｒｅａｍｗｅａｖｅｒ　ＭＸ　

Ｄｅｖｅｌｏｐｍｅｎｔ　ｏｆ　ＢＢＳ　Ｓｙｓｔｅｍ　Ｂａｓｅｄ　ｏｎ　ＡＳＰ　ａｎｄ　Ａｃｃｅｓｓ　Ｔｅｃｈｎｏｌｏｇｙ　

ＣＨＥＮＧ　ＬｉＩＩ　

（Ｂｅｎｇｂｕ　Ｍｕｎｉｃｉｐａｌ　Ｃｏｍｍｉｔｔｅｅ　Ｐａｒｔｙ　Ｓｃｈｏｏｌ，Ｂｅｎｇｂｕ　２３３０００）　

Ａｂｓｔｒａｃｔ：Ｉｎ　ｍｏｄｅ／＇ＩＩ　ｓｏｃｉｅｔｙ，ＢＢＳ　ｆｏｒｕｍ　ｓｙｓｔｅｍ　ａｒｅ　ａｐｐｌｉｅｄ　ｗｉｄｅｌｙ　ｉｎ　ｍａｎｙ　ｆｉｅｌｄｓ　ｂｅｃａｕｓｅ　ｏｆ　ｉｔｓ　ｒｏｌｅ　ｉｎ　ｉｎｓｔａｎｔ　ｃｏｍｍｕｎｉｃａ－　

ｔｉｏｎ　ａｎｄ　ｒｅｓｏｕｒｃｅ　ｓｈａｒｉｎｇ．Ｉｎ　ｔｈｉｓ　ｐａｐｅｒ，ｗｅ　ｆｏｃｕｓ　ｏｎ　ｈｏｗ　ｔｏ　ｄｅｖｅｌｏｐ　ｆｏｒｕｍ　ｓｙｓｔｅｍ　ｂａｓｅｄ　ｏｎ　ＡＳＰ　ａｎｄ　Ａｃｃｅｓｓ　ｔｅｃｈｎｏｌｏｇｙ　ｗｉｔｈ　

Ｄｒｅａｍｗｅａｖｅｒ　ＭＸ．　

Ｋｅｙ　ｗｏｒｄｓ：Ｆｏｕｒｕｍ　ｓｙｓｔｅｍ；ＡＳＰ；Ａｃｃｅｓｓ；Ｄｒｅａｍｗｅａｖｅｒ　ＭＸ　

１概述　

（２）发表文章。　

１．１　ＡＳＰ　

（３）管理员后台管理功能。　

Ｍｉｃｒｏｓｏｆｔ　Ａｃｔｉｖｅ　Ｓｅｒｖｅｒ　Ｐａｇｅｓ即所谓的ＡＳＰ，是美国微软　

（４）发表文章。　

公司开发的服务器端脚本环境。ＡＳＰ内含于ＩＩｓ之中，方便结　

（５）回复文章。　

合ＨＴＭＬ网页、ＡＳＰ指令和ＡｃｔｉｖｅＸ元件建立动态、交互且　

（６）显示在线用户ＩＰ地址。　

高效的Ｗｅｂ服务器应用程序。有了ＡＳＰ就不必担心客户的浏　

３　Ｄｒｅａｍｗｅａｖｅｒ　ＭＸ中设置开发站点　

览器是否能运行用户所编写的代码，因为所有的程序都将在　

３．１在站点菜单中点击管理站点　

服务器端执行，包括所有嵌在普通ＨＴＭＬ中的脚本程序。当　

如图１所示。　

程序执行完毕后，服务器仅将执行的结果返回给客户浏览器，　

这样也就大大地减轻了客户端浏览器负担，从而提高了网络　

之间交互的速度。　

１．２　Ａｃｃｅｓｓ数据库　

Ａｃｃｅｓｓ是微软（Ｍｉｃｒｏｓｏｆｔ）公司于１９９４年推出的一种基　

于Ｗｉｎｄｏｗｓ的桌面关系数据库管理系统（ＲＤＢＭＳ），具有界面　

友好、易学易用、开发简单、接口灵活等特点。Ａｃｃｅｓｓ可以　

将程序应用于网络，并与网络上的动态数据相联接。利用数　

据库访问页对象生成ＨＴＭＬ文件，轻松构建Ｉｎｔｅｍｅｔ／Ｉｎｔｒａｎｅｔ　

的应用。Ａｃｃｅｓｓ数据库目前最广泛的应用是配合微软自己的　

ＡＳＰ程序用在建立互联网网站上面。　

１．３　Ｄｒｅａｍｗｅａｖｅｒ　ＭＸ２００４　

图１点击站点按钮　

它曾经是唯一可以对Ｍｉｃｒｏｓｏｆｔ　Ａｃｔｉｖｅ　Ｓｅｒｖｅｒ　Ｐａｇｅｓ（ＡＳＰ）、　

３．２设置服务器　

Ｓｕｎ　Ｍｉｃｍｓｙｓｔｅｍｓ　ＪａｖａＳｅｒｖｅｒ　Ｐａｇｅｓ（ｊｓＰ）以及Ａｌｌａｉｒｅ　ＣｏｌｄＦｕｓｉｏｎ　

在弹出的管理站点页面中选择新建一ＦｒＰ和ＲＤＳ服务器，　

Ｍａｒｋｕｐ　ｌａｎｇｕａｇｅ　ｆＣＦＭＬ）等不同标准的编码进行编辑处理，　

出现配置服务器的面板。在这个面板中，设置好服务器的名　

并提供完美解决方案的软件。　

称、服务器的ｆｌｐ地址、服务器的登录名和密码，基本就可以　

２系统功能分析　

了。这样，就可以在Ｄｒｅａｍｗｅａｖｅｒ　ＭＸ２００４继续开发了，如图　

本例是一个比较简单的ＢＢＳ系统，能够实现目前比较流　

２、图３所示。　

行的ＢＢＳ的大部分功能，大致具备如下功能：　

４数据库设计　

（１）新用户注册功能。　

本ＢＢＳ的数据库系统一共有３个Ａｃｃｅｓｓ表，数据库名称　

收稿日期：２０１０—０５—１０　

为“ｂｂｓ”。分别为ｕｓｅｒｓ表，存储注册用户资料；ｆｏｒｕｍ表，存　

—

８０一　

ＮＥＴＷ０ＲＫ　ＡＮＤ　Ｃ０ＭＭＵＮＩＣＡ　ｎＯＮ　

储论坛分类名称以及版主等各种信息资料；ｂｂｓ表，存储注册　

用户所发帖子等各种信息。　

＜ｂｏｄｙ＞　

网络与通信　

＜ｆｏｒｍ　ｎａｍｅ＝”ｆｏｒｍｌ”ｍｅｔｈｏｄ＝”ｐｏｓｔ”ａｃｔｉｏｎ＝”ｌｏｇｉｎ．　

ａｓｐ’’ｏｎＳｕｂｍｉｔ＝”Ｊａｖａｓｃｒｉｐｔ：ｒｅｔｕｒｎ　ｃｈｅｃｋ

Ｎｕｌｌ　０：”＞　

＜ｔａｂｌｅ　ｂｏｒｄｅｒ＝”０”　ｃｅｌｌｐａｄｄｉｎｇ＝”０”　ｂｇｃｏｌｏｒ＝”　

＃００００ＦＦ”ｃｅＨｓｐａｃｉｎｇ＝”ｌ”ｓｃｙｌｅ＝”ｂｏｒｄｅｒ－ｃｏｌｌａｐｓｅ：ｃｏｌ—　

ｌａｐｓｅ”ｂｏｒｄｅｒｃｏｌｏｒ＝”栅下Ｆ】　下”ｗｉｄｔｈ＝”８００”ａｌｉｇｎ＝”　

ｃｅｎｔｅｒ”＞　

＜ｔｒ　ｂｇｃｏｌｏｒ＝”＃Ｅ１Ｆ３Ｆ４’’ｈｅｉｇｈｔ＝”４０’’＞　

＜ｔｄ　ｖａｌｉｇｎ＝”ｍｉｄｄｌｅ”ｂｇｃｏｌｏｒ＝－”＃ＦＦＦＦＦＦ”＞　

＜％Ｉｆ　Ｓｅｓｓｉｏｎ（”ｕｓｅｒ＿ｉｄ”）＜＞””Ｔｈｅｎ％＞　

已登录用户＜ｉｎｐｕｔ　ｔｙｐｅ＝”ｔｅｘｔ”ｎａｍｅ＝”ＵＳ—　

图２点击管理站点按钮　

图３如何配置服务器　

５　系统模块设计　

如图４所示。　

图４　

６功能模块创建　

６．１　ｉｎｄｅｘ．ａｓｐ　

＜！一－＃ｉｎｃｌｕｄｅ　ｆｉｌｅ＝”ｃｏｎｎ．ａｓｐ”一一＞　

＜！一—衔ｎｃｌｕｄｅ　ｆｉｌｅ＝”ｔｏｐ．ａｓｐ”一一＞　

ｅｒｉｄ”ｓｉｚｅ＝１３　ｃｌａｓｓ＝”ｉｎｐｕｔ”ｖａｌｕｅ＝”＜％＝Ｓｅｓｓｉｏｎ　

ｕｓｅｒ

＿

ｉｄ”１％＞”ｄｉｓａｂｌｅｄ＞　

＜ａ　ｈｒｅｆ＝”ｅｘｉｔ．ａｓｐ”＞注销＜／ａ＞＆ｎｂｓｐ；＆ｎｂｓｐ；　

＜ａ　ｈｒｅｆ＝”ｕｐｄａｔｅｐｗｄ．ａｓｐ”＞修改密码＜／ａ＞　

＆ｎｂｓｐ；＆ｎｂｓｐ；　

＜ａ　ｈｒｅｆ＝”ｕｐｄａｔｅ．ａｓｐ”＞修改个人信息＜／ａ＞　

＜％Ｅｌｓｅ％＞　

用户名＜ｉｎｐｕｔ　ｔｙｐｅ＝”ｔｅｘｔ”ｎａｍｅ＝”ｕｓｅｒ＿ｉｄ”　

ｓｉｚｅ＝１３　ｃｌａｓｓ＝”ｉｎｐｕｔ”＞　

密码＜ｉｎｐｕｔ　ｔｙｐｅ＝”ＰａｓｓＷｏｒｄ”ｎａｍｅ＝”ｐａｓｓ—　

ｗｏｒｄ”ｓｉｚｅ＝１３　ｃｌａｓｓ＝”ｉｎｐｕｔ”＞　

＜ｉｎｐｕｔ　ｃｌａｓｓ＝”ｉｎｐｕｔｂｕｔｔｏｎ”ｔｙｐｅ＝”ｓｕｂｍｉｔ”　

ｖａｌｕｅ＝”登录”ｎａｍｅ＝”Ｓｕｂｍｉｔ”＞　

＜ｉｎｐｕｔ　ｃｌａｓｓ＝”ｉｎｐｕｔｂｕｔｔｏｎ”ｏｎＣｌｉｃｋ＝”ｗｉｎ—　

ｄｏｗ．ｏｐｅｎ（＂ｒｅｇｉｓｔｅｒ．ａｓｐ　，　一ｓｅｌ　”ｔｙｐｅ＝”ｂｕｔｔｏｎ”ｖａｌｕｅ＝”　

注册”ｎａｍｅ＝”ｒｅｇｉｓｔｅｒ”＞　

＜％Ｅｎｄ　Ｉｆ％＞＜／ｔｄ＞　

＜／ｔｒ＞　

＜／ｔａｂｌｅ＞　

＜／ｆｏｒｍ＞　‘　

＜ｔａｂｌｅ　ｗｉｄｔｈ＝”７６０”ｈｅｉｇｈｔ＝”３”ｂｏｒｄｅｒ＝”０”ａｌｉｇｎ＝’。　

ｃｅｎｔｅｒ”ｃｅｌｌｐａｄｄｉｎｇ＝”０”ｃｅｌｌｓｐａｃｉｎｇ＝’’０”＞　

＜廿＞　

＜ｔｄ＞＜／ｔｄ＞　

＜／ｔｒ＞　

／＜ｔａｂｌｅ＞　

＜ｔａｂｌｅ　ｂｏｒｄｅｒ＝”０”　ｃｅｌｌｐａｄｄｉｎｇ＝’’０”　ｂｇｃｏｌｏｒ＝”　

＃００００ＦＦ”ｃｅｌｌｓｐａｃｉｎｇ＝”ｌ”ｓｔｙｌｅ＝”ｂｏｒｄｅｒ－ｃｏｌｌａｐｓｅ：ｃｏｌ—　

ｌａｐｓｅ。’ｂｏｒｄｅｒｃｏｌｏｒ＝”＃ＦＦＦＦＦＦ”ｗｉｄｔｈ＝”８００”ａｌｉｇｎ＝”　

ｃｅｎｔｅｒ”＞　

＜ｔｒ　ｂｇｃｏｌｏｒ＝－”＃Ｅ１Ｆ３Ｆ４”ｈｅｉｇｈｔ＝”４０”＞　

＜ｔｄ　ｖａｌｉｇｎ＝”ｍｉｄｄｌｅ”　ｂｇｃｏｌｏｒ＝－”＃ＦＦＦＦＦＦ”＞　

＜％　

Ｉｆ　Ｓｅｓｓｉｏｎ（”ｕｓｅｒ＿ｉｄ”）＝…’Ｔｈｅｎ　

Ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ”过客”＆”＆ｎｂｓｐ；＆ｎｂｓｐ；”　

Ｅｌｓｅ　

Ｒｅｓｐｏｎｓｅ．Ｗｒｉｔｅ　Ｓｅｓｓｉｏｎ（”ｕｓｅｒ＿ｉｄ”）　＆”　

＆ｎｂｓｐ；＆ｎｂｓｐ；’’　

ＥｎｄＩｆ　

Ｒｅｓｐｏｎｓｅ．ｗｎｔｅ　Ｒｅｑｕｅｓｔ．ＳｅｒｖｅｒＶａｒｉａｂｌｅｓ　Ｃ　ＲＥ—　

ＭＯＴＥ

＿

ＡＤＤＲ”）　

％＞＜／ｔｄ＞　

＜／ｔｒ＞　

／＜ｔａｂｌｅ＞　

＜／ｂｏｄｙ＞　

＜／ｈｔｍｌ＞　

８１　

电脑编程技巧与维护　

＜！—　ｎｃｌｕｄｅ　ｆｉｌｅ＝”ｅｎｄ．ａｓｐ”一一＞　ｗｉｄｔｈ＝”０”ｍａｒｇｉｎｈｅｉｇｈｔ：”０”ｆｒａｍｅｂｏｒｄｅｒ＝”０”　

６．２后台管理ａｄｍｉｎ　ｉｎｄｅｘ．ａｓｐ　

ｓｃｒｏｌｌｉｎｇ＝”ｙｅｓ”＞　

＜％　

＜／ｆｒａｍｅｓｅｔ＞　

这是安全模块，如果客户不是管理员用户，立即重定向　

＜ｎｏｆｒａｍｅｓ＞　

到首页。　

＜ｂｏｄｙ＞　

这样可以防止某些客户直接访问ａｄｍｉｎ下面的文件。　

＜／ｂｏｄｙ＞　

Ｉｆ　Ｓｅｓｓｉｏｎ（”ｕｓｅｒ＿ｔｙｐｅ”）＜＞”Ａ”Ｔｈｅｎ　

＜／ｈｔｍｌ＞　

Ｒｅｓｐｏｎｓｅ．Ｒｅｄｉｒｅｃｔ”ｆｉｎｄｅｘ．ａｓｐ”　’Ａ”表示是管理员　

６．３数据库连接页面ｃｏｒｍ．ａｓｐ　

Ｅｎｄ　Ｉｆ　

＜％　

％＞　

Ｄｉｍ　ｄｂ　

＜ｈｔｍｌ＞　

ｓｅｔ　ｄｂ＝ｓｅｒｖｅｒ．ｃｒｅａｔｅｏｂｊｅｃｔ　Ｃ　Ａｄｏｄｂ．Ｃｏｎｎｅｃｔｉｏｎ”）　

＜ｈｅａｄ＞　

ｄｂ．ｏｐｅｎ”Ｄｂｑ＝”＆ｓｅｒｖｅｒ．ｍａｐｐａｔｈ　Ｃ／ｄａｔａ／ｂｂｓ．ｍｄｂ”、＆　

＜ｍｅｔａ　ｈｔｔｐ－－ｅｑｕｉｖ＝”Ｃｏｎｔｅｎｔ—Ｔｙｐｅ”ｃｏｎｔｅｎｔ＝”ｔｅｘｔ／ｈｔｍｌ；　

”；Ｄｒｉｖｅｒ－－｛Ｍｉｃｒｏｓｏｆｔ　Ａｃｃｅｓｓ　Ｄｒｉｖｅｒ（　．ｍｄｂ）１”　

ｃｈａｒｓｅｔ＝ｇｂ２３１２”，＞　

％＞　

＜ｔｉｌｆｅ＞￣台管理＜／ｉｒｌｆｅ＞　

７　结语　

＜／ｈｅａｄ＞　

＜ｆｒａｍｅｓｅｔ　ｌＯＷＳ＝”９３．　’’ｆｒａｍｅｂｏｒｄｅｒ＝”ｎｏ”ｂｏｒｄｅｒ＝”０”　

其他的ＡＳＰ文件就不一一列出了。以上列出的３个ＡＳＰ　

ｆｒａｍｅｓｐａｃｉｎｇ＝”０”＞　

文件是本ＢＢＳ系统的核心文件，其他功能读者可以参考相关　

＜ｆｒａｍｅ　ｓｒｃ＝”ｔｏｐ．ａｓｐ”ｎｏｒｅｓｉｚｅ＝”ｎｏｒｅｓｉｚｅ”ｆｒａｍｅｂｏｒ－　

文献自己编写。　

ｄｅｒ＝－”０”ｎａｌｎｅ＝”ｔｏｐ”ｍａｒｇｉｎｗｉｄｔｈ＝”０”ｍａｒｇｉｎ－　

ｈｅｉｇｈｔ＝”０’’ｓｃｒｏｌｌｉｎｇ＝”ｎｏ”＞　

作者简介　

＜ｆｒａｍｅｓｅｔ　ｏｒｗｓ＝”　”ｃｏｌｓ＝”１８０．　”ｉｄ＝’’ｆｒａｍｅ”＞　

程林，男（１９７７一），助教，研究方向：网络编程、路由器配　

＜ｆｒａｍｅ　ｓｉｃ＝”ａｄｍｉｎｌｅｆｉ．ａｓｐ”　ｎａｌｎｅ＝”ｍｅｎｕ”　

ｓｃｒｏｌｌｉｎｇ＝”ｙｅｓ”ｍａｒｇｉｎｗｉｄｔｈ＝”０”ｍａｒｇｉｎｈｅｉｇｈｔ＝”０”＞　

置开发。　

＜ｆｒａｍｅ　ｓｒｃ＝”ａｄｍＡｎ

＿

ｒｉｇｈｔ．ａｓｐ’’ｎａｌｎｅ＝”ｍａｉｎ”ｍａｒｇｉｎ－　

（上接第３８页）　

格不变，而丁肥料的价格只有微小的变化时，上述最优配方　

表４灵敏度报告　

保持不变。这是纯氮肥为３２公斤、纯磷肥为２４公斤、纯钾　

可变单元格　

肥为３．５公斤。如果甲、乙、丙肥料中的任何一种肥料的价格　

单元格　名字　终值　递减梯度　

发生了变化，最优配方均会发生变化，这时需要重新运用Ｅｘ—　

￥Ｄ￥３　田　２５．０２５０８２３９　Ｏ　

ｅｅｌ软件求解。而丁的价格只有微小的变化的时候并不影响最　

￥Ｅ￥３　乙　１０４．１６４１５８４　Ｏ　

优配方，但丁的价格变化较大时，仍然要重新求最优解。　

￥Ｆ￥３　丙　１　１３．７４３７２９４　Ｏ　

￥Ｇ￥３　丁　Ｏ　０．００５ＯＯ０ｏ１８　

表３　

田　乙　丙　丁　

约束　

０．０４　０．１５　０．１　０．１３　

终　拉格朗日　

单元格　名字　值　乘数　

２５．０２５０　１０４．１６４２　１１３．７４３　０　

￥Ｃ￥５　氮　３２　０．５　

８２３９　７２９４　

￥Ｃ￥６　磷　２４　０．５　

￥Ｃ￥７　钾　３．５０３５　１　１５３５　Ｏ　

氮　３２　Ｏ．０３　０＿３　Ｏ　０．１５　

磷　２４　０．０５　Ｏ　０．２　Ｏ．１　

参考文献　

钾　３．５０３５１　０．１４　０　０　０．０７　

【１】Ｓ．Ｃｈｒｉｓｔｉａｎ　Ａｌｂｒｉｇｈｔ，Ｗａｙｎｅ　Ｌ．Ｗｉｎｓｔｏｎ．Ｓｐｒｅａｄｓｈｅｅｔ　Ｍｏｄｅｌ～　

ｌ５３５　

ｉｎｇ　ａｎｄ　Ａｐｐｌｉｃａｔｉｏｎ［Ｍ］．清华大学出版社，２００６．　

成本　２８　

【２】鲍祥霖．运筹学［Ｍ］．机械工业出版社，２００５．　

【３】京华孤客．掀开Ｅｘｃｅｌ　观划求解》的神秘面纱．ＰＤＦ文档　

注意，在“加载宏”对话框中可能没有“规则求解”宏，　

［ＯＬ］，２００８．　

这可能是Ｏｆｉｆｃｅ　２００３软件，可以查看是否有文件ＳＯＶＥＲ。文　

［４】晓涛工作室．帮你学Ｅｘｃｅｌ函数、图表与数据分析［Ｍ］．　

件ＳＯＶＥＲ的目录一般是：……＼Ｍｉｃｒｏｓｏｆｔ　ｏｆｉｆｃｅ￣Ｌｉ—　

机械工业出版社，２００６．　

ｂｒａｒｙｋＳｏｌｖｅｒｋｓｏｌｖｅｒ。如果没有，可复制该文件到相应的文件夹　

中。之后在“加载宏”对话框中一定有“规则求解”宏，进　

作者简介　

行加载即可。　

何锦源，男，讲师，研究方向：数据库编程。　

一

８２一