admin 管理员组

文章数量: 1184232


2024年3月22日发(作者:分段函数excel)

维普资讯

信息 术 

2008年第g期 

中图分类号.TP312 

文献标识码:A 文章编号:1009—2552(2008)09—0106—05 

基于ASP的企业网站建设 

赵洪涛 ,李 霖 

(1.黑龙江省科技信息中心,哈尔滨150001;2.黑龙江农垦通信有限公司,哈尔滨150036) 

摘要:随着信息技术的快速发展,企业应用信息技术提高经济效益、工作效率的需求日益迫 

切,通过网络进行宣传、交流、合作已经成为应用信息技术的首选。简要介绍了动态网站开发 

语言ASP的技术体系,详细阐述了基于ASP基础的相关网站建设的核心技术信息,能够实现一 

个功能强大、应用简便、易于维护、建设成本低廉的网站建设目标,充分体现了基于ASP建设 

网站的优势,为企业提供一个可参考的网站模式和应用信息。 

关键词:动态网站;动态服务器页面;MSSQL;B/S结构 

Enterprise Web construction based on ASP 

ZHA0 Hong—tao .LI Lin2 

(1.Heilongjiang Province Science and Technology Information Center,Harbin 150001,Chhla; 

2.Heilongjiang Agriculture and Reclamatino Correspondence Limited Company,Harbin 150036,china) 

Abstract:The application of the information technology develop fast,many company application it on advance 

ceonomic benefit, work efficiency is SO close, and first choice interact to be propagandize, communicate, 

corporate.The text brief ASP program,particular expatiate this core technology of base ASP program build 

web,show a reference of it for company and government. 

Key words:activity Web;ASP;MSSQL;B/S structure 

0 引言 

器及服务器平台;集成综合查询系统采用多层式 

为实现企业应用信息技术的目标,展现互联网 

WEB架构,执行效能高,扩充能力强,可以使用 

跨地域性便捷、高效、低成本的独特优势,本系统在 

Activex控件继续扩充其功能。 

借鉴国内外相关平台开发经验的基础上,从技术应 

2关键技术内容 

用和网站拓扑架构等方面做了充分分析,为加强信 

系统基于ASP语言结合MS SQL Server数据库, 

息服务、共享共建技术提供平台支撑。 

采用B/S结构开发的交互式信息采集共享平台。 

1 设计思路 

2.1 ASP语言 

设计思路是将信息融为一体集中展示,能够将 

ASP是Microsoft Active Server Pages简称,是一套 

跨国信息做集中分类发布,在丰富信息的同时,为企 

微软开发的服务器端脚本环境,ASP内含于IIs 3.0 

业间项目、技术、人才的交流与合作创造网络条件。 

(Intemet Information Server)及其以上版本中,是一种 

主要技术关键点是信息数据的整合问题,即将 

类似HTML、Script与CGI的结合体。其运行效率却 

信息采集、分类、审核、发布全部智能化,以保证各项 

比CGI更高,程序编制也比HTML更方便且更有灵 

信息服务的快捷和高效。 

活性,程序安全及保密性比Script好。通过ASP指 

本系统面向人工体系的组织结构管理,采集基 

令和ActiveX组件可以应用DHTML建立动态的交互 

于浏览器的人性化界面,群件技术结合关系数据技 

的高效的WEB服务器应用程序。所有的程序都是 

术,采用文档数据库+关系数据库的信息管理模式, 

系统设计采用B/S技术,全面支持WWW操作;系统 

收稿日期:2008—08—04 

作者简介:赵洪涛(1978一),男,助理工程师,2003年毕业于黑龙江 

具有良好的可扩展特性,可以适用于各种通用浏览 

大学,本科,从事信息技术的应用与研究。 

】06一 

维普资讯

在服务器端执行,包括所有嵌在普通HTML中的脚 

本程序。当程序执行完毕后,服务器仅将执行的结 

果返回给客户浏览器,这样也就减轻了客户端浏览 

器的负担,大大提高了交互的速度。 

2.2 MS SoL Server数据库 

2.4基于ASP语言结合MS SQL Server数据库,采 

用B/S结构开发的交互式信息采集共享平台 

该平台能够开发多种功能全面、满足多样需求 

的功能模块,一般网站设计可分为以下十二个模块: 

信息采集模块、信息搜索模块、图片视频模块、广告 

MS SQL Server 2000是一个全面的数据库平台, 

使用集成的商业智能(BI)工具提供企业级的数据管 

理。SQL erSver 2000数据库引擎为关系型数据和结构 

化数据提供了更安全可靠的存储功能,可以构建和管 

理用于业务的高可用和高性能的数据应用程序。 

2.3 B/S结构设计 

模块、用户注册模块、消费模块、管理员权限模块、文 

件上传管理模块、数据库管理模块、模板设计模块、 

下载模块、综合模块。各功能模块的开发均十分简 

便,且易于操作、维护。以下将主要介绍三个有代表 

性的功能模块的具体设计、实现过程,来说明此平台 

的建设优点。平台功能模块示意图,如图2所示。 

(1)为了提高系统的使用和维护效率,将一些反 系统基于B/S(Browser/Server,浏览器/服务器模 

式)结构设计,完全兼容各种企业办公网及国际互联 

网。网络拓扑结构图如图1所示。 

机群交换机 

复使用的功能代码都写在同一个文件内,然后由其 

它功能页调用,例如将数据库连接文件存为cOBB. 

asp,然后在其它页面调用方法是<!一#include ifle= 

 ̄onn.asp” ,需将此行命令放在所有代码顶部。 

(2)信息采集模块:实现各类信息的增、删、改、 

查等操作,并自动检测任意页面的浏览率。 

首先要设计数据表,在开发过程中,数据库设计 

至关重要,一个不完善的数据库设计将最终导致网 

站功能的缺失以及13后维护的复杂难度,甚至有可 

能将整个网站系统推翻,造成重复投资、建设。 

数据库的设计要根据业务需求和将来的维护、 

图1网络拓扑结构图 

升级考虑,基于这一点,设计信息采集模块的文章栏 

目表如表1所示。 

图2平台功能模块示意图 

表1文章栏目表 

以上仅为部分字段,其它表、项可以依此类推, 

网站首页在提取栏目文章信息时可以自定义一个函 

数,这样作就能够提高使用效率、降低开发成本,部 

分代码如下: 

・-———

107---—— 

维普资讯

<% 

response.write(ArticlesRs( Tide',)) 

================== 

end if 

’过程名:Articles 

resopnse.Write( </a>”) 

’作用:首页显示某栏目文章 

ArticlesRs.movenext 

’参 数:claLssI 栏目ID 

loop 

’ T0广显示文章数目 

ArticlesRs.close 

’ TideLer广显示标题字符长度 

set ArticlesRs=nothing 

======:==:======:= 

end if 

Sub Articles(ClassID,Top,TitleLen) 

End Sub 

Set ArticlesRs=server.createobject( adodb.record— 

%> 

set' ) 

举例,在相应页面中显示ID为1的栏目中的1O 

ArticlesSql="select*from Article where ClassID: 

条文章,标题字数限制为20字符的函数调用如下: 

&ClassID&"f order by OnTop,updatetime desc 

<%Call Articles(1,10,20)%> 

ArticlesRs.open ArticlesSql,conn,3 

将此函数代码写入function.asp文件,在所有功 

if ArticlesRs.eof or ArticlesRs.bof then 

能页面调用,写在<!一#include file= conn.asp 一 

response.Write( 暂时还没有信息 ) >下面,<!一#include file= function.asp 一>,若有 

else 

的页面调用了此函数,就会自动相应。 

do while not ArticlesRs.eof 

(3)广告模块:能够提供若干漂浮、弹出、固定等 

response. te( <a href=’ArticleShow. 

特殊效果的广告,还可以根据需求选择广告的显示 

asp?ArticlelD= &ArticlesRs( ArticlelD 、1& target= 

位置和数量,以及随时开关等控制,做到自动化 

blank>”) 管理。 

T=replace(ArticlesRs(”Tide' ), 

具体编写方法:首先为每个前台页面归纳板块, 

  , 

每个板块由不同的号码区分,然后广告程序自动检 

iflen(T)>TideLen then 

索属于此板块的广告并在前台显示,从而制作出一 

text=(1eft(T,TideLen)) 

个功能完善的广告模块。下面提供一个代码片段来 

response.write(text&”.. ) 说明广告模块编写方法。 

eles 根据需求广告数据表的设计如表3所示。 

表3广告数据表的设计 

以上仅为部分字段,其它可以依此类推,部分代 

(Channel=” &Channel& or Channel= 0 )and IsSe- 

码如下: 

lected= 1 and ADType= 0 order by id desc” 

<% 

rsAD.open sqlAD,conn,3 

=========:======== 

do while not rsAD.eof 

’过程名:AIlAD 

%> 

’作用:显示广告 

<!一弹出窗口3开始一> 

’参数:Channel——板块ID 

<script lnaguage=”JaVaScri > 

’ ADT)’pe一广告类别 

window.open( notice.asp?Channel:<%= 

=====:====::::=:== 

Channe1%>&ID=<%:rsAD( ID )%> , wolf", 

Dim Channel’定义板块变量 

height=<%=rsAD( ImgHeihg( )%>,width:<% 

Channel=1’赋予板块变量号码,Channel=0意 

:rsAD( hngWidth )%>,left=<%=rsAD( 

思是通用所有板块 

ADLe )%>,t0p:<%=rsAD( ADTop )%>,tol— 

Sub AllAD(Channel,ADType) 

bar:no,menubar:no,scrollbarsAD:no,resizable= 

set rsAD:server.createobject( adodb.recordset' ) 

no,location:no,status=no' ) 

sqlAD= select top 1*from Advertisement where </script> 

108一 

维普资讯

<!一弹出窗口3结束_> 

<% 

mAD.movenext 

loop 

mAD.close 

set mAD=nothing 

End Sub 

%> 

举例,在板块号码为1的页面显示弹出窗口3, 

广告类别为3的函数调用如下: 

<%Call AllAD(1,3)%> 

将此函数代码写入adv.asp文件,在所有功能 

页面调用,写在<!一#include file=”COlin.asp”一> 

下面,<!一#include file:”adv.asp”一>,若有的页 

面调用了此函数,就会自动相应。 

(4)消费模块:消费模块是根据用户级别来区分 

消费功能的,管理员或指定级别用户免费,其他用户 

在确认消费后,则根据信息具体消费额度来扣除相 

应点数,点数不够的则提示返回,以下是文章消费模 

块的代码片段: 

<% 

====:====:==:==:== 

’过程名:Content 

’作用:文章消费控制 

’参数:无 

=:=::===:==:=:==:= 

Sub Content() 

if session(”AdminName”):” then’管理员判断 

if rs(”ReadLevel”)<=999 then 

if session(”UserLogined”)<>1 then 

FoundErr=True 

ErrMsg ErrMsg&”<br>dmbsp;  

 ̄bsp; 你还没注册?或者没有登录?这篇文 

章要求至少是本站的注册用户才能阅读!<br>< 

br>” 

ErrMsg ErrMsg&”   

  如果你还没注册,请赶紧<a href= 

User

Reg.asp ><font color=red>点此注册</font 

></a>吧! <br><br> 

ErrMsg ErrMsg&”   

   ̄果你已经注册但还没登录,请赶紧 

<a href= User

Cogin.asp ><font color:red>点此 

登录</font></a>吧! <br><br>” 

else 

if CLng(session nReadLevel”))>CLng(rs n 

ReadLevel”))then 

FoundErr:True 

ErrMsg ErrMsg&”<P align= center >< 

br><br><font color:red><b>对不起,你的权 

限不够,不能阅读此文章!</b></font></p> 

else 

ifCLng(rs(”ReadPoint' ))>0 then 

if Request(”Pay”、=”yes”then 

if CLng(session( UserPoint' ))<CLng 

(rs(”ReadPoint ))then 

FoundErr:True 

ErrMsg ErrMsg&”<P align= cen— 

ter ><br><br>对不起,阅读本文需要消耗<b 

><font color:red>”&rs( ReadPoint )&”</font> 

</b>点I『J 

ErrMsg=ErrMsg 而你目前只有< 

b><font color=blue> &CLng(session(”UserPoint”)) 

</font></b>点可用。点数不足,无法阅读本 

文。请与我们联系进行充值。</p>” 

else 

if request(”Pay =”yes then 

Set rsleaguer=Server.CreateObject(” 

ADODB.Recordset”) 

sqUeaguer= select*from leaguer where 

usemame:” &session(“usemame 、& ’ 

rsleaguer.open sqlleaguer,COlin,3,2 

if CLng(rsleaguer(”UserPoint”))<CLng 

(rs(”ReadPoint”))then 

FoundErr=True 

ErrMsg ErrMsg&”<P align= center 

><br><br>对不起,阅读本文需要消耗<b>< 

font color=red>”&rs(”ReadPoint”)&”</font></b 

>点I『『 

ErrMsg=ErrMsg&,’而你目前只有<b 

><font color=blue>”&rsleaguer( UserPoint )& 

</font></b>点可用。点数不足,无法阅读本文。 

请与我们联系进行充值。</p> 

else 

rsleaguer(”UserPoint )=rsleaguer(”UserPoint' )一 

rs(”ReadPoint' ) 

session(”UserPoint”):rsleaguer(”UserPoint”) 

end if 

rsleaguer.update 

rsleaguer.close 

set rsleaguer=nothing 

109— 

维普资讯

end if 

response.write 1"5(”Content”) 

end if End Sub 

elseif request(”Pay )<>”yes' then 

%> 

FoundEiT=True 

在相应页面中直接调用该函数即可: 

EITMsg EITMsg&”<P align= center >< 

<%Call Content()%> 

br><br>阅读本文需要消耗<b><font color= 将此函数代码写入function.asp文件。 

red>”&rs(”ReadPoint' )&”</font></b>点I『『 

2.5技术优势 

EITMsg=EITMsg& 你目前尚有<b><font 系统在客户端无需安装即可使用,系统功能升 

color=blue> &session(”UserPoint' )&”</font></ 

级可在服务器端一次完成,所有用户无需安装任何 

b>点可用。阅读本文后,你将剩下<b><font col— 

软件升级包,具有良好的分级权限管理设置、不同等 

or green>”&CLng(session( UserPoint”))一CLng(rs( 

级用户拥有不同的权限和操作功能,系统管理员可 

ReadPoint' )) </font></b>点 通过W出页远程登录到系统服务器中,更方便地进 

EITMsg=EITMsg <br><br>你确实愿 行系统的维护升级工作,网站建设成本低,开发效率 

意花费<b><font color=red>”&rs(”ReadPoint”) 高,平台应用广泛,易于维护,具有很强的可扩展性, 

</font></b>点来阅读本文吗?” 

可满足广大企业的大部分需求。 

EITMsg EITMsg <br><br><a href 

3 结束语 

= 

Article

Print.asp?Pay:yes&ArticlelD=”&request 

当今信息技术随着INTERNET网络的发展,不 

( Articled”)& >我愿意</a>   

断地向各个领域延伸,任何领域都将集中于网络信 

    ̄mbsp;  <a href 

息技术的引导之下。本文基于ASP的B/S架构介绍 

=Default.asp >我不愿意</a></p> 

了目前流行的网站系统,在建设企业网站方面具有 

end if 

实用价值。 

end if 

参考文献: 

end if 

[1]林金霖.ASP实务经典[M].北京:中国铁道出版社,28OO:1—472. 

end if 

[2][美]Mark Spenik.SQL Server 20OO数据库管理员指南[M].北京: 

end if 

机械工业出版社,2O02:1—642. 

end if 结束 

[3]张固,汪晓平.ASP网络应用系统典型模块开发实例解析[M]. 

ifFoundE1T=True then 

北京:人民邮电出版社,2004:1—422. 

response.write EnMsg 

[4] [美]Nicholas C.Zakas.JavaScfipt高级程序设计[M].北京:人民 

exit sub 

邮电出版社,2006:1—532. 

end if 

责任编辑:么丽苹 

(上接第89页) 

图1 1 帧长变化时的搜索、定位仿真局部放大图2 

图7和图8为系统搜索部分仿真验证图,图9、图 础性意义,为加快搜索速度,设计中的搜索部分均采 

l0和图ll为变帧长隋况下的系统帧搜索、帧定位仿真 用组合电路来实现,这固然能提高搜索速度,但同时 

图。从仿真可以看出,当帧长变化时,系统数据存储更 也造成了硬件资源的较大浪费,如何在资源占用和 

新在获得帧长稳定的数据源后,能很快找到新的帧长 搜索速度之间找到一个好的平衡点,是一个值得进 

并迅速定位,由此证明了本系统设计的正确性。 一步深入研究的问题。 

4 结束语 参考文献: 

本文较好地解决了常见的间隔式插入盲帧的搜 [1 3沈振元,等-通信系统原理[M].西安:西安电子科技大学出版 

索和定位问题,这对于后面的数据分析有重要的基 社' 99 : 69。 

责任编辑:肖滨 

110— 


本文标签: 模块 信息 网站