软件工程师-分享ASP开发过程中的小技巧_第1页
软件工程师-分享ASP开发过程中的小技巧_第2页
软件工程师-分享ASP开发过程中的小技巧_第3页
软件工程师-分享ASP开发过程中的小技巧_第4页
软件工程师-分享ASP开发过程中的小技巧_第5页
已阅读5页，还剩1页未读， 继续免费阅读

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、星期八职场经验网（）【现成经验助你快速完成工作】分享ASP开发过程中的小技巧本文介绍的是ASP网站开发过程中的两个小技巧，希望能够帮助到大家。一起来看吧！AD： ASP是Microsoft公司推出的一种用以取代通用网关接口的技术，英文全称Active Server Pages。它是一个Web服务器端的运行环境。ASP本身包含了VBScript和javascript引擎，使得脚本可以直接嵌入HTML中。现将我们在ASP运用过程中的几个小技巧与大家分享。一、新闻栏大多数网页上有新闻栏，用以显示最近新闻的主题，点击此主题即可查看详细报道。倘若每天都一条条写在网页上，再依次建立链接太过麻烦。如何让其可

2、以根据文件自动更新呢？1预备工作1）建一个文件夹，起名为"news"，假设存于D:/ASP/目录下；2）把每条新闻的详细内容写入文件，且此文件的命名形式为：x (newstime).htm。其中x为此条新闻的主题，newstime为此条新闻发布的时间（按年-月-日顺序写）。为什么要这样写呢？看了下面的算法思想和源程序就知道了。2算法思想对于news文件夹中的文件，依据它们文件名中新闻发布的时间（即括号内的内容），从大到小排序。这样一来，最新的新闻排在最上面，只要在网页相应位置显示 news文件夹中最上面的若干个文件名，因为文件名的命名方式如1中所述，就可以在新闻栏中显示最新

3、新闻了。3源程序段(用VBScript编写的)以下为引用的内容：1. <%   2. Dim fs, f, f1, fc, filenum  3. dim count  4. dim i,j,t1,t2  5. dim file(100)  6. dim mystr(100) '标志文件中日期的字符串  7. count=0  8. Set fs = CreateObjec

4、t("Scripting.FileSystemObject")  9. Set f = fs.GetFolder("D:/ASP/news ")  10. Set fc = f.Files  11. for each f1 in fc  12. count=count+1 '计文件个数  13. file(count)=fs.getbasename(f1) '标

5、记文件基名  14. mypos=InStr(1, file(count), "(") ')在文件基名中的位置  15. '文件基名中的日期字符串   16. mystr(count) = Mid(file(count), mypos + 1, Len(file(count) - (mypos + 1)  17. next  18. for i=1 t

6、o count  19. for j=1 to count-i  20. if mystr(j)<mystr(j+1) then  21. t1=file(j)  22. file(j)=file(j+1  23. file(j+1)=t1  24. t2=mystr(j)  25. mystr(j)=mystr(j+1)  26. mystr(j+1)=t2  27. end if  28. next  29

7、. next  30. j=1   31. if count<10 then '新闻栏中共显示10条新闻  32. temcount=count  33. else  34. temcount=10  35. end if  36. do while j<=temcount%>  37. <a href="file:/D:/ASP/news/<%=file(j)%>.htm"

8、; target="new_window"><%=file(j)%> </a>  38. <%  39. j=j+1  40. loop  41. %>  4新闻栏内容更新只要养成良好的书写习惯，使得新闻的名称遵照1的要求，再把写好的文件存入news文件夹，新闻栏就会自动显示出最新的10条新闻了。二、公告栏除了新闻栏之外，较常用的就是公告栏了，公告栏主要用来显示一些重要的通知。当然这些通知是要经常变化的。让用户每次更改公告内容时都到源程序里去修改吗？当然

9、不行，我们必须提供一个维护的界面给用户，使得用户只要输入通知，网页上的公告栏里自然就会显示通知内容了。1.解决这一问题的关键在于灵活应用FileSystemObject对象和TextStream对象。在实际应用中，你无需自行建立TextStream对象，因为只要利用FileSystemObject对象打开了文件，系统便自动建立TextStream对象。也就是说，一旦调用OpenTextFile或CreateTextFile方法，便会传回TextStream对象。2.所需相关文件有三个更新.asp、公告.asp、维护文本.txt，把它们存入d:/ASP/maintain目录下。3三个文件的主要功

10、能和源程序段：1）更新.asp主要功能是让用户输入欲显示的公告，检验输入内容是否为空，若不为空，则提交给”公告.asp”程序处理。以下为引用的内容：1. <html>  2. <head>  3. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">  4. <meta name="GENERATOR" content="

11、Microsoft FrontPage 4.0">  5. <meta name="ProgId" content="FrontPage.Editor.Document">  6. <title>更新公告栏内容</title>  7. </head>  8. <body>  9. <script language=vbscript>  10. function

12、 datacheck()  11. dim msg,errflag  12. errflag=true  13. if len(trim(maintain.t1.value)=0 then   14. focusto(0)  15. errflag=false  16. msg="请输入需提交的公告内容" 17. end if  18. if (errflag=false) then  19. msgbox

13、 msg,64,"oh no!"   20. exit function  21. end if  22. datacheck=errflag  23. maintain.submit  24. end function  25. sub focusto(x)  26. document.maintain.elements(x).focus()  27. end sub  28. </script&g

14、t;  29. <form method="POST" action="公告.asp" name="maintain">  30. <p><input type="text" name="t1" size="84"><input type="reset" value="重写" name=

15、"B2">  31. <input type="button" value="提交" name="B1" onclick="datacheck()"></p>  32. <hr color=#FF99FF size=1>   33. </form>  34. </body>  35. </html>&

16、#160;语句中的action="公告.asp"部分，指出了在form提交后要启动的程序为“公告.asp”。2）公告.asp通过FileSystemObject对象和TextScream对象对"维护文本.txt"文件进行读写操作，使得此文件最上面5行的内容为要在公告栏里显示的公告。以下为引用的内容：1. <%  2. dim str  3. str=request.form(t1)  4. dim s(5)  5. const forreading=1,forwriting=2

17、 6. dim fso,myfile  7. set fso=server.createobject("scripting.FileSystemObject")  8. set myfile=fso.opentextfile("维护文本.txt",forreading)'以Reading模式打开文件  9. for i=1 to 5 '公告栏共显示5条公告  10. s(i)=myfile.readline'读取

18、文件内容  11. next  12. myfile.close  13. set myfile=fso.opentextfile("维护文本.txt",forwriting,true) '以writing模式打开文件  14. myfile.writeline str  15. for i=1 to 4  16. myfile.writeline s(i) '将数据写回文件  17. next  1

19、8. myfile.close  19. %> 3）维护文本.txt此文件开始为空，从”更新.asp”显示的界面输入公告后，此文件内容被自动写入。4在主页文件（通常是default.asp）欲显示公告位置的代码段中加入如下代码，即可显示出更新后的公告。以下为引用的内容：1. <marquee scrollamount="2" scrolldelay="50" direction="up" width="223" 2. height="133" id="a" onmouseover="a.stop()" onmouseout="a.start()">'公告

人人文库> 全部分类> 教育资料 > 课件下载

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论