软件工程师-分享ASP开发过程中的小技巧

星期八职场经验网（）【现成经验助你快速完成工作】分享ASP开发过程中的小技巧本文介绍的是ASP网站开发过程中的两个小技巧，希望能够帮助到大家。一起来看吧！AD：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编写的)以下为引用的内容：1.%2.Dimfs,f,f1,fc,filenum星期八职场经验网（）【现成经验助你快速完成工作】3.dimcount4.dimi,j,t1,t25.dimfile(100)6.dimmystr(100)'标志文件中日期的字符串7.count=08.Setfs=CreateObject(Scripting.FileSystemObject)9.Setf=fs.GetFolder(D:/ASP/news)10.Setfc=f.Files11.foreachf1infc12.count=count+1'计文件个数13.file(count)=fs.getbasename(f1)'标记文件基名14.mypos=InStr(1,file(count),()')在文件基名中的位置15.'文件基名中的日期字符串16.mystr(count)=Mid(file(count),mypos+1,Len(file(count))-(mypos+1))17.next18.fori=1tocount19.forj=1tocount-i20.ifmystr(j)mystr(j+1)then21.t1=file(j)22.file(j)=file(j+123.file(j+1)=t124.t2=mystr(j)25.mystr(j)=mystr(j+1)26.mystr(j+1)=t227.endif28.next29.next30.j=131.ifcount10then'新闻栏中共显示10条新闻32.temcount=count33.else34.temcount=1035.endif36.dowhilej=temcount%37.ahref=file:///D:/ASP/news/%=file(j)%.htmtarget=new_window%=file(j)%/a38.%39.j=j+1星期八职场经验网（）【现成经验助你快速完成工作】40.loop41.%4．新闻栏内容更新只要养成良好的书写习惯，使得新闻的名称遵照1的要求，再把写好的文件存入news文件夹，新闻栏就会自动显示出最新的10条新闻了。二、公告栏除了新闻栏之外，较常用的就是公告栏了，公告栏主要用来显示一些重要的通知。当然这些通知是要经常变化的。让用户每次更改公告内容时都到源程序里去修改吗？当然不行，我们必须提供一个维护的界面给用户，使得用户只要输入通知，网页上的公告栏里自然就会显示通知内容了。1.解决这一问题的关键在于灵活应用FileSystemObject对象和TextStream对象。在实际应用中，你无需自行建立TextStream对象，因为只要利用FileSystemObject对象打开了文件，系统便自动建立TextStream对象。也就是说，一旦调用OpenTextFile或CreateTextFile方法，便会传回TextStream对象。2.所需相关文件有三个更新.asp、公告.asp、维护文本.txt，把它们存入d:/ASP/maintain目录下。3．三个文件的主要功能和源程序段：1）更新.asp主要功能是让用户输入欲显示的公告，检验输入内容是否为空，若不为空，则提交给”公告.asp”程序处理。以下为引用的内容：1.html2.head3.metahttp-equiv=Content-Typecontent=text/html;charset=gb2312星期八职场经验网（）【现成经验助你快速完成工作】4.metaname=GENERATORcontent=MicrosoftFrontPage4.05.metaname=ProgIdcontent=FrontPage.Editor.Document6.title更新公告栏内容/title7./head8.body9.scriptlanguage=vbscript10.functiondatacheck()11.dimmsg,errflag12.errflag=true13.iflen(trim(maintain.t1.value))=0then14.focusto(0)15.errflag=false16.msg=请输入需提交的公告内容17.endif18.if(errflag=false)then19.msgboxmsg,64,ohno!20.exitfunction21.endif22.datacheck=errflag23.maintain.submit24.endfunction25.subfocusto(x)26.document.maintain.elements(x).focus()27.endsub28./script29.①formmethod=POSTaction=公告.aspname=maintain30.pinputtype=textname=t1size=84inputtype=resetvalue=重写name=B231.inputtype=buttonvalue=提交name=B1onclick=datacheck()/p32.hrcolor=#FF99FFsize=133./form34./body35./html语句①中的action=公告.asp部分，指出了在form提交后要启动的程序为“公告.asp”。2）公告.asp星期八职场经验网（）【现成经验助你快速完成工作】通过FileSystemObject对象和TextScream对象对维护文本.txt文件进行读写操作，使得此文件最上面5行的内容为要在公告栏里显示的公告。以下为引用的内容：1.%2.dimstr3.str=request.form(t1)4.dims(5)5.constforreading=1,forwriting=26.dimfso,myfile7.setfso=server.createobject(scripting.FileSystemObject)8.setmyfile=fso.opentextfile(维护文本.txt,forreading)'以Reading模式打开文件9.fori=1to5'公告栏共显示5条公告10.s(i)=myfile.readline'读取文件内容11.next12.myfile.close13.setmyfile=fso.opentextfile(维护文本.txt,forwriting,true)'以writing模式打开文件14.myfile.writelinestr15.fori=1to416.myfile.writelines(i)'将数据写回文件17.next18.myfile.close19.%3）维护文本.txt此文件开始为空，从”更新.asp”显示的界面输入公告后，此文件内容被自动写入。4．在主页文件（通常是default.asp）欲显示公告位置的代码段中加入如下代码，即可显示出更新后的公告。以下为引用的内容：1.marqueescrollamount=2scrolldelay=50direction=upwidth=2232.height=133id=aonmouseover=a.stop()onmouseout=a.start()'公告栏上下滚动星期八职场经验网（）【现成经验助你快速完成工作】3.%4.Dims(20)5.Dimfso,MyFile6.Setfso=CreateObject(Scripting.FileSystemObject)7.SetMyFile=fso.OpenTextFile(D:/ASP/maintain/维护文本.txt,1,true)8.fori=1to59.ReadLineTextFile=MyFile.ReadLine10.s(i)=ReadLineTextFile11.response.write★&s(i)12.response.writebr13.next14.%15./marquee上述两个小技巧举一反三，可以解决很多此类问题。