ASP网页设计小技巧

1、ASP网页设计小技巧摘要：本文介绍了用ASP进展网页设计过程中的几个小技巧，包括新闻栏的创立和自动更新，以及公告栏的创立、使用和维护。指明理解决此类问题的大致方法。Abstrat:eintrdueseveraltrikshenusingAtiveServerPagestdesignhepages.Theseinludethereatinandautatiupdatingfnesluns,asellasthereatin,utilizatinandaintenanefbulletins.Thegeneralslutinsttheseprblesarepintedut.关键词：ASP、新闻栏、公告

2、栏ASP是irsft公司推出的一种用以取代通用网关接口的技术，英文全称AtiveServerPages。它是一个eb效劳器端的运行环境。ASP本身包含了VBSript和javasript引擎，使得脚本可以直接嵌入HTL中。现将我们在ASP运用过程中的几个小技巧与大家分享。一、新闻栏大多数网页上有新闻栏，用以显示最近新闻的主题，点击此主题即可查看详细报道。倘假设每天都一条条写在网页上，再依次建立链接太过费事。如何让其可以根据文件自动更新呢？1预备工作：1建一个文件夹，起名为nes，假设存于D:/ASP/目录下；2把每条新闻的详细内容写入文件，且此文件的命名形式为：x(nestie).ht。其中x

3、为此条新闻的主题，nestie为此条新闻发布的时间按年-月-日顺序写。为什么要这样写呢？看了下面的算法思想和源程序就知道了。2算法思想：对于nes文件夹中的文件，根据它们文件名中新闻发布的时间即括号内的内容，从大到小排序。这样一来，最新的新闻排在最上面，只要在网页相应位置显示nes文件夹中最上面的假设干个文件名，因为文件名的命名方式如1中所述，就可以在新闻栏中显示最新新闻了。3源程序段(用VBSript编写的)%Difs,f,f1,f,filenudiuntdii,j,t1,t2difile(100)diystr(100)标志文件中日期的字符串unt=0Setfs=reatebjet(Srip

4、ting.FileSystebjet)Setf=fs.GetFlder(D:/ASP/nes)Setf=f.Filesfreahf1infunt=unt+1计文件个数file(unt)=fs.getbasenae(f1)标记文件基名yps=InStr(1,file(unt),()在文件基名中的位置文件基名中的日期字符串ystr(unt)=id(file(unt),yps+1,Len(file(unt)-(yps+1)nextfri=1tuntfrj=1tunt-iifystr(j)ystr(j+1)thent1=file(j)file(j)=file(j+1file(j+1)=t1t2=yst

5、r(j)ystr(j)=ystr(j+1)ystr(j+1)=t2endifnextnextj=1ifunt10then新闻栏中共显示10条新闻teunt=untelseteunt=10endifdhilej=teunt%ahref=file:/D:/ASP/nes/%=file(j)%.httarget=ne_ind%=file(j)%/a%j=j+1lp%4新闻栏内容更新：只要养成良好的书写习惯，使得新闻的名称遵照1的要求，再把写好的文件存入nes文件夹，新闻栏就会自动显示出最新的10条新闻了。二、公告栏除了新闻栏之外，较常用的就是公告栏了，公告栏主要用来显示一些重要的通知。当然这些通知是

6、要经常变化的。让用户每次更改公告内容时都到源程序里去修改吗？当然不行，我们必须提供一个维护的界面给用户，使得用户只要输入通知，网页上的公告栏里自然就会显示通知内容了。1.解决这一问题的关键在于灵敏应用FileSystebjet对象和TextStrea对象。在实际应用中，你无需自行建立TextStrea对象，因为只要利用FileSystebjet对象翻开了文件，系统便自动建立TextStrea对象。也就是说，一旦调用penTextFile或reateTextFile方法，便会传回TextStrea对象。2.所需相关文件有三个：更新.asp、公告.asp、维护文本.txt，把它们存入d:/ASP/

7、aintain目录下。3三个文件的主要功能和源程序段：1更新.asp主要功能是让用户输入欲显示的公告，检验输入内容是否为空，假设不为空，那么提交给公告.asp程序处理。htlheadeta -equiv=ntent-Typentent=text/htl;harset=gb2312etanae=GENERATRntent=irsftFrntPage4.0etanae=PrgIdntent=FrntPage.Editr.Duenttitle更新公告栏内容/title/headbdysriptlanguage=vbsriptfuntindatahek()disg,errflagerrflag=tru

8、eiflen(tri(aintain.t1.value)=0thenfust(0)errflag=falsesg=请输入需提交的公告内容endifif(errflag=false)thensgbxsg,64,hn!exitfuntinendifdatahek=errflagaintain.subitendfuntinsubfust(x)duent.aintain.eleents(x).fus()endsub/sriptfrethd=PSTatin=公告.aspnae=aintainpinputtype=textnae=t1size=84inputtype=resetvalue=重写nae=B2

9、inputtype=buttnvalue=提交nae=B1nlik=datahek()/phrlr=#FF99FFsize=1/fr/bdy/htl语句中的atin=公告.asp局部，指出了在fr提交后要启动的程序为“公告.asp。2公告.asp通过FileSystebjet对象和TextSrea对象对维护文本.txt文件进展读写操作，使得此文件最上面5行的内容为要在公告栏里显示的公告。%distrstr=request.fr(t1)dis(5)nstfrreading=1,frriting=2difs,yfilesetfs=server.reatebjet(sripting.FileSyst

10、ebjet)setyfile=fs.pentextfile(维护文本.txt,frreading)以Reading形式翻开文件fri=1t5公告栏共显示5条公告s(i)=yfile.readline读取文件内容nextyfile.lsesetyfile=fs.pentextfile(维护文本.txt,frriting,true)以riting形式翻开文件yfile.ritelinestrfri=1t4yfile.ritelines(i)将数据写回文件nextyfile.lse%3维护文本.txt此文件开场为空，从更新.asp显示的界面输入公告后，此文件内容被自动写入。4在主页文件通常是default.asp欲显示公告位置的代码段中参加如下代码，即可显示出更新后的公告。arqueesrllaunt=2srlldelay=50diretin=upidth=223hEight=133id=anusever=a.stp()nuseut=a.start()公告栏上下滚动%Dis(20)Difs,yFileSetfs=reatebjet(Sripting.FileSystebjet)SetyFile=fs.penTextFile(D:/ASP/aintain/维护文本.txt,1,true)fri=1t5ReadLineT