【全套毕业设计毕业论文基于ASP技术的论坛】-中国学网-中国IT综合门户网站
&&|&&责编：崔宁
本文由Blank_Fly贡献
基于 ASP 技术的论坛的设计与实现 使用 ASP 摘 要: 使用 ASP 语言和数据库技术设计的一个论坛软件。 内置的 SELECT、 INSERT INTO、UPDATE 、DELETE、EXECUTE 等指令 和微软 数据库软件技术实现论坛的各种 功能。Asp 的优点有 安全性与减轻客户端浏览器的负担，提高交互速度， SQL 的优点 在于 与其他网络用户共享数据库。 关键词：ASP 动态服务器页面 VB 脚本语言 HTML 超文本标记语言 目 录 引言……………………………………………………………………3 第一章 概述 1．1 开发背景………………………………………………………3 1．2 系统说 明………………………………………………………4 第二章 主要技术和分析 2．1 引 言 … … … … … … … … … … … … … … … … … … … … … … … 5 2 ． 2ASP 技 术 综 述 … … … … … … … … … … … … … … … … … … … 5 2 ． 3Dreamweaver MX2004 应 用……………………………………7 第三章 系统需求分析 3．1 系统运行环 境 …… …… …… …… …… …… …… …… …… … 8 3． 2 系 统功 能需 求…………………………………………………8 第四章 系统概要设计 4． 模块划分及各模 1 块 功 能 介 绍 … … … … … … … … … … … … … 9 4 ． 2 系 统 数 据 库 设 计………………………………………………9 第五章 详细设计与实 现 … … … … … … … … … … … … … … … … … 11 结 纶 … … … … … … … … … … … … … … … … … … … … … … … … … … 20 参 考 文 献…………………………………………………………………………20
引 言 随着Ｉｎｔｅｒｎｅｔ的飞速发展，机关、学校、公司、企业 都已经或正在建立自己的网站 和论坛，而一个真正的、完善的论坛 离不开Ｗｅｂ数据库技术,Ｗｅｂ数据库技术可以实现 浏览器与数据 库的双向交互。Ｗｅｂ技术和数据库相互融合领域的研究已成为热 点方向之 一,Ｗｅｂ数据库技术使Ｗｅｂ技术和数据库技术都发生了 质的变化:Ｗｅｂ网页由静态网 页发展成了动态网页,数据库实现了 开发环境和应用环境的分离,用户端可以用相对统一的 浏览器实现跨 平台和多媒体服务。 第一章 1.1 开发背景 为了提高自己对计算机专业知识 的运用水平， 并对三年来自己 所学的计算机知识进行好好的回顾和实践运用， 同时利用开展 毕业 的实习和开展毕业设计，检验自己学习中存在的不足，达到加强对 网络和数据库等的 学习。 本论坛的设计是结合现在流行的各种网上 技术和论坛的普及， 也是为适应企业的信息 化管理基于 ASP 技术而 设计的论坛。本论坛是
为了用户进行网上交流和开展网上对话，也 有利于成员之间利用互联技术，开展学习、交流、网上交友等活动。 本论坛的建立将发挥桥 梁与扭带的作用大大的方便了用户之间信息 的沟通。 网络论坛，也被称为异步会议系统、 布告板， 是网络上除了 E-mail 之外， 最为普遍的在线讨论系统， 它来源于早期 Internet 发 展的 BBS 系统 （Bulletin Board System） 随着 Internet 的发展， ， 逐步演变成现在 的形式——基于 Web 的 BBS 系统。 在网络教学中，论坛作为其中一个必不可少的交流平台， 正广泛地被应用，是网络 教学系统的有机组成部分。 ASP 应用程序易于使用、修改，并且
是通过服务器端解释执行， 无需编译， 能够对源代码进行保密， 因而很多网站都运用 ASP 来 架 构。 论坛是一个通过国际互联信息网络进行发布信息和实现多人通 讯的一个系统。 在这 个信息极其发达的时代， 我们目前可以用来发 布信息和进行相互交流的方法也有非常多， 比 如文件、 通知、 电报、 电话、 电子邮件、 OICQ 等等通讯手段， 但是这些或者不方便或者有 局 限性或者有费用的问题， 比如一个红头文件从下发到被人阅览这 期间要通过好多手续和时间， 那么一个需要几个人一起讨论的会议 就非的有一定的时间， 和一定的地点， 聚集在一起才能 举行， 一般 情况下都需要花费大量的人力物力。 非但费时费力费钱而且效果也 不一定很好。 电子邮件则不是一种及时联系的手段， 需要一定时间 才能到达， 只能作为一种辅助交流的手 段。 而论坛就能很好的解决 这个问题， 厂团委发一个通知或文件不需要专人送的各个岗位和 车 间，我们也不需要聚集在同一地点，各自在不同的地点就可以在论 坛中发言，大家互相 讨论。 而且好的论坛在讨论时还有各种表情符 号等可以加强我们的表达。 另外还有费用低廉， 信息交流速度快等优点， 青年论坛的建立将会为台电成为国际一流火力发电厂作出自 己的贡 献。 1.2 系统说明 本论坛设计方案主要是利用局域网原理， 在企业网络服务器上搭 建一个 网站， 建立网页论坛平台， 浏览者可通过网络， 在自己的终 端上利用 IE 浏览器访问该网站， 浏览相关信息，并可以注册、注销 个人信息，发表、编辑、修改、删除个人观点。 论坛着 力构建服务功能强大、信息交流便捷、管理模式科学的青 年活动、交流的新型平台。成为用 户思想交流的家园， 文化活动的 基地， 娱乐联欢的场所， 努力为用户服务。 第二章 2． 引 1 言 ． 实现动态网页的手段很多,像传统的ＣＧＩ程序存在执行效率 低、移植性较差及开发 效率低的缺点
。而目前十分流行的访问网站 数据库是用ＡＳＰ方式,同以往的Ｗｅｂ开发工 具相比具有灵活易 用、 强大的可扩充性、 无需编译及独立于浏览器等优点,而且有效地 结合 了ＨＴＭＬ语言、 脚本语言,并可以通过Ａｃｔｉｖｅ服务器组 件来扩充服务器功能 2.2ASP 2.2ASP 技术综述 2.2.1ASP 技术简介 Microsoft Active Server Pages 即我们所称的 ASP ， 其实是一套微软 开发的服务器端脚本环境， ASP 内含于 IIS 3.0 和 4.0 之中 , 通 过 ASP 我们可以结合 HTML 网页、ASP 指令和 ActiveX 元件建 立动态、 交互且高效的 WEB 服 务器应用程序。有了 ASP 你就不必 担心客户的浏览器是否能运行你所编写的代码，因为所 有的程序都 将在服务器端执行，包括所有嵌在普通 HTML 中的脚本程序。当程 序执行完毕 后，服务器仅将执行的结果返回给客户浏览器，这样也 就减轻了客户端浏览器的负担，大大 提高了交互的速 2.2.2ＡＳＰ技术特点 ＡＳＰ技术特点 （1） 完全与 HTML 文件融合在一起； （2） 容易 创建， 不需要其它编译、 链接程序；（3） 面向对象的并通过 ActiveX Server 对象可扩展。 2.2.3ASP 与数据库 在实际应用中（如论坛发贴、删贴……） ，需要保存、删除、修 改的 数据很多， 利用数据库来管理这些数据， 可以很方便的查询和 更新。 数据库有很多种， Fox 数据库(.dbf)、 如： SQL 数据库(.mdb)、 Informix、Oracle 和 SQL Server 等等，在这 里，我采用 Microsoft SQL 作为后台数据库。 2．3Dreamweaver MX2004 应用 ． Macromedia Dreamweaver MX 2004 是一款专业的 HTML 编辑器， 用于对 Web 站点、 Web 页 和 Web 应用程序进行设计、 编码和开发。 无论您愿意享受手工编写 HTML 代码时的驾驭感 还是偏爱在可视化 编辑环境中工作，Dreamweaver 都会为您提供有用的工具，使您拥 有更 加完美的 Web 创作体验。 利用 Dreamweaver 中的可视化编辑功 能，您可以快速地创建页 面而无需编写任何代码。 您可以查看所有 站点元素或资源并将它们从易于使用的面板直接拖 到文档中。 您可 以在 MacromediaFireworks 或其他图形应用程序中创建和编辑图像， 然后 将它们直接导入 Dreamweaver，或者添加 Macromedia Flash 对 象，从而优化您的开发工作 流程。Dreamweaver 还提供了功能全面 的编码环境，其中包括代码编辑工具（例如代码颜色 和标签完成） ； 有关 HTML、 层叠样式表(CSS)、 JavaScript、 ColdFusion 标记语言 (CFML)、 Microsoft Active Server Pages (ASP) 和 JavaServer Pages (JSP) 的 参 考 资 料 。
Macromedia 的可自由导入导出 HTML 技术可导 入您手工编码的 HTML 文档而不会重新设置 代码的格式， 您可以随 后用您首选的格式设置样式来重新设置代码的格式。 D
reamweaver 还 使您可以使用服务器技术（例如 CFML、ASP.NET、ASP、JSP 和 PHP）生成由动态数据库支持 的 Web 应用程序。Dreamweaver 可以 完全自定义。您可以创建您自己的对象和命令，修改 快 捷 键 ， 甚 至 编 写 JavaScript 代 码 ， 用 新 的 行 为 、 属 性 检 查 器 和 站 点 报 告 来 扩 展 Dreamweaver 的功能。 第三章 3.1 系统运行环境： 系统运行环境： 服务器端： 系统需求分析 1、WINDWOS2000 SERVER 2、IIS5.0 客户端： 1、WINDOWS98 及以上版本 2、IE5.0 及以上 版本 3.2 系统功能需求： 系统功能需求： 管理端：对版块，栏目，贴子，会员信息等进行 管理。 客户端：注册，查询，发表回复贴子。 第四章 系统概要设计 4.1 模块划分及各模块功能介绍： 模块划分及各模块功能介绍： 论坛管理 添加、删除论坛版面；修改斑 竹信息 各版斑竹登录各自版块进行贴 子管理，具 有删贴功能 本论坛简介 版面管理 关于论坛 团委公告 论坛版面 时事新闻 军事天地 发布团委的日常通知及站务公告 讨论一些当前热点的时事新闻 交流一些与军事有关问题论 坛贴子查询 可以按贴子主题或者发贴者为条件查询相关的贴子 更改个人密码 用户信息 修改个人信息 查询个人信息 积分排行榜 可以查看个人的发贴情况 4.2 系统数据库设计： 系统数据库设计： 本论坛采用 SQL 作为后台数据系统。数据库 BOARD 下 面其有 4 个表。分别为：USER、BOARD、ADMIN、BBS1 字段名 字段类型 字段说明 用户号 用户名 EMAIL 地址 积分 密码 性别 来自 个人主页 版面序号 版面名称 斑竹用户 名 密码 EMAIL 编号 管理员用户名 密码 USER 表，里面记录注册用户的一些信息。 里面记录注册用户的一些信息。 userID 自动编 号 username 文本 userEmail 文本 artide 数字 文本 userpassword sex 文本 homefrom 文本 homepage 文本 里面记录版面信息 录版面信息。 BOARD 表，里面记录版面信息。 BoardID 自动编号 文本 BoardType BoardName 文本 MastarPwd 文本 文本 MastarEmail ADMIM 表， 里面记录论坛管理员信息。 里面记录论坛管理员信息。 自动编号 ID Adminame 文 本 Adminpwd 文本 里面记录贴子信息。 BBS1 表，里面记录贴子信息。 AnnounceID 自动编 号 ParentId 数字 Child 数字 Username 文本 数字 Boardid Useremail 文本 Topic 文本 Body 备注 Dateandtime 文本 Hits 数字 Length 数字 Rootid 数字 Layer 数字 Orders 数字 Ip 文本 文本 Expression 发贴人 贴子主题 贴子内容 发贴时间 第五章 主页面 DEFAULT.ASP 详细设计与实现
链接页面 LEFT.ASP 论坛积分排行榜 POINT.ASP 论坛简介 ABOUT.ASP 论坛管理——管理员登录页面 LOGIN.ASP 论坛管理——管理功能页面 版面管理—斑竹登录页面 ELOGIN.ASP 版面管理——管理功
能页面 EMANAGE.ASP 贴子主题浏览页面 LIST.ASP 发表回复页面 SHOWANNUNCE.ASP 发表新话题页面 贴子查询页面 ANNOUNCE.ASP QUERY.ASP QUERYRESULT.ASP MYINFO.ASP 论坛用户个人资料（包括密码、信息）修改页面 常用数据库语句 1.SELECT 语句： 命令数据库引擎从数据库里返回信息， 作为一 组记录。 2.INSERT INTO 语 句：添加一个或多个记录至一个表。 3.UPDATE 语句：创建更新查询来改变基于特定准则的 指定表 中的字段值。 4.DELETE 语句： 创建一个删除查询把记录从 FROM 子句列出 并符合 WHERE 子句的一个或更多的表中清除。 5.EXECUTE 语句：用于激活 PROCEDURE（过 程 ） （ 一 ） 连 接 数 据 库 方 法 1 ： Set conn = Server.CreateObject(&ADODB.Connection&) conn.Open &driver={Microsoft SQLDriver (*.mdb)};dbq=&&Server.MapPath(&data.mdb&) 方法 2： Set conn = Server.CreateObject(&ADODB.Connection&) conn.Open &Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&&Server.MapPath(&data.mdb&) 注意： 一个页面中， 只要连接 一次就可以了， 数据库使用完后 要及时关闭连接。 conn.Close Set conn = Nothing （二） 、 添加新记录到数据库 Set conn = Server.CreateObject(&ADODB.Connection&) conn.Open &driver={Microsoft SQLDriver (*.mdb)};dbq=&&Server.MapPath(&data.mdb&) username = &风云突变& usermail = && indate = Now() sql = &insert into data (username,usermail,indata) values('&&username&&','&&usermail&&','& &indate&&')& conn.Execute(sql) conn.Close Set conn = Nothing 说 明：建立数据库连接；通过表单获取姓名、E-mail 字符串， Now()获取当前时间日期；使用 insert into 语句添加新记录； conn.Execute 来执行；最后关闭。 （三） 、选择数据库 里的记录 1.选择所有记录的字段 （按记录倒序排序）： = &select * from data order sql by ID desc& 2.选择所有记录的姓名和 E-mail 字段（不排序） ：sql = &select username,usermail from data& 3. 选 择 姓 名 为 “ 风 云 突 变 ” 的 所 有 记 录 ： sql = &select * from data where username='&风云突变&'& 4.选择使用 163 信箱的所有记录（按查看次数排序） ：sql = &select * from data where usermail like '%&@&%' order by 5.选择最新的 10 个记录：sql = &select top 10 * from data order by ID desc&
SQL 语句已经知道了，不过在 Web 应用时，还得创建一个 RecordSet 对象得到记录集，才 能把从数据库里取出的值应用在网页 上， 如果现在将所有的记录显示在网页上就这样： Set conn = Server.CreateObject(&ADODB.Connection&) conn.Open &driver={Microsoft SQLDriver (*.mdb)};dbq=&&Server.Ma
pPath(&data.mdb&) sql = &select * from data& Set rs = Server.CreateObject(&ADODB.RecordSet&) rs.Open sql,conn,1,1 Do While Not rs.Eof Response.Write &&p&姓名：&& rs(&username&) && E-mail： && rs(&usermail&) && 查 看 ： && rs(&view&) &&次 && rs(&indate&) && 加入&/p&& rs.MoveNext Loop rs.Close Set rs = Nothing conn.Close Set conn = Nothing 说明：建立数据库连接；创建 rs 得到记录集；循环显示记录， rs.Eof 表示记录末， rs.MoveNext 表示移到下一个记录；最后关闭。 （四） 、修改（更新）数据库记录 修改记 录 的 E-mail ： Set conn = Server.CreateObject(&ADODB.Connection&) conn.Open &driver={Microsoft SQLDriver (*.mdb)};dbq=&&Server.MapPath(&data.mdb&) ID = 1 usermail = && sql = &update data set usermail='&&usermail&&' where ID=&&CInt(ID) conn.Execute(sql) conn.Close Set conn = Nothing 说明：建立数据库连接；获取记录 ID、 新 E-mail 字符串；使 用 update 语句修改记录；conn.Execute 来执行；最后关闭。 如果 使 记 录 的 查 看 值 加 1 ， sql = &update data set view=view+1 则 ： where ID=&&CInt(ID) （五） 、删除数据库记录 删 除 某 一 条 记 录 ： Set conn = Server.CreateObject(&ADODB.Connection&) conn.Open &driver={Microsoft SQLDriver (*.mdb)};dbq=&&Server.MapPath(&data.mdb&) ID = 1 sql = &delete from data where ID=&&CInt(ID) conn.Execute(sql) conn.Close Set conn = Nothing 说明：建立数据库连接；获取记录 ID；使用 delete 语句删除记 录； conn.Execute 来执行；最后关闭。 删除多条记录为：sql = &delete from data where ID in (ID1,ID2,ID3)& 删除所有记录为：sql = &delete from data 结 论 通过这个认坛的制作， 我深化了对 ASP 技术的了解， 也深刻体会 到了 ASP 技术的优 越性，坚定了我进一步学习 ASP 的信心。 致 谢 在此论文的完成过程中， 有众多老师的费心指导和一些同学的热 情帮助， 在此表示万 分的谢意。 参考文献 /download/default_study.html 百当软件园网络学院 第六章 详细设计与实现 各页面代码如下： 主页面 DEFAULT.ASP &%@ LANGUAGE=&VBSCRIPT& %& &html& &head& &title&欢迎光临青年论坛&/title& &meta name=&GENERATOR& content=&Microsoft FrontPage 3.0&& &/head& &frameset frameborder=&1& framespacing=&1& border=&1& cols=&*,86%&& &frame src=&left.asp& scrolling=&no&& &frameset rows=&60%,40%&& &frame name=&BoardList& src=&about.asp& scrolling=&
auto& target=&main&& &frame name=&BoardAnnounce&
target=&main& src=&point.asp& scrolling=&auto&& &/frameset& &noframes& &body& &p&This page uses frames, but your browser doesn't support them.&/p& &/body& &/noframes& &/frameset& &/html& &html&&script language=&JavaScript&& &/script&&/html& &html&&script language=&JavaScript&& &/script&&/html& 链接页面 LEFT.ASP &% @language=&vbscript& %& &html& &head& &meta http-equiv=&Content-Type& content=&text/ charset=gb2312&& &title&Left&/title& &link rel=&stylesheet& type=&text/css& href=&forum.css&& &style type=&text/css&& &!-body { background-color: #00CCFF; } --& &/style&&/head& &body& &p align=&center&& &a href=&default.asp& target=_top& 论 坛 首 页 &&&br& &a href=&login.asp& target=&BoardAnnounce& title=&增 加 、 修 改 、 删 除 版 面 ！ && 论 坛 管 理 &&&/a&&br& &a href=&elogin.asp& target=&BoardAnnounce& title=&斑竹帖子 管 理 && 版 面 管 理 &&&/a&&br& &a href=&about.asp& target=&BoardList&& 关 于 论 坛 &&&/a&&br& 论 坛 版 面 &&&/p& &p align=&center&& &a href=&List.asp?boardID=1& target=&BoardList&& 团 委 公 告 &/a&&br& &a href=&List.asp?boardID=2& target=&BoardList&& 时 事 新 闻 &/a&&br& &a href=&List.asp?boardID=4& target=&BoardList&& 军 事 天 地 &/a&&/p& &p align=&center&& &a href=&query.asp& target=&BoardAnnounce&& 论 坛 帖 子 查 询 &/a&&br& &a href=&myinfo.asp?page=1& target=&BoardAnnounce&& 更改个 人 密 码 &/a&&br& &a href=&myinfo.asp?page=2& target=&BoardAnnounce&& 修 改 个 人 信 息 &/a&&br& &a href=&myinfo.asp?page=3& target=&BoardAnnounce&& 查询个 人 信 息 &/a&&br& &a href=&point.asp& target=&BoardAnnounce&& 查 看 积 分 排 行 &/a&&br& &p align=&center&&&br& 在 线 &%=Application(&online&)%& 人 &p align=&center&&&script src=&http://www./counter.asp?id=wodeail&style=1&&&/ script& &/center& &/body& &/html& 论坛积分排行榜 POINT.ASP &%@ LANGUAGE=&VBSCRIPT& %& &% option explicit%& &!--#include file=&newconn.asp&quo
t;--& &!-#include file=&inc/char.inc& --& &!-#include
file=&inc/tree.inc&--& &html& &head& &meta http-equiv=&Content-Type& content=&text/ charset=gb2312&& &title& 积 分 &/title& &meta name=&GENERATOR& content=&Microsoft FrontPage 3.0&& &link rel=&stylesheet& type=&text/css& href=&forum.css&& &style type=&text/css&& &!body {background-color: #00CCFF; } --& &/style&&/head& &body& &% dim rs dim sql dim Article dim username set rs=server.createobject(&adodb.recordset&) sql=&select * from user where username ORDER BY Article desc& rs.open sql,conn,1,1 if rs.EOF then response.write &not point& else %& &div align='center'&&center&&table border='1' width='50%' cellspacing='0' bordercolorlight='#000000' bordercolordark='#FFFFFF' cellpadding='0'& &tr& &td width=&100%& colspan=&4& bgcolor='#FEEC85'&&table border=&0& width=&100%& cellspacing=&0& cellpadding=&0&& &tr& &td width=&100%& align=&center&&&b& 论 坛 积 分 排 行 榜 &/b&&/td& &/tr& &/table& &/td& &/tr& &tr& &td align='center' width='25%'&&b& 姓 名 &/b&&/td&&td align='center' width='25%'&&b& 积 分 &/b&&/td& &td align='center' width='25%'&&b& 姓 名 &/b&&/td&&td align='center' width='25%'&&b& 积 分 &/b&&/td&&/tr& &%do while NOT rs.EOF%& &tr& &td align='center' width='25%'&&%=rs(&username&)%&&/td& &td align='center' width='25%'&&font color=red&&%=rs(&Article&)%&&/font&&/td& &td align='center' width='25%'&&%=rs(&username&)%&&/td& &td align='center' width='25%'&&font color=red&&%=rs(&Article&)%&&/font&&/td& if username&9 then Exit Do loop end if rs.Close set rs=nothing %& &/table&&/center&&/div& &div align='center'&&center&&table border='0' width='50%' cellspacing='0' bordercolorlight='#000000' bordercolordark='#FFFFFF' cellpadding='0'& &tr&&td align='right'&&a href='myinfo.asp?page=3' target=&BoardAnnounce&& 查 看 个 人 积 分 &&&/a&&a href='aboutpoint.asp' target=&BoardAnnounce&& 关 于 积 分 &&&/a& &/td&&/tr& &/body& &/html& 论坛简介 ABOUT.ASP ] html& &head& &meta HTTP-EQUIV=&Content-Type& content=&text/ charset=gb2312&& &link rel=&stylesheet& type=&text/css& href=&forum.css&& &style type=&text/css&& &!-body
{ background-color: #00CCFF; } --& &/style&&/head& &body&
&center& &table border='1' width='80%' cellspacing='0' bordercolorlight='#000000' bordercolordark='#FFFFFF' cellpadding='0'& &tr& &td align=center bgcolor=#FEEC85& &strong&请注意以下事项 &/strong&&/td& &/tr& &tr& &td& &p&本论坛由厂 团 委 创 办 和 管 理 。 &/p& &p& 您 在 本站 注 册 发 言 便 表 示 您 将遵 守 以 下 条款 &/p& &ol&&li&保持良好言行，不得对他人进行人身攻击；遵守中华人民 共和国的一切法律法规； &li&网友不得张贴无用的重复信息， 如果此类帖子数目超过 5，将被视为对本站的恶意攻击行为 &li&本站有权对登记网友的账号进行管理，有权 对 违 反 上 述 条 款 的 网 友 账 号 进 行 关 闭 、 删 除 的 处 罚 &li& 通 用 用 户 名 ： &b&guest&/b& ， 密 码 ： &b&guest&/b& &/ol&&/td&&/tr& &tr& &td align=&center& bgcolor='#FEEC85'&&strong& 积 分 规 则 &/strong&&/td& &/tr& &tr& &td& &li&斑竹在原来的基础上增加 200 分作为奖励 &li&发一个帖子积分加 1 分， 回复一个帖子积分加 1 分(多发新帖噢) &li&被删 一个帖子， 倒扣 1 分 &li&采用积分机制只是来活跃论坛的气氛， 积分数只是说明网友 在本论坛的活跃情况，并不一定代表网友 任何方面的个人水平 &/td& &/tr& &/table& &/center& &/body& &/html& 论坛管理——管理员登录页面 LOGIN.ASP &html& &head& &title& 管 理 者 登 陆 &/title& &link rel=&stylesheet& type=&text/css& href=&forum.css&& &meta http-equiv=&Content-Type& content=&text/ charset=gb2312&&&style type=&text/css&& &!-body { background-color: #00CCFF; } --& &/style&&/head& &body& &div align=&center&&&center& &table border=&0& cellspacing=&1& width=&90%&& &tr& &td& &form method=&post& action=&chklogin.asp& target=&BoardList&& &table width=&45%& border=&1& cellspacing=&0& cellpadding=&1& align=&center& bordercolordark=&#ecf5ff& bordercolorlight=&#6699cc&& &tr& &td&&table width=&100%& border=&0& cellspacing=&1& cellpadding=&1&& &tr& &td width=&33%& align=&right& height=&30&&用户名：&/td& &td widt h=&67%&&&input name=&username& maxlength=&20& class=&smallInput& size=&20&& &/td&
&/tr& &tr& &td width=&33%& align=&right& height=&30&& 密 码 ： &/td& &td width=&67%&&&input type=&password& name=&password& maxlength=&16& class=&smallInput& size=&20&& &/td& &/tr& &tr& &td colspan=&2& height=&15&&&/td& &/tr& &/table& &/td& &/tr& &tr align=&center&& &td height=&40&& &input type=&submit&
name=&Submit& value=& 确定 & class=&buttonface&& & &input type=&reset& name=&Submit2& value=& 重写& class=&buttonface&& &/td& &/tr& &/td& &script language=&JavaScript&& &/script& &/html& 论坛管理——管理功能页面 BOARDMANAGER.ASP &%@ LANGUAGE=&VBSCRIPT& %& &% option explicit%& &!-#include file=&newconn.asp& --& &html & &head& &meta HTTP-EQUIV=&Content-Type& content=&text/ charset=gb2312&& &link rel=&stylesheet& type=&text/css& href=&forum.css&& &style type=&text/css&& &!-body { background-color: #00CCFF; } --& &/style&&/head& &SCRIPT LANGUAGE=&JavaScript&& &!--// function check3() { if ((document.addbt3.name.value.length&1) ||( ame.value.length&1) ) alert(&名字不能为空&); else document.addbt3.submit(); } function check4() { if ((document.addbt4.name.value.length&1) ||( ame.value.length&1) ) alert(&名字不能为空&); else{ document.addbt4.way.value=&修改&; document.addbt4.submit(); } } //--& &/SCRIPT& &body class=clblue& &% dim strSQL,iBt,i,byOrder,rsB,iB,j set rsB=server.CreateObject(&ADODB.RecordSet&) dim showmaster %& &center&&b& 论 坛 版 面 管 理 区 域 &/b&&p& &b&&a href=&boardmanager.asp?method=btmodify&& 增 加 版 面 &/a&&/b&&p& &table border=0 width=100%& &tr& &td width=70% valign=top& &% rsB.Open &select * from Board where boardtype order by boardid desc&,conn,1 if rsB.EOF then response.write &论坛版面 不 存 在 ： & else %& &div align='center'&&center& &table （ border='1' width='80%' cellspacing='0' bordercolorlight='#000000' bordercolordark='#FFFFFF' cellpadding='0'& &tr& &td width=10% align=center&ID&/td& &td width=25% align=center&版 &td width=25% align=center&斑 &td width=40% align=center&操 &/tr& &%do while NOT rsB.EOF%& &tr& &td width=10% align=center&&%=rsB(&boardid&)%&&/td& &td width=25% align=center&&a href=&bo
ardmanager.asp?method=modify&boardid=&%=rsB(&boardid&)%&&name=&%=rsB(&boardtype&)%& &&&%=rsB(&boardtype&)%&&/a&&/td& 面 &/td& 竹&/td& 作&/td& &td width=25% align=center&&a href=&mailto:&%=rsB(&masteremail&)%&&&&%=rsB(&boardmaster&)%&&/a&&/td& &td width=40% align=center& 请点击相应版面&/td& &/tr& &% rsB.MoveNext loop end if rsB.Close %&
&/table& &/td& &td width=30% valign=top& &!----------------------------------------------------------------------------------------- --& &% if request(&method&)=&btmodify& 增 加 板 面 ： &br&&br& &INPUT TYPE=&hidden& name=method value=&added&& 版 面 名 称 ： &INPUT TYPE=&text& size=10 NAME=&name& class=bline1&&br& 斑 竹 密 码 ： &INPUT TYPE=&text& size=10 NAME=&cname& 斑 竹 mail ： &INPUT TYPE=&text& size=10 NAME=&email& class=bline1&&br& class=bline1&&br& then %& &form name=addbt3 method=&post& action=&boardmanager.asp&& 斑 竹 姓 名 ： &INPUT TYPE=&text& size=10 NAME=&userid& class=bline1& &&INPUT name=&way& class=buttonface TYPE=BUTTON value=&增加& onClick=&check3()&& &/form& &%end if%& &!----------------------------------------------------------------------------------------- --& &% if request(&method&)=&modify& if rsB.RecordCount&=1 then showmaster=trim(rsb(&boardmaster&)) %& &form name=addbt4 method=&post& action=&boardmanager.asp&& 修改信息：&br&&br& &INPUT TYPE=&hidden& name=method value=&modified&& &INPUT TYPE=&hidden& name=id value=&&%=request(&boardid&)%&&& 版面名称： &INPUT TYPE=&text& size=10 NAME=&name& value=&&%=rsb(&boardtype&)%&& class=bline1&&br& 斑 竹 密 码 ： &INPUT TYPE=&text& size=10 NAME=&cname& value=&&%=rsb(&masterpwd&)%&& class=bline1&&br& 斑 竹 mail ： &INPUT TYPE=&text& size=10 NAME=&email& value=&&%=rsb(&masteremail&)%&& class=bline1&&br& then rsB.open &select * from Board where boardid=&+request(&boardid&),conn,1 斑 竹 姓 名 ： &INPUT TYPE=&text& size=10 NAME=&userid& value=&&%=showmaster%&& class=bline1& &INPUT TYPE=&hidden& name=way value=& 删 除 && &br&&&&INPUT name=&way1& class=buttonface TYPE=BUTTON value=&quo
t; 修 改 & onClick=&check4()&& &&&INPUT name=&way1& class=buttonface TYPE=&submit& value=&删除&& &/form& &% rsB.close end if end if%& &!--------------------------------------------------------------------------------------& &% if request(&method&)=&added& rsB.addnew showmaster=trim(request(&userid&)) rsB(&boardtype&)=request(&name&) rsB(&masterpwd&)=request(&cname&) rsB(&boardmaster&)=showmaster
rsB(&masteremail&)=request(&email&) rsB.update rsB.close end if %& &!--------------------------------------------------------------------------------------------& &% if request(&method&)=&modified& if request(&way&)=& 修 改 & then showmaster=trim(request(&userid&)) strSQL=&update Board set boardtype='&+trim(request(&name&)) strSQL=strSQL+&',masterpwd='&+trim(request(&cname&))+&' ,masteremail='&+trim(request(&em ail&))+&',boardmaster='&+showmaster+&' & strSQL=strSQL+& where boardid=&+request(&id&) 'response.write(strSQL) rsB.open strSQL,conn,1 else rsB.open &delete * from Board where boardid=&+request(&id&),conn,1 end if end if %& &/td&&/tr& &/table& &/body& &/html& &% conn.Close then then rsB.open &select * from board&,conn,3,2 版面管理—斑竹登录页面 ELOGIN.ASP &%@ LANGUAGE=&VBSCRIPT& %& &% option explicit%& &!--#include file=&newconn.asp&--& &!-#include file=&inc/char.inc& --& &html& &head& &title&管理 者 登 陆 &/title& &link rel=&stylesheet& href=&forum.CSS&& &meta http-equiv=&Content-Type& content=&text/ charset=gb2312&&&style type=&text/css&& &!-body { background-color: #00CCFF; } --& &/style&&/head& &body& &% dim sql,rs dim sel dim boardid boardid=0 if not (isNUll(request(&boardid&)) or isEmpty(request(&boardid&)) or (request(&BoardID&)=&&) ) then boardid=request(&boardid&) end if set rs=server.createobject(&adodb.recordset&) sql=&select * from board& &div align=&center&&&center& &table border=&0& cellspacing='1' width=&90%&& &tr& &td& &form method=&POST& name=&frmNewUser& action=&echklogin.asp& target=&BoardList&& &table width=&45%& border=&1& cellspacing=&0& cellpadding=&0& align=&center& bordercolordark=&#FFFFFF& bordercolorlight=&#000000&& &tr& &td&&table width=&100%&q
border=&0& cellspacing='1' cellpadding='1'& &tr&&td width=&33%& align=&right&& 版 面 :&/td& &td width=&67%&&&select class=&smallSel& name=&lstBoard& size=&1&& &% do while not rs.eof if boardid=cstr(rs(&boardid&)) then sel=&selected& else sel=&& end if response.write &&option & & sel & &
value='&+CStr(rs(&BoardID&))+&'&&+rs(&Boardtype &)+&&/option&&+chr(13)+chr(10) rs.movenext loop %& &/select&&/td& &tr& &td width=&33%& align=&right& height=&30&& 用 户 名 ： &/td& &td width=&67%&&&input name=&username& maxlength=&20& class=&smallInput& size=&20&& &/td& &/tr& &tr& &td width=&33%& align=&right& height=&30&& 密 码 ： &/td& &td width=&67%&&&input type=&password& name=&password& maxlength=&16& class=&smallInput& size=&20&& &/td& &/tr& &tr& &td colspan=&2& height=&15&&&/td& &/tr& &/table& &/td& &/tr& &tr align=&center&& &td height=&40&& &input type=&submit& name=&Submit& value=& 确 定 & class=&buttonface&& & &input type=&reset& name=&Submit2& value=&重写& class=&buttonface&& &/td& &/tr& &/table& &/form& &p align=&center&& &/tr& &/table& &/center&&/div& &/body& &/html& &html&&script language=&JavaScript&& &/script&&/html& &/td& 版面管理——管理功能页面 EMANAGE.ASP &%@ LANGUAGE=&VBSCRIPT& %& &% option explicit%& &!--#include file=&newconn.asp&--& &!-#include file=&inc/char.inc& --& &!-#include file=&inc/tree.inc&--& &% if request.cookies(&adminok&)=&& then response.redirect &elogin.asp& end if %& &html& &head& &meta NAME=&GENERATOR& Content=&Microsoft FrontPage 4.0& CHARSET=&GB2312&& &title&青年论坛&/title& &link rel=&stylesheet& type=&text/css& href=&forum.css&& &meta http-equiv=&Content-Type& content=&text/ charset=gb2312&&&style type=&text/css&& &!-body { background-color: #00CCFF; } --& &/style&&/head& &body& &% dim sql,rs,rsBoard,BoardName,boardsql dim selStr dim mailStr1 dim mailStr2 dim boardmaster 'on error resume next selStr=&()& if session(&mas
terlogin&)=&true& then boardID=session(&manageboard&) selStr=&& if not isempty(request(&page&)) then currentPage=cint(request(&page&)) else currentPage=1 end if set rsBoard=server.createobject(&adodb.recordset&) boardsql=&select * from board where boardID=&+cstr(boardID)+&& rsboard.open boardsql,conn,1,1 if not rsboard.eof then boardname=rsboard(&boardname&)
session(&boardtype&)=rsboard(&boardtype&) boardmaster=rsboard(&boardmaster&) if trim(rsboard(&masteremail&))&&&& then mailStr1=&&a href='mailto:&+trim(rsboard(&masteremail&))+&'&& mailStr2=&&/a&& else mailStr1=&& mailStr2=&& end if if boardID&0 then set rs=server.createobject(&adodb.recordset&) sql=&select AnnounceID,boardID from bbs1 where boardID=&+cstr(boardID)+& and parentID=0 ORDER BY announceID desc & rs.open sql,conn,1,1 if not rs.eof then totalAnnounce=rs.recordcount dim i i=0 if currentPage=1 then do while not rs.EOF if selstr=&& then selStr=selStr+cstr(rs(&announceid&)) else selStr=selStr+&,&+cstr(rs(&announceid&)) end if i=i+1 if i&=maxannounce then exit do rs.MoveNext loop else if (currentPage-1)*maxannounce&totalAnnounce then rs.move (currentPage-1)*maxannounce dim bookmark bookmark=rs.bookmark do while not rs.EOF if selstr=&& then selStr=selStr+cstr(rs(&announceid&)) else selStr=selStr+&,&+cstr(rs(&announceid&)) end if i=i+1 if i&=maxannounce then exit do rs.MoveNext loop else currentPage=1 do while not rs.EOF if selstr=&& then selStr=selStr+cstr(rs(&announceid&)) else selStr=selStr+&,&+cstr(rs(&announceid&)) i=i+1 if i&=maxannounce then exit do rs.MoveNext loop end if end if dim n selstr=&(&+selstr+&)& if selStr&&&()& then sql=&select * from bbs1 where (rootID in &&selStr& & ) ORDER BY rootID desc,orders & else sql=&select * from bbs1 ORDER BY rootID desc,orders & end if end if rs.Close rs.open sql,conn,1,1 showpage session(&boardtype&),boardmaster,totalannounce,boardid,mailstr1,mailst r2 showlist() showpage session(&boardtype&),boardmaster,totalannounce,boardid,mailstr1,mailst r2 else response.write &&p& 版 面 ： &+session(&boardtype&)+&&br& 版 主 ： &+mailstr1+boardmaster+mailstr2+&&br&& response.write & 本 论 坛 无 内 容 & response.write &&p&&a href='Announce.asp?boardID=&+cstr(boardID)+&' target=&+chr(34)+&BoardAnnounce&+chr(34)+&& 我 要 发 言 &/a& &a href='emanage.asp?boardID=&+cstr(boardID)+&'&刷新浏 览&/a& & end if rs.close sub sho
wlist() on error resume next dim outtext dim bytestr response.write &&ul&& do while not (rs.eof or err.number&&0) do while layer&& rs(&layer&) if rs(&layer&)& layer then outtext=outtext & &&ul&& layer=layer+1 else outtext=outtext & layer=layer-1 end if loop outtext=outtext & outtext=outtext & &&li&& &&a outtext=outtext & &&img
src=images/&&rs(&Expression&)&&&& href='ShowAnnounce.asp?boardID=&+cstr(boardID)+&&RootID=&&cstr(rs(&RootID&))&&&ID=&&Cstr(rs (&announceID&))&&' target='BoardAnnounce'&& dim t if rs(&Length&)=0 then t=& &无内容&& else t=& & end if if pwsonchsys then outtext=outtext & htmlencode(rs(&Topic&)+t) else outtext=outtext & Server.HTMLEncode(rs(&Topic&)+t) end if outtext=outtext & &&/a& &strong&& bytestr=&(&+cstr(rs(&length&)) if not WINNT_CHINESE then if rs(&Length&)-1=1 then bytestr=bytestr+& Byte)& else bytestr=bytestr+& Bytes)& end if else bytestr=bytestr+&字)& end if if pwsonchsys then outtext=outtext & htmlencode(rs(&UserName&)) else &&/ul&& & chr(13) & chr(10) outtext=outtext & Server.HTMLEncode(rs(&UserName&) ) end if outtext=outtext & & &/strong&&font color=red&&em&&&rs(&DateAndTime&)&&&/em&&/font& [ID:&+cstr(rs(&announceID&))+& 点 击 :&&rs(&Hits&)&&] &+bytestr+& &font color='red'&(& + Cstr(rs(&child&))+&)&/font&&+chr(13)+chr(10) if trim(rs(&DateAndTime&))&&&& and isdate(rs(&DateAndTime&)) then if cbool(cdate(rs(&DateAndTime&))&(date()-1))=true then outtext=outtext & end if end if outtext=outtext & & &a href='delete.asp?announceID=&&Cstr(rs(&announceID&))&&'&删除 &/a&&+chr(13)+chr(10) rs.movenext response.write outtext outtext=&& loop if layer&&0 then dim i for i=1 to layer outtext=outtext & &&/ul&& next end if outtext=outtext & &&/ul&& response.write outtext end sub function showpage(boardtype,boardmaster,totalannounce,boardid,mailstr1,mailstr2) response.write &&table border='1' width='98%' cellspacing='0' bordercolorlight='#000000' bordercolordark='#FFFFFF' cellpadding='0'&&tr&& response.write &&tr&&td nowrap bgcolor='#FEEC85'&&p align=left& 版 面 ： &&boardtype&&&/td&& response.write &&td nowrap bgcolor='#FEEC85'&&p align='left'&& response.write &版 主
： &+mailstr1+boardmaster+mailstr2+&&/td&& response.write &&td nowrap bgcolor='#FEEC85'&&p align='center'&&a href=Announce.asp?boardID=&&boardid&& target=BoardAnnounce& 我 要 发 言 &/a&&/td&& response.write &&td nowrap bgcolor='#FEEC85'&&p align='center'&&a href=emanage.asp?boardID=&&boardid&&&page=1& 刷 新 浏 览 &/a&&/td&& dim n if totalAnnounce mod maxannounce=0 then n= totalAnnounce \ maxannounce else n= totalAnnounce \ maxannounce+1 end if
response.write &&form method=Post action=emanage.asp?boardID=&&boardid&&&& &&img src='images/new.gif'&& response.write &&td nowrap align='center' bgcolor='#FEEC85'&& if CurrentPage&2 then response.write &&font color='navy'& 首 页 前 页 &/font&&& else response.write &&a href=emanage.asp?boardID=&&boardid&&&page=1& 首 页 &/a&&& response.write &&a href=emanage.asp?boardID=&&boardid&&&page=&&C urrentPage-1&&& 前 页 &/a&&& end if if n-currentpage&1 then response.write &&font color='navy'&后页 尾页 &/font&& else response.write &&a href=emanage.asp?boardID=&&boardid&&&page=&&( CurrentPage+1) response.write && 后 页 &/a& &a href=emanage.asp?boardID=&&boardid&&&page=&&n &&& 尾页&/a&& end if response.write &&页次： &strong&&font color=red&&&CurrentPage&&&/font&/&&n&&&/strong& 页 &/td&& response.write &&td valign=top align=center nowrap bgcolor='#FEEC85'&& response.write &&p&转 到 ： &input type='text' name='page' size=3 maxlength=10 class=smallInput value=&&currentpage&&&& response.write &&input class=buttonface type='submit' value=' Go ' name='B1'&&/span&&/p&&/td&&/form&& response.write &&/table&& end function else Response.Write & 该 论 坛 不 存 在 ！ & end if end if rsBoard.Close set rsboard=nothing %& &/body& &/html& 贴子主题浏览页面 LIST.ASP &%@ LANGUAGE=&VBSCRIPT& %& &% option explicit%& &!--#include file=&newconn.asp&--& &!-#include file=&inc/char.inc& --& &!-#include file=&inc/tree.inc&--& &html& &head& &meta NAME=&GENERATOR& Content=&Microsoft FrontPage 3.0& CHARSET=&GB2312&& &title& 青 年 论 坛 &/title& &link rel=&stylesheet& type=&text/css& href=&forum.css&& &me
ta http-equiv=&Content-Type& content=&text/ charset=gb2312&&&style type=&text/css&& &!-body { background-color: #00CCFF; } --& &/style&&/head& &body& &% dim sql,rs,rsBoard,BoardName,boardsql dim selStr dim mailStr1 dim mailStr2 dim boardmaster 'on error resume next selStr=&()& if not isEmpty(request(&lstRefreshBoard&)) then boardID=request(&lstRefreshBoard&) elseif not isEmpty(request(&BoardID&)) then
boardID=request(&BoardID&) end if selStr=&& if not isempty(request(&page&)) then currentPage=cint(request(&page&)) else currentPage=1 end if set rsBoard=server.createobject(&adodb.recordset&) boardsql=&select * from board where boardID=&&request(&boardid&) rsboard.open boardsql,conn,1,1 if not rsboard.eof then boardname=rsboard(&boardname&) session(&boardtype&)=rsboard(&boardtype&) boardmaster=rsboard(&boardmaster&) if trim(rsboard(&masteremail&))&&&& then mailStr1=&&a href='mailto:&+trim(rsboard(&masteremail&))+&'&& mailStr2=&&/a&& else mailStr1=&& mailStr2=&& end if if boardID&0 then set rs=server.createobject(&adodb.recordset&) sql=&select AnnounceID,boardID from bbs1 where boardID=&+cstr(boardID)+& and parentID=0 ORDER BY announceID desc & rs.open sql,conn,1,1 if not rs.eof then totalAnnounce=rs.recordcount dim i i=0 if currentPage=1 then do while not rs.EOF if selstr=&& then selStr=selStr+cstr(rs(&announceid&)) else selStr=selStr+&,&+cstr(rs(&announceid&)) end if i=i+1 if i&=maxannounce then exit do if (currentPage-1)*maxannounce&totalAnnounce then rs.move (currentPage-1)*maxannounce dim bookmark bookmark=rs.bookmark do while not rs.EOF if selstr=&& then selStr=selStr+cstr(rs(&announceid&)) else selStr=selStr+&,&+cstr(rs(&announceid&)) end if i=i+1 if i&=maxannounce then exit do rs.MoveNext loop else currentPage=1 do while not rs.EOF if selstr=&& then selStr=selStr+cstr(rs(&announceid&)) else selStr=selStr+&,&+cstr(rs(&announceid&)) end if i=i+1 if i&=maxannounce then exit do rs.MoveNext loop end if end if dim n selstr=&(&+selstr+&)& if selStr&&&()& then sql=&select * from bbs1 where (rootID in &&selStr& & ) ORDER BY rootID desc,orders & sql=&select * from bbs1 ORDER BY rootID desc,orders & end if end if rs.Close rs.open sql,conn,1,1 showpage session(&boardtype&),boardmaster,totalannounce,request(&boardid&),mailstr1,mailstr2 showlist() showpage session(&boardtype&),boardmaster,totalannounce,request(&boardid&),mailstr1,mailstr2 else response.write &qu
&p& 版 面 ： &+session(&boardtype&)+&&br& 版 主 ： &+mailstr1+boardmaster+mailstr2+&&br&& response.write & 本 论 坛 无 内 容 & response.write &&p&&a href='Announce.asp?boardID=&+request(&boardid&)+&' target=&+chr(34)+&BoardAnnounce&+chr(34)+&& 我 要 发 言 &/a& &a href='List.asp?boardID=&+request(&boardid&)+&'& 刷 新 浏 览
&/a& & end if rs.close sub showlist() on error resume next dim outtext dim bytestr response.write &&ul&& dim layer layer=1 do while not (rs.eof or err.number&&0) do while layer&& rs(&layer&) if rs(&layer&)& layer then outtext=outtext & &&ul&& layer=layer+1 else outtext=outtext & layer=layer-1 end if loop &&/ul&& & chr(13) & chr(10) outtext=outtext & outtext=outtext & outtext=outtext & &&img src=images/&&rs(&Expression&)&&&& href='ShowAnnounce.asp?boardID=&+request(&boardID&)+&&Ro otID=&&cstr(rs(&RootID&))&&&ID=&&Cs tr(rs(&announceID&))&&' target='BoardAnnounce'&& dim t if rs(&Length&)=0 then t=& &无内容&& else t=& & end if if pwsonchsys then outtext=outtext & htmlencode(rs(&Topic&)+t) else outtext=outtext & Server.HTMLEncode(rs(&Topic&)+t) end if outtext=outtext & &&/a& &strong&& bytestr=&(&+cstr(rs(&length&)) if not WINNT_CHINESE then if rs(&Length&)-1=1 then bytestr=bytestr+& Byte)& else bytestr=bytestr+& Bytes)& end if else bytestr=bytestr+&字)& end if if pwsonchsys then outtext=outtext & htmlencode(rs(&UserName&)) else outtext=outtext & Server.HTMLEncode(rs(&UserName&) ) end if outtext=outtext & & &/strong&&font color=red&&em&20&&rs(&DateAndTime&)&&&/e m&&/font& [ID:&+cstr(rs(&announceID&))+& 点 击 :&&rs(&Hits&)&&] &+bytestr+& &font color='red'&(& + Cstr(rs(&child&))+&)&/font&&+chr(13)+chr(10) if trim(rs(&DateAndTime&))&&&& and isdate(rs(&DateAndTime&)) then if cbool(cdate(rs(&DateAndTime&))&(date()-1))=true then outtext=outtext & end if end if rs.movenext &&img response.write outtext outtext=&& loop if layer&&0 then dim i for i=1 to layer outtext=outtext & &&/ul&& next end if outtext=outtext & &&/ul&& response.write outtext end sub function showpage(boardtype,boardmaster,totalannounce,boardid,mailstr1,mailstr2) response.write &&table b
order='1' width='98%' cellspacing='0' bordercolorlight='#000000' bordercolordark='#FFFFFF' cellpadding='0'&&tr&& response.write &&tr&&td nowrap bgcolor='#FEEC85'&&p align=left& 版 面 ： &&boardtype&&&/td&& response.write &&td nowrap bgcolor='#FEEC85'&&p align='left'&& response.write &版 主 ： &+mailstr1+boardmaster+mailstr2+&&/td&& response.write
&&td nowrap bgcolor='#FEEC85'&&p align='center'&&a href=Announce.asp?boardID=&&boardid&& target=BoardAnnounce& 我 要 发 言 &/a&&/td&& response.write &&td nowrap bgcolor='#FEEC85'&&p align='center'&&a href=list.asp?boardID=&&boardid&&&page=1& 刷 新 浏 览 &/a&&/td&& dim n if totalAnnounce mod maxannounce=0 then n= totalAnnounce \ maxannounce else n= totalAnnounce \ maxannounce+1 end if response.write &&form method=Post action=list.asp?boardID=&&boardid&&&& response.write &&td nowrap align='center' bgcolor='#FEEC85'&& if CurrentPage&2 then response.write &&font color='navy'& 首 页 前 页 &/font&&& else response.write &&a href=list.asp?boardID=&&boardid&&&page=1& 首 页 &/a&&& response.write &&a href=list.asp?boardID=&&boardid&&&page=&&Curr entPage-1&&& 前 页 &/a&&& end if if n-currentpage&1 then response.write &&font color='navy'&后页 尾页 &/font&& else response.write &&a href=list.asp?boardID=&&boardid&&&page=&&(Cur rentPage+1) response.write && 后 页 &/a& &a href=list.asp?boardID=&&boardid&&&page=&&n&&&尾页 &/a&& end if response.write &&页次： &strong&&font color=red&&&CurrentPage&&&/font&/&&n&&&/strong& 页 &/td&& response.write &&td valign=top align=center nowrap bgcolor='#FEEC85'&& response.write &&p&转 到 ： &input type='text' name='page' size=3 maxlength=10 class=smallInput value=&&currentpage&&&& response.write &&input class=buttonface type='submit' value=' Go ' name='B1'&&/span&&/p&&/td&&/form&& response.write &&/table&& end function else Response.Write &该论坛不存在！& end if rsBoard.Close set rsboard=nothing %& &/body& &/html& &html&&script language=&JavaScript&& &/script&&/html& 发表回复页面 SHOWANNUNCE.ASP &%@ LANGUAGE=&VBSCRIPT& %& &% option explicit%& &!--#include file=&newcon
n.asp&--& &!-#include file=&inc/char.inc& --& &% dim AnnounceID dim RootID dim BoardID BoardID=Request(&boardID&) AnnounceID=Cstr(Request(&ID&)) RootID=request(&RootID&) dim rs dim sql set rs=server.createobject(&adodb.recordset&) dim rsBoard dim boardname dim boardsql set rsBoard=server.createobject(&adodb.recordset&) boardsql=&select board.boardname,board.boardtype from board where
boardID=&&BoardID rsboard.open boardsql,conn,1,1 boardname=rsboard(&boardname&) session(&boardtype&)=rsboard(&boardtype&) rsboard.close sql=&update bbs1 set hits=hits+1 where announceID=&&AnnounceID rs.open sql,conn,3,3 sql=&select * from bbs1 where AnnounceID=&&AnnounceID rs.open sql,conn,1,1 %& &html& &head& &meta NAME=&GENERATOR& Content=&Microsoft FrontPage 3.0&& &title& 显 示 贴 子 &/title& &link rel=&stylesheet& type=&text/css& href=&forum.css&& &meta http-equiv=&Content-Type& content=&text/ charset=gb2312&&&style type=&text/css&& &!-body { background-color: #00CCFF; } --& &/style&&/head& &body& &% if err.number&&0 then response.write &数据库操作失败：&&err.description else if rs.eof and rs.bof then response.write &&center&&P& 该 贴 子 的 内 容 找 不 到 &/P&&/center&& else dim UserName dim useremail dim Topic dim body dim dateTimeStr dim layer dim orders dim parentid dim ip dim FoundError dim ErrMsg username=rs(&username&) useremail=rs(&useremail&) topic=rs(&topic&) body=rs(&body&) parentid=rs(&parentid&) ip=rs(&ip&) response.write &&p align='center'&&font color=darkblue&&strong&& if pwsonchsys then showBody Topic else response.write Server.HTMLEncode(Topic) end if response.write &&/strong&&/font&&/p& &+chr(13)+chr(10) response.write &&hr size='1'&&+chr(13)+chr(10) if Trim( UserEmail)&&&& then response.write &&p& &a href='mailto:&+Server.HTMLEncode(UserEmail)+&'&& if pwsonchsys then showBody UserName else response.write Server.HTMLEncode(UserName) end if response.write &&/a& & response.write & 于 &+DateTimeStr+& 发 表 在 ： &font color=darkblue&&strong&&+session(&boardtype&)+&& /strong&&/font&&/p&&p&&+chr(13)+chr(10) else response.write &&p& & if pwsonchsys then showBody UserName else response.write Server.HTMLEncode(UserName) end if response.write & 于 &+DateTimeStr+& 发 表 在 ： &font color=darkblue&&strong&&+session(&boardtype&)+&& /st
rong&&/font&&/p&&p&&+chr(13)+chr(10) end if showbody(body) %& &hr size=&1&& &p&&font color=&darkblue&&&strong& 回 复 ： &/strong&&/font&&/p& &form action=&SaveReAnnounce.asp?boardID=&%=request(&boardid&)%&& method=&POST& name=&frmAnnounce&& &input type=&hidden& name=&followup& value=&&%=rs(&AnnounceID&)%&&&&input type=&hidden& name=&rootID&
value=&&%=RootID%&&&&div align=&center&&&center&&table border=&1& width=&530& bgcolor=&#F7FBFF& bordercolorlight=&#2F97FF& cellspacing=&0& bordercolordark=&#F0F8FF&& &tr& &td width=&100%& bgcolor=&#FAD185&&&div align=&center&&&center&&p&&font color=&#FFFFFF&&&fontcolor=&#0000A0&&&strong& 我 要 发 言 &/strong&&/font&&/td& &/tr& &tr align=&center&& &td width=&100%&&&table border=&0& width=&100%& cellspacing=&1&& &tr& &td width=&14%& align=&right&& 版 面 ： &/td& &td width=&86%& colspan=&2&&&font color=&darkblue&&&strong&&%=session(&boardtype&) %&&/strong&&/font&&&font color=&red&&&strong&*&/strong&&/font& 为 必 填 项 目 第一次发言自动注册&/td& &/tr& &tr& &td width=&14%& align=&right&& 姓 名 ： &/td& &td width=&86%& colspan=&2&&&input class=&smallInput& name=&username& size=&16& maxlength=&50& value=&&%=request.cookies(&userinfo&)(&UserName&)%&&&&font color=&red&&&strong&*&/strong&&/font& & 密 码 ： &input class=&smallInput& name=&passwd& size=&10& maxlength=&10& type=&password&&&font color=&red&&&strong&*&/strong&&/font&&/td& &/tr& &tr& &td width=&14%& align=&right&&Email ： &/td& &td width=&86%& colspan=&2&&&input class=&smallInput& name=&email& size=&42& maxlength=&40& value=&&%=request.cookies(&userinfo&)(&Useremail&)%&&&&/td& &/tr& &tr& &td width=&14%& align=&right&& 主 题 ： &/td& &td width=&86%& colspan=&2&&&% if not(instr(rs(&Topic&),& 回 复 :&)&0) then%& &p&g
t;&input class=&smallInput& name=&subject& size=&65& value=& 回 复 : &%=htmlencode2(rs(&Topic&))%&& maxlength=&255&& &%else%&&input class=&smallInput& name=&subject& size=&65& value=&&%display rs(&Topic&)%&& maxlength=&255&& &%end if%&&font color=&red&&&strong&*&/strong&&/font& &/td& &/tr& &tr& &td width=&14%& align=&right& valign=&top&&&span class=&smallFont&& 表 情 ：
&/span&&/td& &td width=&86%& colspan=&2&&&input type=&radio& value=&smiley& name=&Expression& checked&&img src=&IMAGES/smiley.gif& width=&15& height=&15&& &input type=&radio& name=&Expression& value=&sad&&&img src=&IMAGES/sad.gif& width=&16& height=&16&& &input type=&radio& name=&Expression& value=&angry&&&img src=&IMAGES/angry.gif& width=&15& height=&15&& &input type=&radio& name=&Expression& value=&13&&&img src=&IMAGES/13.gif& width=&15& height=&15&& &input type=&radio& name=&Expression& value=&14&&&img src=&IMAGES/14.gif& width=&15& height=&15&& &input type=&radio& name=&Expression& value=&15&&&img src=&IMAGES/15.gif& width=&15& height=&15&& &input type=&radio& name=&Expression& value=&16&&&img src=&IMAGES/16.gif& width=&15& height=&15&& &br& &input type=&radio& value=&18& name=&Expression&&&img src=&IMAGES/18.gif& width=&15& height=&15&& &input type=&radio& name=&Expression& value=&17&&&img src=&IMAGES/17.gif& width=&15& height=&15&& &input type=&radio& name=&Expression& value=&19&&&img src=&IMAGES/19.gif& width=&15& height=&15&& &input type=&radio& name=&Expression& value=&20&&&img src=&IMAGES/20.gif& width=&15& height=&15&& &input type=&radio& name=&Expression& value=&21&&&img src=&IMAGES/21.gif& width=&15& height=&15&& &input type=&radio& name=&Expression& value=&22&&&img src=&IMAGES/22.gif& width=&15& height=&15&& &input type=&radio& nam
e=&Expression& value=&23&&&img src=&IMAGES/23.gif& width=&15& height=&15&& &/td& &/tr& &tr& &td width=&14%& align=&right&&&span class=&smallFont&& 内 容 ： &/span&&/td& &td width=&43%&&&span class=&smallFont&& （ 最 多 &%=ANNOUNCE_MAXBYTE\1024%&KB ） &/span&&/td& &td width=&43%&&&div align=&center&&&center&&p&&input class=&buttonface& type=&submit& value=& 发 送
&&& &input class=&buttonface& type=&reset& value=& 重 填 && &/td& &/tr& &tr align=&center&& &td width=&14%&&&span class=&smallFont&&&/span&&/td& &td width=&86%& colspan=&2&&&div align=&left&&&p&&textarea class=&smallarea& cols=&65& name=&body& rows=&10&&&/textarea&&/td& &/tr& &tr align=&center&& &td width=&14%& height=&15&&&span class=&smallFont&&&/span&&/td& &td width=&86%& colspan=&2&&&/td& &/tr& &/table& &/td& &/tr& &html&&script language=&JavaScript&& &/script&&/html& 发表新话题页面 ANNOUNCE.ASP &%@ LANGUAGE=&VBSCRIPT& %& &html& &head& &meta NAME=&GENERATOR& Content=&Microsoft FrontPage 3.0&& &meta HTTP-EQUIV=&Content-Type& content=&text/ charset=gb2312&& &title& 我 要 发 言 &/title& &link rel=&stylesheet& type=&text/css& href=&forum.css&& &style type=&text/css&& &!-body { background-color: #00CCFF; } --& &/style&&/head& &body& &% dim boardID if not isEmpty(request(&lstAnnounceBoard&)) then boardID=clng(request(&lstAnnounceBoard&)) elseif not isEmpty(request(&BoardID&)) then boardID=clng(request(&BoardID&)) end if if boardID&0 then %& &form action=&SaveAnnounce.asp?boardID=&%=request(&boardid&)%&& method=&POST& name=&frmAnnounce&& &div align=&center&&&center&&table border=&1& width=&530& bgcolor=&#F7FBFF& bordercolorlight=&#2F97FF& cellspacing=&0& bordercolordark=&#F0F8FF&& &tr& &td width=&100%& bgcolor=&#FAD185&&&div align=&center&&&center&&p&&font color=&#FFFFFF&&&fontcolor=&#0000A0&&&strong& 我 要 发 言 &/strong&&/font&&/td& &/tr& &tr ali
gn=&center&& &td width=&100%&&&table width=&100%& border=&0& cellspacing=&1& bordercolor=&#00CCFF& bgcolor=&#3300FF&& &tr& &td width=&14%& align=&right&& 版 面 ： &/td& &td width=&86%& colspan=&2&&&font color=&darkblue&&&strong&&%=session(&boardtype&)
%&&/strong&&/font&&&font color=&red&&&strong&*&/strong&&/font& 为 必 填 项 目 第一次发言自动注册&/td& &/tr& &tr& &td width=&14%& align=&right&& 姓 名 ： &/td& &td width=&86%& colspan=&2&&&input class=&smallInput& name=&username& size=&16& maxlength=&50& value=&&%=request.cookies(&userinfo&)(&UserName&)%&&&&font color=&red&&&strong&*&/strong&&/font& & 密 码 ： &input class=&smallInput& name=&passwd& size=&10& maxlength=&10& type=&password&&&font color=&red&&&strong&*&/strong&&/font&&/td& &/tr& &tr& &td width=&14%& align=&right&&Email ： &/td& &td width=&86%& colspan=&2&&&input class=&smallInput& name=&email& size=&42& maxlength=&40& value=&&%=request.cookies(&userinfo&)(&Useremail&)%&&&&/td& &/tr& &tr& &td width=&14%& align=&right&& 主 题 ： &/td& &td width=&86%& colspan=&2&&&input class=&smallInput& name=&subject& size=&65& maxlength=&255&&&font color=&red&&&strong&*&/strong&&/font& &/td& &/tr& &tr& &td width=&14%& align=&right& valign=&top&&&span class=&smallFont&& 表 情 ： &/span&&/td& &td width=&86%& colspan=&2&&&input type=&radio& value=&smiley& name=&Expression& checked&&img src=&IMAGES/smiley.gif& width=&15& height=&15&& &input type=&radio& name=&Expression& value=&sad&&&img src=&IMAGES/sad.gif& width=&16& height=&16&& &input type=&radio& name=&Expression& value=&angry&&&img src=&IMAGES/angry.gif& width=&15& height=&15&& &input type=&radio& name=&Expression& value=&13&&&img src=&IMAGES/13.gif& width=&15& height=&15&& &input type=&rad
io& name=&Expression& value=&14&&&img src=&IMAGES/14.gif& width=&15& height=&15&& &input type=&radio& name=&Expression& value=&15&&&img src=&IMAGES/15.gif& width=&15& height=&15&& &input type=&radio& name=&Expression& value=&16&&&img
src=&IMAGES/16.gif& width=&15& height=&15&& &br& &input type=&radio& value=&18& name=&Expression&&&img src=&IMAGES/18.gif& width=&15& height=&15&& &input type=&radio& name=&Expression& value=&17&&&img src=&IMAGES/17.gif& width=&15& height=&15&& &input type=&radio& name=&Expression& value=&19&&&img src=&IMAGES/19.gif& width=&15& height=&15&& &input type=&radio& name=&Expression& value=&20&&&img src=&IMAGES/20.gif& width=&15& height=&15&& &input type=&radio& name=&Expression& value=&21&&&img src=&IMAGES/21.gif& width=&15& height=&15&& &input type=&radio& name=&Expression& value=&22&&&img src=&IMAGES/22.gif& width=&15& height=&15&& &input type=&radio& name=&Expression& value=&23&&&img src=&IMAGES/23.gif& width=&15& height=&15&& &/td& &/tr& &tr& &td width=&14%& align=&right& bgcolor=&#00CCFF&&&span class=&smallFont&& 内 容 ： &/span&&/td& &td width=&43%&&&span class=&smallFont&& （ 最 多 &%=%&KB ） &/span&&/td& &td width=&43%&&&div align=&center&&&center&&p&&input class=&buttonface& type=&submit& value=& 发 送 &&& &input class=&buttonface& type=&reset& value=& 重 填 && &/td& &/tr& &tr align=&center&& &td width=&14%& bgcolor=&#0066FF&&&span class=&smallFont&&&/span&&/td& &td width=&86%& colspan=&2&&&div align=&left&&&p&&textarea class=&smallarea& cols=&65& name=&body& rows=&10&&&/textarea&&/td& &/tr& &tr align=&center&& &td width=&14%& height=&15&&&span class=&smallFont&&&/span&&/td& &td width=&86%& colspan=&2&&&/td& &/tr& &/table& &/td&g
t; &/tr& &/table& &/center&&/div& &/form& response.write & 未 指 定 所 需 参 数 & end if %& &/body& &/html& &html&&script language=&JavaScript&& &/script&&/html& &html&&script
language=&JavaScript&& &/script&&/html& 贴子查询页面 UERY.ASP QUERYRESULT.ASP） 贴子查询页面 （ （QUERY.ASP QUERYRESULT.ASP） QUERY.ASP &%@ LANGUAGE=&VBSCRIPT& %& &%option explicit%& &!--#include file=&newconn.asp&--& &html& &head& &meta NAME=&GENERATOR& Content=&Microsoft FrontPage 3.0&& &meta HTTP-EQUIV=&Content-Type& content=&text/ charset=gb2312&& &meta HTTP-EQUIV=&Expires& CONTENT=&0&& &link rel=&stylesheet& type=&text/css& href=&forum.css&& &title&帖 子 查 询 &/title& &style type=&text/css&& &!-body { background-color: #00CCFF; } --& &/style&&/head& &body topmargin=&0& leftmargin=&0&& &!-- Insert HTML here --& &div align=&left&& &% dim sql,rs dim sel dim boardid if not (isNUll(request(&boardid&)) or isEmpty(request(&boardid&)) or (request(&BoardID&)=&&) ) then boardid=request(&boardid&) end if set rs=server.createobject(&adodb.recordset&) sql=&select * from board& rs.open sql,conn,1,1 %& &table border=&0& cellpadding=&0& cellspacing=&0& width=&100%& height=&100%&& &tr& &td&&div align=&center&&&center&&table border=&0& cellpadding=&0& cellspacing=&0&& &tr& &td&&p align=&center&&&b& 帖 子 查 询 &/b&&/td& &tr& &td&&form name=&queryTopic& method=&POST& action=&queryResult.asp?type=1& target=&BoardList&& &div class=&smallFont& align=&center&& 主 &% do while not rs.eof if boardid=cstr(rs(&boardid&)) then sel=&selected& else sel=&& end if response.write &&option & & sel & & value='&+CStr(rs(&BoardID&))+&'&&+rs(&Boardtype &)+&&/option&&+chr(13)+chr(10) rs.movenext loop %& &/select&&input class=&buttonface& type=&submit& value=&查 询& name=&cmdTopic&&&/div& &/form& &/td& &/tr& &tr& &td&&/td& &/tr& &tr& &td&&form name=&queryUser& method=&POST& action=&queryResult.asp?type=2& target=&BoardList&& 题 ： &input class=&smallInput& type=&text& name=&q
txtTopic& size=&17&& 版面：&select &div class=&smallFont& align=&center&&发言人：&input class=&smallInput& type=&text& name=&txtUser& size=&17&& 版 面 ： &select class=&smallSel& name=&selBoard& size=&1&& &% rs.movefirst do while not
rs.eof if boardid=cstr(rs(&boardid&)) then sel=&selected& else sel=&& end if response.write &&option & & sel & & value='&+CStr(rs(&BoardID&))+&'&&+rs(&Boardtype &)+&&/option&&+chr(13)+chr(10) rs.movenext loop rs.close %& &/select&&input class=&buttonface& type=&submit& value=&查 询& name=&cmdTopic&&&/div& &/form& &/td& &/tr& &/table& &/center&&/div&&/td& &/tr& &/table& &/div& &/body& &/html& &html&&script language=&JavaScript&& &/script&&/html& QUERYRESULT.ASP &%@ LANGUAGE=&VBSCRIPT& %& &%option explicit%& &!--#include file=&newconn.asp&--& &!-- #include file=& inc/char.inc& --& &!-- #include file=&inc/chkstr.inc&--& &html& &head& &meta NAME=&GENERATOR& Content=&Microsoft Visual InterDev 1.0&& &meta HTTP-EQUIV=&Content-Type& content=&text/ charset=gb2312&& &meta HTTP-EQUIV=&Expires& CONTENT=&0&& &link rel=&stylesheet& type=&text/css& href=&forum.css&& &title&查 询 结 果 &/title& &style type=&text/css&& &!-body { background-color: #00CCFF; } --& &/style&&/head& &body & &% dim sql,rs dim itype dim topic dim UserName dim bID dim boardtype dim iroot dim t dim bytestr bID=0 itype=request(&type&) if request(&selBoard&)&&&& then bID=request(&selBoard&) if iis3onchsys=true then topic=HTMLCharacter(trim(request(&txtTopic&))) else topic=trim(request(&txtTopic&)) end if if iis3onchsys=true then UserName=HTMLCharacter(trim(request(&txtUser&))) else Username=trim(request(&txtUser&)) end if sql=&select Boardtype from board where boardID=&&cstr(bID) set rs=server.createobject(&adodb.recordset&) rs.open sql,conn,1,1 if not (rs.bof and rs.eof) then boardtype=rs(0) end if rs.close response.write &&strong&&&boardtype&&&/strong&& response.write & &a href='Announce.asp?boardID=&&bid&&' target=&+chr(34)+&BoardAnnounce&+chr(34)+&& 我 要 发 言 &/a& &a href='List.asp?boardID=&&bid&&'& 刷新浏览&/a& &br&&+chr(13)+chr(10)
if (trim(topic)=&& and trim(UserName)=&&) OR BID=0 then response.write &&center&&big& 没 有 输 入 查 询 条 件。:o(&/big&&/center&&+chr(13)+chr(10) else select case itype case 1 sql=&select * from bbs1 where (topic like '%&&checkStr(topic)&&%') and boardID=&&cstr(bID)&& ORDER BY announceID desc & case 2
sql=&select * from bbs1 where (username='&&checkStr(UserName)&&') and boardID=&&cstr(bID)&& ORDER BY announceID desc & end select rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write &&center&&big& 没 有 找 到 。 :o(&/big&&/center&&+chr(13)+chr(10) else '-----------------------------------------------------------------------response .write & 查 询 结 果 ， 找 到 &&cstr(rs.recordcount)+chr(13)+chr(10) response.write &&ul&&+chr(13)+chr(10) rs.movefirst do while not rs.eof response.write &&li&& dim newimgstr newimgstr=&& if trim(rs(&dateandtime&))&&&& and isdate(rs(&dateandtime&)) then if cbool(cdate(rs(&dateandtime&))&(date()-1))=true then newimgstr=&&img src='images/&&rs(&Expression&)&&' border=0&&+chr(13)+chr(10) end if response.write newimgstr iroot=rs(&rootID&) if rs(&rootID&)=0 then iroot=rs(&announceID&) rem response.write iroot response.write & &a href='ShowAnnounce.asp?boardID=&&cstr(rs(&BoardID&))&&&RootID=&&cstr(iroot)&&&ID=&&Cstr(rs( &AnnounceID&))&&' target='BoardAnnounce'&& if rs(&Length&)=0 then t=& &无内容&& else t=& & end if if pwsonchsys then showBody rs(&Topic&)+t response.write Server.HTMLEncode(rs(&Topic&)+t) end if bytestr=&(&+cstr(rs(&length&)) if not WINNT_CHINESE then if rs(Length)-1=1 then bytestr=bytestr+& Byte)& else bytestr=bytestr+& Bytes)& end if else bytestr=bytestr+& 字 )& end if response.write &&/a& &strong&& if pwsonchsys then showBody rs(&UserName&) else response.write Server.HTMLEncode(rs(&UserName&)) end if response.write & &/strong&&em&&font color='red'&&+ rs(&dateAndTime&)+&&/font&&/em& & +&&font color='darkblue'&[ID:&+cstr(rs(&announceID&))+& 点 击:&+cstr(rs(&hits&))+&]&/font& & + bytestr + & &font color='red'&(& + Cstr(rs(&child&))+&)&/font&&+chr(13)+chr(10) end if if trim(rs(&DateAndTime&))&&&& and isdate(rs(&DateAndTime&)) then if cbool(cdate(rs(&DateAndTime&))&(dat
e()-1))=true then response.write &&img src='images/new.gif'&&+chr(13)+chr(10) end if end if response.write &&/li&&+chr(13)+chr(10) rs.movenext loop response.write &&/ul&&+chr(13)+chr(10) end if rs.close end if %& &/body& &/html& &html&&script
language=&JavaScript&& &/script&&/html& 论坛用户个人资料（包括密码、信息）修改页面 MYINFO.ASP &%@ LANGUAGE=&VBSCRIPT& %& &!--#include file=&newconn.asp&--& &% dim username dim txtpwd dim sql dim rs dim errmsg dim founderror dim msg dim UserID username=trim(request(&name&)) txtpwd=trim(request(&txtpwd&)) newpwd=trim(request(&newpwd&)) compwd=trim(request(&compwd&)) FoundError=false if username=&& then ErrMsg=&请输入姓名& foundError=True elseif txtpwd=&& then ErrMsg=& 请 输 入 旧 密 码 & foundError=True end if if founderror then session(&ErrMsg&)=ErrMsg response.redirect &myinfo.asp?page=2& else %& &html& &head& &meta http-equiv=&Content-Type& content=&text/ charset=gb2312&& &title& 修 改 个 人 信 息 &/title& &meta name=&GENERATOR& content=&Microsoft FrontPage 3.0&& &link rel=&stylesheet& type=&text/css& href=&forum.css&& &script LANGUAGE=&javascript&& &!-function modifyUser_onsubmit() { if(document.modifyUser.Password.value==&&) { alert(&请输入密码！ &) document.modifyUser.Password.focus() return false else if(document.modifyUser.ConfirmPwd.value==&&) { alert(&请输入 确 认 密 码 ！ &) document.modifyUser.ConfirmPwd.focus() return false } else if(document.modifyUser.Password.value!=document.modifyUser.ConfirmPwd.value) { alert(& 密 码 和 确 认 密 码 不 相 同 ， 请 重 新 填 写 ！ &) document.modifyUser.Password.focus() return false } else { return true } } //--& &/script& &style type=&text/css&& &!-body { background-color: #00CCFF; } --& &/style&&/head& &body& &% set rs=server.createobject(&adodb.recordset&) sql=&select * from User& rs.open sql,conn,1,1 if err.number&&0 then response.write & 数据库操作失败：&&err.description else dim FoundUser FoundUser=false do while then FoundUser=True UserID=rs(&UserID&) exit do not (rs.eof or err.number&&0) if ucase(rs(&UserName&))=ucase(UserName) and ucase(rs(&userpassword&))=ucase(txtpwd) if not FoundUser then Msg=&您的名字不存在或您的密码不正确& else %& &p align=&center&& 请 认 真 填 写 下 面 的 内 容 （ &font color=&#FF8040&&&strong&*&/strong&&/font& 为 必 填 项
目 ） &/p& &form method=&POST& action=&savemodify.asp?UserID=&%=UserID%&& name=&modifyUser& LANGUAGE=&javascript& onsubmit=&return modifyUser_onsubmit()&& &div align=&center&&&center&&table border=&0& cellpadding=&0& width=&80%&& &tr& &td width=&35%&&&div align=&right&&&p& 姓 名 ： &/td& &td width=&65%&&&input type=&text& name=&Username& size=&20& maxlength=&20& class=&smallInput& disabled
value=&&%=rs(&username&)%&&&&font color=&#FF8040&&&strong&*&/strong&&/font&&/td& &/tr& &tr& &td width=&35%&&&div align=&right&&&p& 性 别 ： &/td& &td width=&65%&&&input type=&radio& value=& 男 & checked name=&Sex&&&span class=&smallFont&& 男 &/span& &input type=&radio& name=&Sex& value=& 女 &&&span class=&smallFont&& 女 &/span&&font color=&#FF8040&&&strong& *&/strong&&/font&&/td& &%if rs(&sex&)=& 女 & then%& &script language=&javascript&& document.modifyUser.Sex[1].checked=true &/script& &%end if%& &/tr& &tr& &td width=&35%&&&div align=&right&&&p&Email ： &/td& &td width=&65%&&&input type=&text& name=&Email& size=&20& maxlength=&50& class=&smallInput& value=&&%=rs(&useremail&)%&&&&/td& &/tr& &tr& &td width=&35%&&&div align=&right&&&p& 密 码 ： &/td& &td width=&65%&&&input type=&password& name=&Password& size=&20& maxlength=&10& class=&smallInput& value=&&%=rs(&Userpassword&)%&&&&font color=&#FF8040&&&strong&*&/strong&&/font&&/td& &td width=&35%&&&div align=&right&&&p&确认 密 码 ： &/td& &td width=&65%&&&input type=&password& name=&ConfirmPwd& size=&20& maxlength=&10& class=&smallInput& value=&&%=rs(&Userpassword&)%&&&&font color=&#FF8040&&&strong&*&/strong&&/font&&/td& &/tr& &tr& &td width=&35%&&&div align=&right&&&p& 来 自 ： &/td& &td width=&65%&&&input type=&text& name=&Comefrom& size=&30& class=&smallInput&quo
t; maxlength=&255& value=&&%=rs(&comefrom&)%&&&&/td& &/tr& &tr& &td width=&35%&&&div align=&right&&&p& 主 页 ： &/td& &td width=&65%&&&input type=&text& name=&Homepage& size=&30& class=&smallInput& maxlength=&255& value=&&%=rs(&homepage&)%&&&&/td& &/tr& &/table& &/center&&/div&&div align=&center&&&center&&p&&input type=&submit& value=& 发 送 & name=&cmdOK&
class=&buttonface&& &input type=&reset& value=& 重 写 & name=&cmdCancel& class=&buttonface&&&/p& &/center&&/div& &/form& &%end if response.write msg %& &/body& &/html& &%end if%& 结 论 通过毕业设计， 我深化了对 ASP 技术的了解， 也深刻体会到了 ASP 技术的优越性，坚 定了我进一步学习 ASP 的信心。 这次毕业设计， 不仅使我在独立思考、分析和解决问题方 面的能力得到了提高，而 且也丰富了我在系统开发方面的实践经验，使我感到受益匪浅。由 于能力有限，系统的设计和开发难免会存在一些不足之处，敬请各 位老师批评指正。 致 谢 首先，在系统的设计和开发过程中，我得到了我的指导教师 老师大力支持和帮助。不厌其烦 地为我解答我在毕业设计中的许 多问题， 对论文一次次批改， 并对毕业设计提出了许多宝 贵意见， 使我最终能够顺利地完成毕业设计工作。在这里，谨向我的指导 老师表示深深的 敬意和衷心的感谢。 其次，我要感谢在毕业设计过程中，支持和帮助过我的管理 学院的老师和同学们，我的毕业 设计能够最终完成与你们的支持 和帮助是分不开的。 最后，我要向大学生活中所有关心和 帮助过我的老师和同学们 表达我最诚挚的谢意 参考文献： 参考文献： [1] 《ASP 程序设计》 作者：梁建武 陈语林 、出版日期：2001-9 月第一 版、302 页 [2] 《ASP 动态网站设计经典案例》作者： 谯谊等 出版日期：2005 年、 239 页 [3]《ASP.NET 1.1 数据库入门经典》 作者： [美]Damien Foggon/Daniel Maharry 出版日期： 2005 年 09 月、 219 页
本文相关搜索