分享ASP网页开发过程中的小技巧

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

创新互联建站专注于沙坪坝网站建设服务及定制，我们拥有丰富的企业做网站经验。热诚为您提供沙坪坝营销型网站建设，沙坪坝网站制作、沙坪坝网页设计、沙坪坝网站官网定制、小程序定制开发服务，打造沙坪坝网络公司原创品牌,更为您提供沙坪坝网站排名全网营销落地服务。

一、新闻栏

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

1．预备工作

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

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

2．算法思想

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

3．源程序段(用VBScript编写的)

以下为引用的内容：

 
 
   
  
  <%     
  
  Dim fs, f, f1, fc, filenum    
  
  dim count    
  
  dim i,j,t1,t2    
  
  dim file(100)    
  
  dim mystr(100) '标志文件中日期的字符串    
  
  count=0    
  
  Set fs = CreateObject("Scripting.FileSystemObject")    
  
  Set f = fs.GetFolder("D:/ASP/news ")    
  
  Set fc = f.Files    
  
  for each f1 in fc    
  
  count=count+1 '计文件个数    
  
  file(count)=fs.getbasename(f1) '标记文件基名    
  
  mypos=InStr(1, file(count), "(") ')在文件基名中的位置    
  
  '文件基名中的日期字符串     
  
  mystr(count) = Mid(file(count), mypos + 1, Len(file(count)) - (mypos + 1))    
  
  next    
  
  for i=1 to count    
  
  for j=1 to count-i    
  
  if mystr(j)  
  
  
t1=file(j)    
  
  file(j)=file(j+1    
  
  file(j+1)=t1    
  
  t2=mystr(j)    
  
  mystr(j)=mystr(j+1)    
  
  mystr(j+1)=t2    
  
  end if    
  
  next    
  
  next    
  
  j=1     
  
  if count<10 then '新闻栏中共显示10条新闻    
  
  temcount=count    
  
  else    
  
  temcount=10    
  
  end if    
  
  do while j<=temcount%>    
  
  .htm" target="new_window"><%=file(j)%>     
  
  <%    
  
  j=j+1    
  
  loop    
  
  %>

4．新闻栏内容更新

只要养成良好的书写习惯，使得新闻的名称遵照1的要求，再把写好的文件存入news文件夹，新闻栏就会自动显示出最新的10条新闻了。

二、公告栏

除了新闻栏之外，较常用的就是公告栏了，公告栏主要用来显示一些重要的通知。当然这些通知是要经常变化的。让用户每次更改公告内容时都到源程序里去修改吗？当然不行，我们必须提供一个维护的界面给用户，使得用户只要输入通知，网页上的公告栏里自然就会显示通知内容了。

1.解决这一问题的关键在于灵活应用FileSystemObject对象和TextStream对象。

在实际应用中，你无需自行建立TextStream对象，因为只要利用FileSystemObject对象打开了文件，系统便自动建立TextStream对象。也就是说，一旦调用OpenTextFile或CreateTextFile方法，便会传回TextStream对象。

2.所需相关文件有三个

更新.asp、公告.asp、维护文本.txt，把它们存入d:/ASP/maintain目录下。

3．三个文件的主要功能和源程序段：

1）更新.asp

主要功能是让用户输入欲显示的公告，检验输入内容是否为空，若不为空，则提交给”公告.asp”程序处理。

以下为引用的内容：

 
 
   
  
      
  
      
  
      
  
      
  
      
  
  更新公告栏内容    
  
      
  
      
  
      
  
  function datacheck()    
  
  dim msg,errflag    
  
  errflag=true    
  
  if len(trim(maintain.t1.value))=0 then     
  
  focusto(0)    
  
  errflag=false    
  
  msg="请输入需提交的公告内容"   
  
  end if    
  
  if (errflag=false) then    
  
  msgbox msg,64,"oh no!"     
  
  exit function    
  
  end if    
  
  datacheck=errflag    
  
  maintain.submit    
  
  end function    
  
  sub focusto(x)    
  
  document.maintain.elements(x).focus()    
  
  end sub    
  
      
  
  ①

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

2）公告.asp

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

以下为引用的内容：

 
 
   
  
  <%    
  
  dim str    
  
  str=request.form(t1)    
  
  dim s(5)    
  
  const forreading=1,forwriting=2    
  
  dim fso,myfile    
  
  set fso=server.createobject("scripting.FileSystemObject")    
  
  set myfile=fso.opentextfile("维护文本.txt",forreading)'以Reading模式打开文件    
  
  for i=1 to 5 '公告栏共显示5条公告    
  
  s(i)=myfile.readline'读取文件内容    
  
  next    
  
  myfile.close    
  
  set myfile=fso.opentextfile("维护文本.txt",forwriting,true) '以writing模式打开文件    
  
  myfile.writeline str    
  
  for i=1 to 4    
  
  myfile.writeline s(i) '将数据写回文件    
  
  next    
  
  myfile.close    
  
  %>

3）维护文本.txt

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

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

以下为引用的内容：

 
 
   
  
    
  
  
height="133" id="a" onmouseover="a.stop()" onmouseout="a.start()">'公告栏上下滚动    
  
  <%     
  
  Dim s(20)     
  
  Dim fso, MyFile     
  
  Set fso = CreateObject("Scripting.FileSystemObject")     
  
  Set MyFile = fso.OpenTextFile("D:/ASP/maintain/维护文本.txt",1,true)     
  
  for i=1 to 5     
  
  ReadLineTextFile=MyFile.ReadLine     
  
  s(i)=ReadLineTextFile     
  
  response.write "　" & s(i)     
  
  response.write "
"     
  
  next     
  
  %>

上述两个小技巧举一反三，可以解决很多此类问题。网页设计爱好者们不妨一试。

【编辑推荐】

详述Asp.net的加密解密技巧
ASP.NET站点应该从哪些方面优化
简单介绍Asp.net网站的性能优化
ASP.NET网站性能优化需要考虑哪些方面
asp.net开源CMS汇总

当前标题：分享ASP网页开发过程中的小技巧
文章转载：http://www.hantingmc.com/qtweb/news19/494619.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容