ASP+ACCESS基于WEB社区论坛设计与实现

摘要:系统主要实现BBS网站全部功能。采用目前应用最为广泛的ASP作为开发工具来开发此系统、以保证系统的稳定性。采用目前最为流行的网页制作工具Dreamweaver和目前最为流行的动画制作工具Flash MX。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发,完成会员的注册,会员发帖,浏览新帖等所要完成的功能和开发的过程。重点的说明了系统设计的重点、设计思想、难点技术和解决方案。我的模块是考勤承认子系统.只要的功能是从数据库里查找出所有员工的出勤和作业信息,供领导的审批。因为审批的项目多,所有要从多个表中查询,这就需要功能强大的数据库支持。如何利用COM组件在数据库里查找数据,就是本论文的核心内容。

关键字:BBS,COM组件,ASP

三、 系统设计

(一)  模块划分

基于B/S模型构建论坛分以下二个模块:

1.论坛用户管理

(1) 用户注册

      将用户信息保存到数据库中。注册的信息用于在论坛中识别身份。

(2) 用户信息修改

      修改数据库中的用户信息。修改信息分为两个部分。

修改用户基本信息和修改密码。

(3) 用户登录

      用户输入注册的用户名密码登入系统。系统将设别用户身份。系统将用户信息和系统时间显示在主页上。

2.论坛贴子管理

(1) 发表新贴

      用户登录后在论坛主页可以发表新贴。新贴是新的讨论的开始。只有登录的用户才能发表新贴。

(2) 用户回帖

      论坛的用户登录以后可以回复其他人发表的贴子。只有登录的用户才能回帖。回帖能恢复文本信息不能发送图片。

(3) 删除旧帖

      超级管理员登录以后可以删除过期的就贴,和违反规定的,不合法的贴子。

3.后台管理

(1) 用户管理

      超级用户登录后,进入后台管理系统。点击用户管理并进入。超级用户可以编辑、删除普通用户。编辑包括修改用户信息、改普通用户为高级用户。系统的唯一管理员是admin。

(2) 贴子加精

      管理员进入系统后可以设置某个贴子为精华帖子。精华帖子的图标和普通帖子的图标不同。

(3) 帖子置顶

      管理员进入系统后可以设置某个贴子置顶。置顶帖子的图标和普通帖子的图标不同。

(4) 友情连接管理

      管理员进入系统后可以设置友情连接。输入LOGO图标地址和连接地址,友情连接会以图片的形式出现在页面底部。

(5) 版权信息管理

      管理员进入系统后可以设置版权信息。版权信息在页面的底部。

(二)  页面设计

1.论坛用户管理

(1) 用户注册

图1-1-1

(2) 用户信息修改

     

图2-1

图1-2-2

(3) 用户登录

    

图1-3-1

2.论坛贴子管理

(1) 发表新贴

     

图2-1-1

(2) 用户回帖

     

图2-2-1

(3) 删除旧帖

   

图2-3-1

3.后台管理

(1) 用户管理

     

图3-1-1

(2) 友情连接管理

    

图3-2-1

(3) 版权信息管理

 

图3-3-1

(三)  数据库设计描述

1.帖子信息表

GO

CREATE TABLE [dbo].[Content] (

       [ContId] [varchar] (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,

       [Subject] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,

       [Words] [varchar] (1000) COLLATE Chinese_PRC_CI_AS NULL ,

       [UserName] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,

       [CreateTime] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,

       [LastAnswerTime] [char] (30) COLLATE Chinese_PRC_CI_AS NULL ,

       [HitCount] [int] NULL ,

       [IsTop] [int] NULL ,

       [face] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,

       [tian] [datetime] NULL

) ON [PRIMARY]

GO

2.回复表

GO

CREATE TABLE [dbo].[HuiFu] (

       [Hid] [int] IDENTITY (1, 1) NOT NULL ,

       [ContId] [varchar] (20) COLLATE Chinese_PRC_CI_AS NULL ,

       [Hobj] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,

       [Hwords] [varchar] (1000) COLLATE Chinese_PRC_CI_AS NULL ,

       [Husers] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,

       [Hsex] [varchar] (2) COLLATE Chinese_PRC_CI_AS NULL ,

       [Hface] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,

       [Hlasttime] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,

       [Hquan] [int] NULL ,

       [Hlogo] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,

       [Hemail] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL

) ON [PRIMARY]

GO

3.链接表

GO

CREATE TABLE [dbo].[link] (

       [linkid] [int] IDENTITY (1, 1) NOT NULL ,

       [linkurl] [varchar] (30) COLLATE Chinese_PRC_CI_AS NULL ,

       [linklogo] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL

) ON [PRIMARY]

GO

4.用户表

GO

CREATE TABLE [dbo].[Users] (

       [UserId] [int] IDENTITY (1, 1) NOT NULL ,

       [UserName] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,

       [UserSex] [varchar] (2) COLLATE Chinese_PRC_CI_AS NULL ,

       [UserPwd] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,

       [Email] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,

       [Logo] [char] (50) COLLATE Chinese_PRC_CI_AS NULL ,

       [Qan] [int] NULL

) ON [PRIMARY]

GO

4.附加表

GO

CREATE TABLE [dbo].[FuJia] (

       [banquan] [varchar] (100) COLLATE Chinese_PRC_CI_AS NULL ,

       [pagenum] [int] NULL

) ON [PRIMARY]

GO

四、 系统实现

(一)  用户注册

%>

              <%

                           

                                   set rs=con.execute("select username from users where username='"& rname &"'")

                                   if rs.eof=false then

                                          response.Write("用户名已经有人注册过了,请重新填写<br><br>")%>

                                          <a href="reg.asp" class="hlink"><font class="aa" >返回注册页面</font></a>

                                   <%else<%

              set con=server.CreateObject("adodb.connection")

           set rs=server.CreateObject("adodb.recordset")

        con.open"provider=sqloledb.1;data source=.;uid=sa;pwd=sa;database=Discuss"

              rname=request.Form("regname")

              rsex=request.Form("sex")

              rpass=request.Form("pwd1")

              rcpass=request.Form("pwd2")

              remail=request.Form("email")

              rface=request.Form("face")

              application("face")=rface

              if rsex=1 then

                     fsex="男"

              else

                     fsex="女"

                                          set rs=con.execute("insert into users(username,usersex,userpwd,email,logo,qan) values('"&rname&"','"&fsex&"','"&rpass&"','"&remail&"','"&rface&"',0)")

                                          response.Write("<br>恭喜您注册成功<br><br>")

                                          response.Write("您的用户名是:<font color=red>"&rname&"</font><br><br>")

                                          response.Write("您的密码是:<font color=red>"&rpass&"</font><br><br>")%>

                                          <meta HTTP-EQUIV=REFRESH CONTENT='2; URL=index.asp'>

                                          <a href="index.asp" class="hlink"><font class="aa">返回首页面</font><br><br></a>

                                   <%end if%>

             

(二)  用户登录

<%

   if rs.eof=false then

         session.Timeout=30

         session("username")=uname

         session("userpassword")=upass

         session("uquan")=rs("Qan")

         session("face")=rs("logo")

         session("usex")=rs("UserSex")

         session("tt")=rs("Email")%>

         登陆成功,感觉社区欢迎您<br><br><a href="index.asp" class="hlink">返回首页</a>

         <meta HTTP-EQUIV=REFRESH CONTENT='2; URL=index.asp'>

         <%tt=Trim(Request.Form("cook"))

         select case tt

            case 1

                     Response.Cookies("userinfo")("uname") = Trim(Request.Form("uname"))

                     Response.Cookies("userinfo")("upwd")=Trim(Request.Form("upwd"))

              case 2

                     Response.Cookies("userinfo").Expires=Date+1

                     Response.Cookies("userinfo")("uname") = Trim(Request.Form("uname"))

                     Response.Cookies("userinfo")("upwd")=Trim(Request.Form("upwd"))

              case 3

                     Response.Cookies("userinfo").Expires=Date+31

                     Response.Cookies("userinfo")("uname") = Trim(Request.Form("uname"))

                     Response.Cookies("userinfo")("upwd")=Trim(Request.Form("upwd"))

              case 4

                     Response.Cookies("userinfo").Expires=Date+365

                     Response.Cookies("userinfo")("uname") = Trim(Request.Form("uname"))

                     Response.Cookies("userinfo")("upwd")=Trim(Request.Form("upwd"))

         end select 

  else%>

     密码或用户名错误请重新<a href="login.asp" class="hlink"><font color="#0066CC">登陆</font></a>或<a href="reg.asp" class="hlink"><font color="#0066CC">注册</font></a><br><br><a href="index.asp" class="hlink">返回首页</a>

  <%end if

   %>

(三)  显示发贴信息

<SCRIPT language=javascript>

<!--

function checkform(){

       if (document.zhuform.zhuti.value == "" || document.zhuform.textfield.value==""){

              alert("请填写主题标题或主题内容" );

              document.zhuform.zhuti.focus();

              return(false);

       }

              if (document.zhuform.zhuti.value.length>50){

              alert("主题标题不能超过50个字符" );

              document.zhuform.zhuti.focus();

              return(false);

       }

              if (document.zhuform.textfield.value.length>1000){

              alert("主题内容不能超过1000个字符" );

              document.zhuform.zhuti.focus();

              return(false);

       }

}

-->

</SCRIPT>

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/diannao/14776.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

卤菜销售|基于SSM+vue的智能卤菜销售平台的设计与实现(源码+数据库+文档)

智能卤菜销售平台 目录 基于SSM&#xff0b;vue的智能卤菜销售平台的设计与实现 一、前言 二、系统设计 三、系统功能设计 1系统功能模块 2管理员功能模块 3用户功能模块 4商家功能模块 四、数据库设计 五、核心代码 六、论文参考 七、最新计算机毕设选题推荐 八…

windows查看mysql的版本(三种方法)

方法一&#xff1a;在win r 打开 cmd&#xff0c;在cmd命令状态下&#xff1a;mysql --help 回车即可 方法二&#xff1a;在mysql客户端窗口状态下&#xff1a;输入status并回车即可 在计算机开始菜单搜索以上应用打开即可进入mysql客户端窗口。 方法三&#xff1a;在mys…

pikachu-Unsafe Filedownload

任意点击一个图片进行下载&#xff0c;发现下载的url。 http://127.0.0.1/pikachu/vul/unsafedownload/execdownload.php?filenamekb.png 构造payload&#xff1a; 即可下载 当前页面的源码&#xff0c;可以进行路径穿越来下载一些重要的配置文件来获取信息。 http://127.0.…

[AI Google] 10个即将到来的Android生态系统更新

新的体验带来了更强的防盗保护、手表电池寿命优化&#xff0c;以及对电视、汽车等的娱乐功能改进。 昨天&#xff0c;我们分享了Android如何以人工智能为核心重新构想智能手机。今天&#xff0c;我们推出了Android 15的第二个测试版&#xff0c;并分享了更多我们改进操作系统的…

Python导入Shapefile到PostGIS的常见问题和解决方案

导入Shapefile到PostGIS的常见问题和解决方案 先决条件&#xff1a; 已经拥有含有GDAL的python环境&#xff08;如果大家需要&#xff0c;我可以后面出一片文章 问题一&#xff1a;QGIS连接到PostGIS数据库失败 错误描述&#xff1a; Connection to server at &quo…

2024 CCF国际AIOps挑战赛·赛题与赛制解读

本文根据本届挑战赛程序委员会主席、中国科学院计算机网络信息中心副研究员裴昶华在2024 CCF国际AIOps挑战赛线下宣讲会上为《2024 CCF国际AIOps挑战赛赛题与赛制》的分享整理而成&#xff0c;全文分为挑战赛背景介绍、题目简介、流程说明和评分规则等部分&#xff0c;最后简要…

别对我动心短视频:成都鼎茂宏升文化传媒公司

别对我动心短视频&#xff1a;时代的爱情哲学与心理探索 在短视频的海洋里&#xff0c;"别对我动心"这样的标题&#xff0c;如同一颗石子投入平静的湖面&#xff0c;激起了层层涟漪。它不仅仅是对一段情感的拒绝&#xff0c;更是一种现代人情感态度的表达&#xff0…

14 vue学习:透传Attributes

Attributes 继承 “透传 attribute”指的是传递给一个组件&#xff0c;却没有被该组件声明为 [props]或 [emits]的 attribute 或者 v-on 事件监听器。最常见的例子就是 class、style 和 id。 当一个组件以单个元素为根作渲染时&#xff0c;透传的 attribute 会自动被添加到根元…

【全部更新完毕】2024长三角数学建模A题思路代码文章教学-“抢救”落水手机

文章摘要部分&#xff1a; “抢救”落水手机 摘要 文章主要探讨了如何科学地处理和搜索在水体中意外掉落的物品&#xff1a;华为 Mate 60 Pro手机和居民身份证。本文基于物理模型和动力学分析&#xff0c;为不同水体环境中的掉落物品提供了详尽的搜索策略和打捞建议。 本文…

[安洵杯 2019]crackMe

直接就退出程序了 找到关键函数了&#xff0c;好像用到了 hook 还有一个 嘿嘿&#xff0c;看着就是像 base64 只是 补‘’改成了‘ &#xff01; ’ 交叉引用啊&#xff0c;翻到一个应该是最后比较函数 1UTAOIkpyOSWGv/mOYFY4R!! 那一坨对 a1数组的操作没看懂 先总结一下就是…

SpringBoot搭建Eureka注册中心

系列文章目录 文章目录 系列文章目录前言前言 前些天发现了一个巨牛的人工智能学习网站,通俗易懂,风趣幽默,忍不住分享一下给大家。点击跳转到网站,这篇文章男女通用,看懂了就去分享给你的码吧。 1、Spring-Cloud Euraka介绍 Spring-Cloud Euraka是Spring Cloud集合中一…

Convolutional Occupancy Networks【ECCV2020】

论文&#xff1a;https://arxiv.org/pdf/2003.04618 代码&#xff1a;GitHub - autonomousvision/convolutional_occupancy_networks: [ECCV20] Convolutional Occupancy Networks 图 1&#xff1a;卷积占据网络。传统的隐式模型 (a) 由于其全连接网络结构&#xff0c;表现能力…

继承初级入门复习

注意&#xff1a;保护和私有在类中没有区别&#xff0c;但是在继承中有区别&#xff0c;private在继承的子类不可见&#xff0c;protect在继承的子类可见 记忆方法&#xff1a;先看基类的修饰符是private&#xff0c;那都是不可见的。如果不是&#xff0c;那就用继承的修饰和基…

gstreamer Windows常见问题汇总

需要先安装gstreamer , 再编译opencv。https://gstreamer.freedesktop.org/download/&#xff0c;都需要安装。 OpenCV Error: Unspecified error (The function is not implemented. Rebuild the library with Windows, GTK 2.x or Carbon support. If you are on Ubuntu or D…

肌肤暗沉与胶原蛋白:解锁透亮肌肤的秘密

&#x1f338;亲爱的小仙女们&#xff0c;今天我们来聊聊肌肤暗沉与胶原蛋白之间的神秘联系。你是不是也曾为肌肤的暗沉而烦恼&#xff1f;其实&#xff0c;很多时候&#xff0c;肌肤的暗沉不仅仅是外部因素造成的&#xff0c;更与肌肤内部的胶原蛋白含量密切相关。&#x1f31…

系统架构师-考试-基础题-错题集锦1

系统架构师-考试-基础题-错题集锦 1.当一台服务器出现故障时将业务迁移到另外一台物理服务器上&#xff0c;保障了业务的连续性。 2.面向对象&#xff1a; 实体类&#xff0c;边界类&#xff0c;控制类 3.RUP&#xff1a;UP&#xff0c;统一过程&#xff0c;以架构为中心&am…

LeetCode700二叉搜索树中的搜索

题目描述 给定二叉搜索树&#xff08;BST&#xff09;的根节点 root 和一个整数值 val。你需要在 BST 中找到节点值等于 val 的节点。 返回以该节点为根的子树。 如果节点不存在&#xff0c;则返回 null 。 解析 最基本的二叉搜索树的应用&#xff0c;递归或者while循环都可以…

分布式数据库HBase入门指南

目录 概述 HBase 的主要特点包括: HBase 的典型应用场景包括: 访问接口 1. Java API: 2. REST API: 3. Thrift API: 4. 其他访问接口: HBase 数据模型 概述 该模型具有以下特点&#xff1a; 1. 面向列: 2. 多维: 3. 稀疏: 数据存储: 数据访问: HBase 的数据模型…

炼丹学习笔记2---ubuntu2004运行3D Gaussian Splatting记录

前言 主要想看看前沿效果&#xff0c;看看跟激光slam出来效果差多少。折腾过程中&#xff0c;务必 根据本地的cuda版本号&#xff0c;安装对应的torch相关东西。 1、拉仓库 git clone https://github.com/graphdeco-inria/gaussian-splatting.git2、创建环境并激活 conda c…

MySQL详细安装、配置过程,多图,详解

本文适合centos7环境下安装mysql&#xff0c;在安装和卸载过程中&#xff0c;都在root用户下完成。文章目录 清理环境获取mysql官方yum源安装mysql yum源安装mysql服务安装报错解决办法验证是否安装完成启动mysql服务登录服务方法一&#xff1a;方法二&#xff1a;方法三&#…