半岛·体育(综合)官方APP下载·IOS/安卓/手机APP下载

咨询热线:

+86-0222-22366





第六系列

网站生成器设计与实现

发布时间:2024/07/26    浏览次数:

  网站生成器设计与实现【作者简介】李斌(197p),男,内蒙古化德人,延安职业技术学院讲师,中国地质大学地球科学与资源学院博士;薛E-(1981一)。男,陕西

  owenI=request(“owenI”) owen2=request(“owen2”) %>

  <% Set re=Server.CreateOhject(“ADODB.RecordSet”)

  sql= “select 4 from news where BigClassName= “&owenI&”and SmallClassName=“&owen2&”order by id

  conns归“DBQ=“+server.mappath(“。/data/nxnews.mdb”) +”;DefauhDir=-;DRIVER={Microsoft Access Driver(4肌db)J;”

  Set eonn=Server.CreateObject(“ADODB.CONNECⅡON”)

  The JournaI of Yan’an VocationaI&TechnicaI Institute

  【摘要】当前网站制作技术与软件极大丰富,为网站设计人员提供了方便。但由于软件使用繁多和技术复杂使网站的维 护和改版愈加困难。以延安职业技术学院校网站为例,用ASP技术进而实现网站生成器观念。其中主要技术有:图片动态更

  Response.Write“<b睁<b睁” %> 并将文件名存放在数据库中,其主要SQL语句为: <% sql=“insert into pies(fide,n,创tl'le,type)values(“&a&”, “&b&”.“&c&”)” eonll.Exeeute(sql) %> (2)网页横幅和网页中线条的变化 首先建立数据库,用于记录横幅的位置和CSS文件名,如 图14所示。网贞中的不同横幅存放在不同的目录中,如 images、imagesl等,而线条的颜色控制由不同的CSS文件控 制。设计时不同风格数据对应调不同横幅的目录和不同颜色 的线条的CSS文件,在网页中动态调用即可。在网贞中调用横 幅的ASP语句为: <img 8re=“<%--rsb(“图片位置”)%>/titlea.jpg“width=”

  根据数据库中的记录,可以任意修改主页的风格。 二、网站的功能模块与功能文件的实现 网页中的功能模块,采用一级模块与二级模块定制的方 法,可以灵活实现模块的动态改变。例如奉网站的功能模块的 总体效果如图1—5所示。

  图1--6 BigClass中数据 网页中横向菜单为一级功能模块,纵向菜单为二级功能 模块,都可由用户设置。其实现方法为:首先建立三个数据表, 一个为大类表BigClass表,如图1.6所示;一个为小类表,表 类表和大类表通过BigClassname字段建立多对一的关系,数 据如图l一7所示;—个为新闻文章表news,存放用户上传的新 闻内容,数据如图1—8所示。 用户可以在BigClass表中任意增加大类和对SmaUClass? 中任意增加小类,然后再将文件中字符和图片存放在news表 中。系统通过通过Bi如lassname字段和SmallClassname字段建 立数据的链接,如上菜单实现了大类文件链接与查询,左菜单

  sql=“update style set优先=0” conn.Exeeute(sql) sqll=“update style set优先=1 where风格=”&request.form (“style”)&“” corm.Execute(sqll) Response.Write“风格已经改完<bD”

  IfErr◇0Then response.write ehinese2unieode(“发生错误:”) response.write ehinese2unieode(Err.Deseripfion) response.end

  EndⅡ Set File=Upload.Files(“filel”) If Not File Is Nothing Then Filename=File.Filename Fileext=File.Ext

  elseif Upload.FileExists(uploadDir&“\”&Filenamel Then File.SaveAs uploadDir&“\”&Filename Response.Write ehinese2unieode(“已覆盖存在相同文件 名的文件:”)&File.Path

  Response.Write chinese2unieode(“错误:文件过大!”) Response.end

  而在网页中调用CSS文件的语句为: <% set rsb=server.CreateObject(“ADODB.RecordSet”) rsb.Source=“select‘from style where优先》1” rsb.Open rsb.Source,conn,1,1 %> <link href=“<%--rsb(“文件”1%>“tel=”stylesheet“

  rst.open sqlt.conn,1,1 do while not rst.eof %>

  <td heisht-“30”align=“center’’ onmouseover=“this.

  bgColor=’#FFFFFF’;’’onmouseout=“this.hgColo二-。挣0066cc’;’’×a

  conn.open eonnslr if request(“act”)=“upload”then

  AllowExt=‘‘jp函png,glf,zip,rar,sql,txt,bak,doe,swf,ppt,

  Set Upload=Server.CreateObject(“Persits.Upload”1 Upbad.SetMaxSize 4194304,True

  实现大类中小类的链接与查询。通过上菜单与左菜单的操作, 系统通过News表中的Biaclassname字段和SmallClassname字 段,实现数据动态的查询。其ASP语句为:

  上菜单的一级大类链接查询语句为: <%sqh=“select+from bigclass” set rst=server.createohjecl(“ADODB.Recordset”)

  File.SaveAs uploadDir&“、”&Filename Response.Write ehinese2unicode(“文件已保存到:”)& File.Path

  ChkStr=“,“&Lcase(AllowExt)&”,’’ If Instr(ChkS廿,“,“&right(Fileext,3)&”,”)<=0 Then Response.Write ehinese2unieode(“错误:文件类型不正 确!”) response.write“<br'” response.wTite ehinese2unieode(“只允许:”&AllowExt)

  而动态插入图片的语句为: <img src=“admirJswf/<%=rsb(“nalne”1%>”width=“182”

  图片和动画的维护使用ASP中上传功能实现,由用户在 客户端将图片或FLASH上传至指定的目录swf下,其语句为:

  新、线条与背景色彩的动态改变和网站栏目的动态改变。 【关键词】网站生成器;网页制作;动态潍护;ASP

  (1)图片的动态变化 图片的变化,使用数据库和ASP语言实现。其数据库中 重要存放图片的标题和图片的文件名,其结构如图1-3所示。

  图1—2天蓝色主页效果 如图]-1为橙色主页色调效果半岛综合体育下载,而图1—2为蓝色主页色 调。如在主页设计中,根据用户需要,动态改变主页的风格、 色调,象人们穿衣服一样,丰富多彩。 在主页设计中的结构固定后,内容主要由文字和图片组 成,色彩主要是图片与线条的色彩。只要动态改变图片和线 条就能实现主页色彩的动态改变。

  href=“otype.asp?owenl=<%=rst(“BigClassName”)%>”><%--rst (“BigClassName”)%><,a><,td>

  左菜单的二级大类链接查询语句为: <% set rsSmaUClass=server.CreateObjeet(“adodb.recordset”)

  <%set rsb=server.CreateObjeet(“ADODB.RecordSet”) rsb.Source=“select}from pies where type=‘动厕’order by

  <Ix onMouseOver=-“this.bgColor=-‘#FFFFFF’;’’onMouseOut=

  “this.bgColor=-’#0066CC‘:”bgColo#-#0066ec> <td height=“25” align=“center” class=tl><a href=

  “otype.asp?owenl=<%=owenl%>&owen2=<%=rsSmailClass

  rsSmallClass.open “Select宰From SmallClass Where BigClassName=”&owenl&“”,conn,1,1

  if not(rsSmallClass.bofand rsSmalIClass.eoO then


Copyright © 2018-2028 半岛·体育(综合)官方APP下载·IOS/安卓/手机APP下载 版权所有      黔ICP备18003557号-1
电 话:+86-0222-22366 手 机:08663022900
地 址:广东省半岛·体育(综合)官方APP下载
扫一扫关注微信