网页设计的实习报告

　　今年xx月，我在超想电脑公司实习，本次实习主要是参加超想电脑公司给一个地税的办公自动化系统的软件设计，此软件采用asp开发。本人在此过程中主要参与了用ASP进行网设计，包括新闻栏的创建和自动更新，以及公告栏的创建、使用和维护。通过本次设计，使我更加深入掌握了ASP网设计的技巧。下面就是本人在本次实习后的心得。

　　ASP是Microsoft公司推出的一种用以取代通用网关接口的技术，英文全称ActiveServerPages。它是一个Web服务器端的运行环境。ASP本身包含了VBScript和JavaScript引擎，使得脚本可以直接嵌入HTML中。现将我们在ASP运用过程中的几个小技巧与大家分享。

　　一、新闻栏

　　大多数网上有新闻栏，用以显示最近新闻的主题，点击此主题即可查看详细报道。倘若每天都一条条写在网上，再依次建立链接太过麻烦。如何让其可以根据文件自动更新呢？

　　1.预备工作：

　　1）建一个文件夹，起名为"news"，假设存于D：/ASP/目录下；

　　2）把每条新闻的详细内容写入文件，且此文件的命名形式为：x（newstime）。htm。其中x为此条新闻的主题，newstime为此条新闻发布的时间（按年—月—日顺序写）。为什么要这样写呢？看了下面的算法思想和源程序就知道了。

　　2.算法思想：对于news文件夹中的文件，依据它们文件名中新闻发布的时间（即括号内的内容），从大到小排序。这样一来，最新的新闻排在最上面，只要在网相应位置显示news文件夹中最上面的若干个文件名，因为文件名的命名方式如1中所述，就可以在新闻栏中显示最新新闻了。3.源程序段（用VBScript编写的）

　　nextfori=1tocountforj=1tocount—iifmystr（j）

　　更新公告栏内容

　　functiondatacheckdimmsg，errflagerrflag=true

　　iflen（trim（maintain。t1。value））=0thenfocusto（0）errflag=false

　　msg="请输入需提交的公告内容"endif

　　if（errflag=false）then

　　msgboxmsg，64，"ohno！"exitfunctionendifdatacheck=errflagmaintain。submitendfunctionsubfocusto（x）

　　document。maintain。elements（x）。focusendsub

　　①

　　语句①中的action="公告。asp"部分，指出了在form提交后要启动的程序为“公告。asp”。2）公告。asp

　　通过FileSystemObject对象和TextScream对象对"维护文本。txt"文件进行读写操作，使得此文件最上面5行的内容为要在公告栏里显示的公告。dimfso，myfile

　　setfso=server。createobject（"scripting。FileSystemObject"）

　　setmyfile=fso。opentextfile（"维护文本。txt"，forreading）"以Reading模式打开文件fori=1to5"公告栏共显示5条公告s（i）=myfile。readline"读取文件内容nextmyfile。close

　　setmyfile=fso。opentextfile（"维护文本。txt"，forwriting，true）"以writing模式打开文件myfile。writelinestrfori=1to4

　　myfile。writelines（i）"将数据写回文件

　　nextmyfile。close%>

　　3）维护文本。txt

　　此文件开始为空，从”更新。asp”显示的界面输入公告后，此文件内容被自动写入。

　　4.在主文件（通常是default。asp）欲显示公告位置的代码段中加入如下代码，即可显示出更新后的公告。