ASP+ACCESS公司门户网站建设

【摘  要】随着计算机科学的发展，数据库技术在Internet中的应用越来越广泛，为广大网络用户提供了更加周到和人性化的服务。本文讲解了一个公司的网站的建设，它基于数据关联规则的公司个性化页面及动态数据生成案例，在网页方面，综合考虑了页面色彩、页面的构架，充分的利用了图片、文字、图层、表格等元素。网站内容明确，层次清楚，达到了预期的功能。

【关键词】网站  动态   ASP   数据库  ACCESS

1.2．网站实现功能

本网站给客户提供一个了解公司的平台，客户可以与公司及时地交换意见，产生互动，公司也可以及时对网站进行更新维护。

前台客户系统功能：

(1) 用户可以浏览公司的一些基本的信息。

(2) 用户可以浏览公司的新闻。

(3) 用户可以查看公司的联系方式。

(4) 用户可以浏览留言板的帖子。

(5) 用户可以随时发表自己的言论。

后台管理系统功能：

(1) 增加、修改、删除公司的新闻。

(2) 修改、删除留言板帖子。

(3) 浏览、删除最新产品信息。

2.3．网站总体设计

2.3.1．网站层次概况图

公司网站系统分为两个子系统：客户系统和后台系统，其功能如图-1所示。

2.3.2．系统模块设计

1、用户模块

(1) 浏览模块。包括浏览公司首页、公司简介、资格认证、公司新闻、留言板等内容。

(2) 发表留言。为用户提供发表留言的功能。

(3) 浏览新闻。为用户提供浏览信息新闻的功能。

2、管理模块

(1) 管理员登录。管理员要进行管理操作，必须先进行登录。

(2) 新闻管理。对新闻进行增加、删除、修改操作。

(3) 留言管理。对留言进行删除、修改操作。

(4) 产品管理。对产品进行查看、删除操作。

2.4．详细设计


2.4.1．网站整体设计


 
图—2网站整体框架
设计要点：
(1) 由于网站是在1024*768 分辨率环境下做出的，为了适应800*600分辨率，左右部分都留出了适当的距离。
(2)网站banner条和导航条是由Flash效果，是由Macromedia® Flash™ MX 2004做出的。
(3)网页布局进行整体规划,即使用HTML中的table标签
(4)背景颜色设置：<body topmargin="0" bgcolor="#808000">

2.4.2．新闻发布系统设计


1、 新闻发布系统流程图

图—3新闻发布系统数据流程图
2、news表设计
 
图—4new表设计图
（1）cont 设计成备注类型的这样最多可以容纳65535个字符。
（2）time默认值要设成date()，如图：
 
图—5设置字段　time
3、 后台新闻页面设计
(1)addnews.asp

　图—6新闻发布页面
①此页面用来添加新闻，当管理员登录后，点击导航栏中的发布新闻，就可以显示本页。这里用到了超链接和框架： <a href=news/addnews.asp target=mainFrame>发布新闻</a>；<a.</a>是超链接标签，target=mainframe表示所链接的网页在框架中显示。
②当管理员添加完新闻后，单击确定，通过数据库驱动程序新闻就添加到数据库中，并在显示页面中显示。
(2) editnews.asp


 
图—7编辑新闻页面
本页是用来确定对哪条新闻进行哪种操作。首先读取所有新闻，然后根据需要向删除（modify.asp）或修改（dellnews.asp）页面传递需要编辑的新闻的编号。
(3)modify.asp


 
　图—8修改新闻页面
　　　通过editnews.asp传递来的新闻编号，显示需要修改的新闻内容。管理员可以对新闻标题和内容进行修改。
(4) dellnews.asp


 
　图—9删除新闻页面
通过editnews.asp传递来的新闻编号，显示需要删除的新闻内容。单击确定实现新闻的删除。

4、显示页面设计
 (1) index.asp

①为了保证首页的风格，新闻在首页的显示条目为8条，并且是以时间到续方式来读取的："SELECT * FROM news ORDER BY 编号 DESC"
②单击新闻进入详细新闻界面：<A HREF="news/viewnews.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "编号=" & Recordset1.Fields.Item("编号").Value %>"><%=(Recordset1.Fields.Item("title").Value)%></A>
　　 ③向viewnews.asp页面传递新闻编号。
(2)allnews.asp　　
①显示公司的全部新闻标题
②用到了分页功能，根据页面的布局设置每页为18条
③向viewnews.asp页面传递新闻编号。
(3)viewnews.asp

　图—10详细新闻显示页面
　　接收来自index和allnews页面传递来的新闻编号，显示具体新闻的详细内容。
2.4.3．在线报名系统设计
1、 报名系统数据流程图


 
　图—11产品添加系统数据流程图

2、 报名系统表设计

 
　图—14在线报名系统数据表
3、 产品添加系统前台页面(zxjs.asp)


 
图—15产品添加页面
　　　想通过网站报名的用户用此页面来填写自己的基本资料，填写好的数据将写入数据库。并在后页面(jieguo.asp)中显示供管理员来查看。
4、 产品添加系统后台管理页面
（1）查看产品页面(jieguo.asp)


 
　图—16前台查看页面

①    分页显示报名者的记录
②    向jieguodell.asp页面传递要删除的报名记录的编号
（2）删除报名页面


 
图—17后台删除页面
　显示通过jieguo.asp传递来的报名编号的报名者的资料，可以对这条记录进行删除。
2.4.4．在线留言系统设计
1、 留言系统数据流程图


 
2、留言系统数据表设计


 
　图—19留言系统数据表

3、显示留言页面(chat/index.asp)


 
　图—20留言系统留言显示页面
　　　①分页显示用户的留言
　　　②链接其它页面
此页面是用户用来发表留言的，在用户填写好留言后，数据将会写入数据库，并在chat/index.asp中显示。
5、留言管理页面
  (1) 回复留言页面
管理员可以用此页面对客户提出的问题进行回复。
(2) 修改留言页面(edit.asp)


 
图—23留言系统修改留言页面
　　　　  ①修改编号为由index.asp(管理员)传递来的新闻　    　　　
②管理员可以通过此页面对留言中存在的一些基本的错误进行修改。
　  （3）删除留言（del.asp）
        ①删除编号为由index.asp(管理员)传递来的新闻。
　　　②删除过时留言或恶意留言内容。
2.4.5．网页关键代码：
1、数据库连接
使用ODBC驱动程序对数据库创建连接
<%
Dim MM_xxnew_STRING
MM_xxnew_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&server.mappath("db/xxnews.mdb")
%>
2、登录检验代码：
管理员登录后建立session变量
Session("admin")=username
权限的合法验证
<%
Function checkPermission()
If Session("admin")<>"" then
checkPermission=TRUE
Else
checkPermission=FALSE
End if
End Function
tmpadmin=checkPermission()
If tmpadmin<>TRUE then
response.redirect "login.asp? "/如果不能通过验证，转到页面longin.asp
End if
%>
3、创建记录集代码：
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_xxnew_STRING
Recordset1.Source = "SELECT * FROM news ORDER BY id DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
添加代码：
Recordset1.addnew
Recordset1 ("title")=title
Recordset1 ("content")=content
Recordset1.update

更新代码：
sql="update from Vote where ID="传递来的参数""
conn.Execute sql

删除代码：
sql="delete from Vote where ID="传递来的参数""
conn.Execute sql
4、关闭记录集
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
5、分页显示代码：
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 3
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<% If Recordset1.EOF And Recordset1.BOF Then %>
<div align="center">暂时没有提交信息！</div>
<% End If %>
<% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %>
<% If Not Recordset1.EOF Or Not Recordset1.BOF Then %>
要显示的内容部分………
<% End If%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
<p>
目前共有<%=Recordset1.RecordCount%>条记录
从第<%=(Recordset1_first)%>条到第<%=(Recordset1_last)%>条
</p>
<p>
<A HREF="<%=MM_moveFirst%>">第一页</A>
<A HREF="<%=MM_movePrev%>">前一页</A>
<A HREF="<%=MM_moveNext%>">后一页</A>
<A HREF="<%=MM_moveLast%>">最后一页</A>
</p>
6、包含文件代码：
通过包含文件可以方便的对网页进行管理操作：
<!--#include file="文件路径" -->
7、空格输出问题的解决
在<head></head>中加入代码：
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
function DoWhiteSpace(str)
DoWhiteSpace = Replace((Replace(str, vbCrlf, "<br>")), chr(32)&chr(32),"&nbsp;&nbsp;")
End Function
</SCRIPT>
然后在要输出的地方加入代码：
<%=DoWhiteSpace(Server.HTMLEncode(要输出的变量)%>
8、转到详细页面：
<%
Dim MM_paramNam,MM_keepNone,MM_keepURL,MM_keepFormMM_keepBoth,MM_removeList,MM_item ,MM_nextItem
MM_removeList = "&index="
If (MM_paramName <> "") Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If
MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
End If
Next
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "")  Then
MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<A HREF="页面路径?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "id=" & Recordset1.Fields.Item("id").Value %>">转到详细页面的链接</A>
9、滚动字幕实现
<SCRIPT language=JavaScript>
<!--
var index = 13
text = new Array(13);
text[0] =''
text[1] ='文本内容 '
text[2] ='文本内容'
.
.
.
text[13] ='文本内容'
document.write("<marquee  scrollAmount='1'  scrollDelay= '6' direction='up' width='158' height='168'  οnmοuseοver=this.stop() οnmοuseοut=this.start()>");
for (i=0;i<index;i++){
document.write (text[i] + "<br>");
}
document.write ("</marquee>")
10、CSS样式控制：
<link rel="stylesheet" href=" css文件路径" type=text/css>
A:link{TEXT-DECORATION:none ;Color:#000000}
A:active{TEXT-DECORATION:none ;}
A:visited{TEXT-DECORATION:none ;}
A:hover{Color:#4455aa}
td{font-size:9pt}
.jianju {
letter-spacing: 2px;
line-height: 200%;
}
 

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

如若内容造成侵权/违法违规/事实不符，请联系我们进行投诉反馈qq邮箱809451989@qq.com，一经查实，立即删除！

相关文章

Kubeadm安装部署k8s集群、踩坑日常

Kubeadm安装部署k8s集群、踩坑日常

背景 ​ Docker是一个非常流行的容器化平台&#xff0c;它可以让我们方便构建、打包、发布和运行容器化应用程序。但是&#xff0c;在生产环境中&#xff0c;我们可能需要处理成百上千个容器&#xff0c;需要更好的管理这些容器&#xff0c;这就是Kubernetes(K8S)的用武之地。…
阅读更多...
利用大语言模型增强网络抓取：一种现代化的方法

利用大语言模型增强网络抓取：一种现代化的方法

本文将探讨大语言模型(LLMs)与网络抓取的集成&#xff0c;以及如何利用LLMs高效地将复杂的HTML转换为结构化的JSON。 作为一名数据工程师&#xff0c;我的职业生涯可以追溯到2016年。那时&#xff0c;我的主要职责是利用自动化工具从不同网站上获取海量数据&#xff0c;这个过…
阅读更多...
网络模型-策略路由配置

网络模型-策略路由配置

在实际网络应用中&#xff0c;策略路由也是一种重要的技术手段。尽管在考试并不注重策略路由&#xff0c;但是实际上应用较多建议考生除了掌握基本的静态路由协议IP route-static&#xff0c;动态路由协议RIP、还要掌握如何配置策略路由。策略路由的基本原理:根据ACL定义的不同…
阅读更多...
云界洞见：移动云服务开启技术创新与问题解决的新篇章

云界洞见：移动云服务开启技术创新与问题解决的新篇章

一、什么是移动云 移动云以“央企保障、安全智慧、算网一体、属地服务”为品牌支撑&#xff0c;聚焦智能算力建设&#xff0c;打造一朵智能、智慧、安全可信可控的云&#xff0c;提供更优质的算力服务&#xff0c;引领云计算产业发展。 那么下面博主带领大家了解移动云的优势所…
阅读更多...
Golang单元测试

Golang单元测试

文章目录 传统测试方法基本介绍主要缺点 单元测试基本介绍测试函数基准测试示例函数 传统测试方法 基本介绍 基本介绍 代码测试是软件开发中的一项重要实践&#xff0c;用于验证代码的正确性、可靠性和预期行为。通过代码测试&#xff0c;开发者可以发现和修复潜在的错误、确保…
阅读更多...
【vue-cli搭建vue项目的过程2.x】

【vue-cli搭建vue项目的过程2.x】

vue-cli搭建vue项目 vue-cli搭建vue项目安装node安装vue-cli脚手架并创建项目安装 Ant Design Vue或element-ui(笔者使用Ant-design-vue组件&#xff0c;并全局引入)开发安装三方库包1、Package.json文件---引入如下package.json文件执行npm i或npm install命令即可下载如下依赖…
阅读更多...
Cloudflare Worker 部署bingai

Cloudflare Worker 部署bingai

Cloudflare Worker 部署 1. 注册 Cloudflare 账号 2. 一键部署 登录账户后, 点击下面链接 https://deploy.workers.cloudflare.com/?urlhttps://github.com/Harry-zklcdc/go-proxy-bingai 点击「Authorize Workers」, 登录 Github 账号授权 Cloudflare 点击「I have a ac…
阅读更多...
输入输出（3）——C++的标准输入流

输入输出（3）——C++的标准输入流

目录 一、cin 流 二、成员函数 get 获取一个字符 (一)无参数的get函数。 (二)有一个参数的get函数。 (三&#xff09;有3个参数的get函数 (四&#xff09;用成员函数 getline 函数读取一行字符 (五&#xff09;用成员函数 read 读取一串字符 (六&#xff09;istream 类…
阅读更多...
【Basic】Upload-Labs-Linux

【Basic】Upload-Labs-Linux

文章目录 前言Pass-01Pass-02Pass-03Pass-04Pass-05Pass-06Pass-07Pass-08Pass-09Pass-10Pass-11Pass-12Pass-13Pass-14Pass-15Pass-16解题感悟 前言 美好的一天从刷题开始 Pass-01 我淦20道题&#xff1f;&#xff1f;&#xff1f;一道一道来吧 先看第一道题 先在home里搞一…
阅读更多...
蜂窝物联四情监测：助力农业升级，科技赋能打造丰收新篇章！

蜂窝物联四情监测：助力农业升级，科技赋能打造丰收新篇章！

农业四情指的是田间的虫情、作物的苗情、气候的灾情和土壤墒情。“四情”监测预警系统的组成包括管式土壤墒情监测站、虫情测报灯、气象站、农情监测摄像机&#xff0c;可实时监测基地状况,可以提高监测的效率和准确性&#xff0c;为农业生产提供及时、科学的数据支持&#xff…
阅读更多...
碌时刻必备！微信自动回复让你告别消息堆积

碌时刻必备！微信自动回复让你告别消息堆积

在忙碌的时候&#xff0c;我们往往会面临消息堆积如山的情况。无法及时回复消息不仅容易造成交流障碍&#xff0c;还可能错过重要的机会。 但是现在&#xff0c;有一个神奇的工具——个微管理系统&#xff0c;可以帮助我们轻松应对这个问题 &#xff0c;实现微信自动回复。 首…
阅读更多...
基于YOLOv8+PySide6的快递分类管理系统

基于YOLOv8+PySide6的快递分类管理系统

1、背景 随着电子商务的飞速发展&#xff0c;快递行业所承受的数据处理需求愈发庞大。在这样的背景下&#xff0c;传统的手工分类方法已经显得力不从心&#xff0c;因其不仅耗时耗力&#xff0c;还存在着易出错的隐患。因此&#xff0c;迫切需要研发出一套高效而准确的自动化系…
阅读更多...
解决问题：Collecting package metadata (current_repodata.json)--faile

解决问题：Collecting package metadata (current_repodata.json)--faile

目录 解决步骤&#xff1a; 1、创建pip.ini文件&#xff1a;winR对话框中复制输入&#xff1a;%APPDATA%&#xff0c;然后回车。 2、conda添加清华源&#xff1a; 3、这些创建完&#xff0c;重启电脑就可以创建你的虚拟环境了 4、利用镜像源下载库&#xff1a; 5、查看to…
阅读更多...
F.费用报销【蓝桥杯】/01背包

F.费用报销【蓝桥杯】/01背包

费用报销 01背包 思路&#xff1a;f[i][j]表示前i个票据在容量为j的背包中能占的最大值。 #include<iostream> #include<algorithm> using namespace std; int day[13]{0,31,28,31,30,31,30,31,31,30,31,30,31}; int dp[1005][5005]; int s[13]; int last[1005];…
阅读更多...
Vue从入门到实战Day07

Vue从入门到实战Day07

一、vuex概述 目标&#xff1a;明确vuex是什么&#xff0c;应用场景&#xff0c;优势 1. 是什么&#xff1a; vuex是一个vue的状态管理工具&#xff0c;状态就是数据。 大白话&#xff1a;vuex是一个插件&#xff0c;可以帮助我们管理vue通用的数据&#xff08;多组件共享的…
阅读更多...
01.msf

01.msf

文章目录 永恒之蓝下载msfconsolemsfvenom 永恒之蓝 下载 msdn.itellyou.cn msfconsole M e t a s p l o i t C y b e r M i s s i l e C o m m a n d Metasploit Cyber Missile Command MetasploitCyberMissileCommand 的简称 search ms17_010 use 0 或者 use exploit/wind…
阅读更多...
WordPress国外超人气主题Vikinger汉化版

WordPress国外超人气主题Vikinger汉化版

WordPress国外超人气主题Vikinger汉化版 前言效果图安装教程领取主题下期更新预报 前言 我们在上一个教程已经学过如何安装WordPress&#xff0c;所以现在不用多说。 效果图 安装教程 下载后先本地解压&#xff0c;找到vikinger.zip文件&#xff0c;上传安装并启用主题。 访…
阅读更多...
什么是SSL证书？如何选择SSL证书？

什么是SSL证书？如何选择SSL证书？

在浏览网站的时候&#xff0c;你会不会有这样一些疑问。 为什么有的网站是http://开头&#xff0c;有的却是https://&#xff1f;它们有什么区别吗&#xff1f; 经常访问的网站&#xff0c;浏览器突然提示“安全证书过期”&#xff0c;提醒你不要浏览该网址&#xff1f; 这一切…
阅读更多...
算法打卡 Day13（栈与队列）-滑动窗口最大值 + 前 K 个高频元素 + 总结

算法打卡 Day13（栈与队列）-滑动窗口最大值 + 前 K 个高频元素 + 总结

文章目录 Leetcode 239-滑动窗口最大值题目描述解题思路 Leetcode 347-前 K 个高频元素题目描述解题思路 栈与队列总结 Leetcode 239-滑动窗口最大值 题目描述 https://leetcode.cn/problems/sliding-window-maximum/description/ 解题思路 在本题中我们使用自定义的单调队列…
阅读更多...
腾讯面试：如何提升Kafka吞吐量？

腾讯面试：如何提升Kafka吞吐量？

面试题大全&#xff1a;www.javacn.site Kafka 是一个分布式流处理平台和消息系统&#xff0c;用于构建实时数据管道和流应用。它最初由 LinkedIn 开发&#xff0c;后来成为 Apache 软件基金会的顶级项目。 Kafka 特点是高吞吐量、分布式架构、支持持久化、集群水平扩展和消费组…
阅读更多...
最新文章

Copyright @ 2022~2023