admin 管理员组

文章数量: 1087134


2024年5月8日发(作者:web服务器安全的几个要素)

维普资讯

2002年4月 电 脑 学 习 茹2期 

利用组件实现静态页面的制作 

张俊 

摘要以一个足球网站解决静态网页的制作为例.通过描述业务流程、组件设计思恕、接口设计以及程序设计. 

解释了组件实现静态网页村作的整个过程。 

关键词 组件 页面程序设计 

Making Static Web Page by Com 

ZIⅧDg Jun 

Abstract This paper takes a自吣cer website to resolve mking slaile web page聃example

, 

smilag busine ̄ss[1ow、thou t 

of eom design、interface desi and program desin,gexplains to make smile web page by eOl3"1. 

Keyword Com 

Web Page Program Desin g

些规模较小、但因为内容独特而有一定影响力的网 

分别将相关图片和制作好的页面E传到w 

目录下。 

服务器虚拟 

站,往往凼为网络设备、服务器、带宽等原因影响了页面的 

浏览速度。因此,希望能将所有的本为动态的ASP的新闻 

显示贞面改为静态的HTM页面,以提高速度。本文就是以 

2组件的设计 

个足球嗣站实际解决这个问题为背景,详细描述了是怎 

首先,要将整个业务流程进{亍细分,区分出来哪些足由 

处理页面作简单处理的.哪些交由组件来处理。最终决定将 

写数据库、图片上传两项任务交由处理页面完成,将 

News

No和新闻分类代码、虚拟路径、新闻模板路径作为接 

_

样用组件来解决这个问题的。 

1业务流程 

足球网站从新闻采编到页面制作完成并且上传到服务 

器的整个过程,如图1所 : 

口参数传给组件,由组件完成页面制作井拷贝到wWw服 

务器的虚拟路径下。为了配合新闻查询,组件增加了新闻查 

询的功能 

其次,设计好组件的接口。组件接口描述如图2所示: 

田1 

Dnta

Query

叫组件I 

圉1中,新闻采编人员在新闻上传页面整理好新闻.先 

将新闻写入数据库,数据库返回新闻在库中的唯一标识,即 

News

So。将此表示传给 图片处理 和 页面制作 模块,它们 

_

NewsP ̄Creater 

。—_L————.j 

圉2 

其中(1)trserVerify是做用户认证用的,接V1定义如 

安装标准,支持IP ̄eSPX、Netware3.0,IPYu1P协议具有强大 

的集中管理、保密措旄完善。 

作,安徽省高校计算机水平考试(一级);计算机各种算法 

语言的上机实习和计算机辅助教学任务的完成。 

参考文献 

1尚晓航,陈强编著.计算机局域网与Windows NT实用教 

程.北京:清华大学出版杜,1999 

2魏源源主编,文华.魏宁等编.中文Window ̄NT sev— 

2.r作站方厩:由于安装了 看门狗 智慧型硬件还原卡 

和瑞壁杀毒软件,可以往帆房管理人员从大量的、烦琐的、 

费时的安装系统软件中解脱出来,把主要辅力放到提高业 

务水平上, 便更好地为教学服务。 

3.打印机实现了网络打印机的共享,实现打印作业的 

远程设置和管理。 

er4.0及其联网技术.北京:电予工业出版杜,1998 

3吴功宜编著计算机网络基础.天津:南开大学出版社, 

1996 

4.可以实现远程网的浏览,建立了本地WEB服务器, 

实现了各种信息的网上发布。 

该局域同的连接成功,产生了良好的社会效益和经济 

效益,较好地完成了安徽省2000年高考统分和辅助录取工 

张俊大连理工大学管理学院信息管理系硕士研究生(】16023) 

4王世忠中文版 ̄qndows98操作系统.北京:清华大学出版 

社,1999 

收稿日期:2001—11-15 

・】7・ 

维普资讯

F: 

Public Function UserVefify(ByVal UserName As String,ByVal 

’aBsw0IIi As String,ByRef AoeoumlD As Variant.ByRef Name As 

Vari叫1 As Boolean 

(2)Dot揶LieD,是新闻查询接1:1.定义如下: 

public Function DataQue ̄[ByVal sttSQL As String】As ADODB. 

Rccordset 

(3)NewsPageCreate是贞面制作接1:1,定义如卜: 

Public Function NewsPageCmate(ByVal NC String,ByVal NSC 

As Striag,ByVal WehPageModel S ng,ByVd News[D As Long, 

ByVal NewsPagePath As String,ByV vNe"Pa b As sLnⅡg) 

VariBnt 

3组件的实现 

3.1实现的技术 

程序设计的基本出发点是考虑到了HTM页面是纯文 

本的.可以利用文奉操作将新闻内容、相荚新闻条目的链 

接插入到摸板贞面中去。所 在模板页面中放新闻的地方 

做了特殊标示,如:<!lrtsertNewsl>.只要文件读到那个地方 

就将新闻内容插入。 

程序流程描述立u F: 

根据接口参数读数据库.访问数据库得到新闻内容以 

及图片;根据虚j堇I路衽创建相关文件夹:读出模扳贞面;文 

本文件操作将新闻标题、内容、相关图片路径写入模板页 

面;将新闻页面拷贝至虚拟路径F;将l页面的虚拟路径地址 

写入数据库。 

3.2程序设计 

程序设计涉及到的方方面面的技术内容.大部分程序 

员都根熟悉,所以下面只把主程序部分给出: 

Publoi Function NewsPng.eCre.ate(ByVal NC AS String,ByVaJ NSC 

sA Strign,ByVal WebPngeModel As Stung,ByVal NewsiD As I 碍, 

ByVal News,lXagePath As Strlng,ByVal vNewsPngePath As St,6 ̄g)sA 

Varianl 

On Error GoTo errhandle 

定义变量(省略) 

strSQLNe ̄s: SELECT FROM SOCCER._NEWS WHERE 

NEWSID= &Nc ̄-slD 

Set rsNews=DataQuew(strSQLNe ̄s) 

RemmStr 

ReturnStr 

& lmnges ̄,O 

一一

定义变量(省略) 

Temp Subject: ewsf Hew毒_ k1 

vRetura=LoadpngeModel(WebPngeModel,I iN Ile,Below- 

News,BehindNews) 

DispNewsTitle: <CENTER><FONT COLOR=#0000fi6 sire=5>( 

8) & &NC& IH&NSC& r& ̄News( news_tide ̄& 

TempString tsNews( News_Content 1 

Left rexlData=TempStrign 

Do While N Len(LeftTextDat :0 

rextLine=Get'rextLine(Temps 喝l ̄ftTextData) 

t 1 8 ・ 

TempStr ̄g=LeftT ̄tData 

HmdComext:H ̄alConteXl& ‘p &TextLine& 

l舯D 

strSQLNMM= SELECT’FROM SOCCER MEDIA WHERE 

NEWS

ID= &NewsID 

Set rsNMM= (8【rsQLN M1d) 

ⅡrsNMM.ReeocdCount(>0 Tken 

Do While Not MM.EOF 

NMMPath=New.PasePmh& ImngesV& MMrmedia

_

llY*)& 

&rsNMM( media—note') 

vNMMPoth=vNew#ngePath& Images ̄&rsNMM( medi-atO0& 

&rsNMM("media notch) 

NMMPosition=NMMPosition& <ceoter><iMG SRC= &Cl 341 

& MMPalh&Chr(34)& BORDER=I></eenler><br 

NMMFLleCtmtent=rsNMM("media_Co ̄tenl'}.GetChunk(100 ̄) 

vRetum=WfiteNMMFIIe(NMMPath,NMMFileC ̄tent) 

Dim呻l As String 

Dim陀^sInteger 

sqll: pdm soccer

media get media

__

ud= &vNMMPath& 

where media

_

id= &rsNMM( media_id1 

=DataUpdate(sqII】 

rsNMM.MoveNext 

Loov 

EIIdⅡ 

Tota ̄=Befo ̄News&DispNewsTide&NMMP ̄itoin& 

H【mlContext&BehindNews 

NewsPngePath=N 色P噼P山&Ne ̄siD& .hun" 

vNcwsPngePotb=vNewsPngePoth&N ̄mID&一htm 

vReturn=WriteTextFile(NewsPngePath.TotalPngel 

Di ̄NemsTide=肿 

NMMptmitiml:肿 

HIndC,onlext: 

lndexCont ̄l: (A HREF ̄&Cht(34)&vNewsPngePath&CM 

f341 & TARGET=blatak) &Temp Subject^矗 矾><FONT 

SIZE=I COLOR=#6666ce &一 n删 NewsrNew nB ), DD 

日hh:mm ̄}& M『kBR 

e帅P 8ecr愧ld=lndex ̄ontent 

Sot rsNews=Nothign 

Set rsNMM:Nothign 

Set 0biD毗a:Nothing 

Edt Function 

erdmndh: 

Ecr.Rsise Err.Number,E ̄r.Sourcc,En-.De ̄ ̄rlption 

End Functlon 

组件技术已为广大程序员所熟悉,本文是其在一方面 

的应用。实践证明组件能够很好地完成静态页面的制作. 

其效率和可扩展性也报好。 

参考文献 

1 Dale H0 s0n.Inside COMIM] 微软公司,1998 

2 Micrvsoft.Microsoft MsDN Libtary[M】20呻.7 

3(美)Don Benage Azam Mima等著.应用Visual Studio 

6.0构件企业解决方案[MI.长沙:潇湘工作室译.1999.9 


本文标签: 新闻 组件 页面 实现