全套毕业设计毕业论文基于ASP技术的论坛的设计与实现论文-百度文库

基于 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 文档而不会重新设置代码的格式，您可以随后用您首选的格式设置样式来重新设置代码的格式。Dreamweaver 还使您可以使用服务器技术（例如 CFML、https://www.360docs.net/doc/0714726672.html,、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 = "fytb@https://www.360docs.net/doc/0714726672.html," 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.选择所有记录的字段（按记录倒序排序）：sql = "select * from data order 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 '%"@https://www.360docs.net/doc/0714726672.html,"%' 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.MapPath("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 = "fytb@https://www.360docs.net/doc/0714726672.html," 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 的信心。

致谢在此论文的完成过程中，有众多老师的费心指导和一些同学的热情帮助，在此表示万分的谢意。

参考文献 https://www.360docs.net/doc/0714726672.html,/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/html; 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="https://www.360docs.net/doc/0714726672.html,/counter.asp?id=wodeail&style=1"></ script> </center> </body> </html>

论坛积分排行榜POINT.ASP

<%@ LANGUAGE="VBSCRIPT" %> <% option explicit%> <!--#include file="newconn.asp"--> <!-- #include file="inc/char.inc" --> <!-- #include

file="inc/tree.inc"--> <html> <head> <meta http-equiv="Content-Type" content="text/html; 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/html; 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/html; 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"> &nbsp; <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/html; 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 ((https://www.360docs.net/doc/0714726672.html,.value.length<1) ||( https://www.360docs.net/doc/0714726672.html,ame.value.length<1) ) alert("名字不能为空"); else

document.addbt3.submit(); } function check4() { if ((https://www.360docs.net/doc/0714726672.html,.value.length<1)

||( https://www.360docs.net/doc/0714726672.html,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="boardmanager.asp?method=modify&boardid=<%=rsB("boardid&qu ot;)%>&name=<%=rsB("boardtype")%>

"><%=rsB("boardtype")%></a></td> 面</td> 竹</td> 作</td>

<td width=25% align=center><a href="mailto:<%=rsB("masteremail")%>"><%=rsB(&qu ot;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> &nbsp;<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>&nbsp;&nbsp;<INPUT name="way1" class=buttonface TYPE=BUTTON value="修改" onClick="check4()"> &nbsp;&nbsp;<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/html; 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%" 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"> &nbsp; <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/html; 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("masterlogin")="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 showlist() 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& gt;</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"))&&quo t;'>删除 </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&"&amp;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>&nbsp;" else response.write "<a href=emanage.asp?boardID="&boardid&"&amp;page=1>首页</a>&nbsp;" response.write "<a href=emanage.asp?boardID="&boardid&"&amp;page="&C urrentPage-1&">前页</a>&nbsp;" end if if n-currentpage<1 then response.write "<font color='navy'>后页尾页</font>" else response.write "<a href=emanage.asp?boardID="&boardid&"&amp;page="&( CurrentPage+1) response.write ">后页</a> <a href=emanage.asp?boardID="&boardid&"&amp;page="&n &"> 尾页</a>" end if response.write "&nbsp;页次：<strong><font

color=red>"&CurrentPage&"</font>/"&n&&qu ot;</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"> <meta http-equiv="Content-Type" content="text/html; 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&q uot;),mailstr1,mailstr2 showlist() showpage session("boardtype"),boardmaster,totalannounce,request("boardid&q uot;),mailstr1,mailstr2 else response.write "<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 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=list.asp?boardID="&boardid&"&amp;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>&nbsp;" else response.write "<a href=list.asp?boardID="&boardid&"&amp;page=1>首页</a>&nbsp;" response.write "<a href=list.asp?boardID="&boardid&"&amp;page="&Curr entPage-1&">前页</a>&nbsp;" end if if n-currentpage<1 then response.write "<font color='navy'>后页尾页</font>" else response.write "<a href=list.asp?boardID="&boardid&"&amp;page="&(Cur rentPage+1)

response.write ">后页</a> <a href=list.asp?boardID="&boardid&"&amp;page="&n&am p;">尾页 </a>" end if response.write "&nbsp;页次：<strong><font

color=red>"&CurrentPage&"</font>/"&n&&qu ot;</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="newconn.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/html; 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")+"< /strong></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")%>& quot; 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>&nbsp;<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")%&g t;"><font

color="red"><strong>*</strong></font> &nbsp; 密码：<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")%& gt;"></td> </tr> <tr> <td width="14%" align="right">主题：</td> <td width="86%" colspan="2"><% if not(instr(rs("Topic"),"回复:")>0) then%> <p><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">表情：