当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用标签替换的方法生成静态网页

ASP
ASP调用ORACLE存储过程并返回结果集
用ASP实现网页BBS
关于Global.asa文件的深入研究与session变量失效提示的具体方法
简易ASP+注册系统
防护手册:如何防止ASP木马在服务器上运行
用Visual Basic实现多画面播放功能之二
如何增强ASP程序性能(1)
如何增强ASP程序性能(2)
如何增强ASP程序性能(3)
ASP备份数据库
二十八条改善 ASP 性能和外观的技巧
在Form域中Post大于100K的数据
如何使用ASP制作模似动态生长的表单?
Microsoft IIS 真的如此「不安全」吗?(1)
Microsoft IIS 真的如此「不安全」吗?(2)
Microsoft IIS 真的如此「不安全」吗?(3)
Microsoft IIS 真的如此「不安全」吗?(4)
Microsoft IIS 真的如此「不安全」吗?(5)
关于页面和代码分离
ServerVariables 对路径的操作

ASP 中的 用标签替换的方法生成静态网页


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-08-14   浏览: 161 ::
收藏到网摘: n/a

大家都知道HTML静态网页更容易被搜索引擎收录索引,动态生成HTML网页,也可使网站的网页数量增多,搜索引擎收录的数量也可能多,再加下提高网页的质量也意未着什么呢?我想大家也知道。

为了这个,我决定了改变之前网站建设,网页设计的方法,经过多翻的研究及思考,对多种网页动态生成的方法,我比较喜欢用标签替换的方法成生网页。

标签替换法:这是我个人理解的定义,不知道别人怎么叫它的,呵呵!
    

 标签替换法,就是在设计好了的网页模板中,放入自已设定的标签,然后用你需要显示出来的东东替换它。如

模板文件1

这个模板我们保存在数据库表中  temptable


<html>
<head>
<title>{$SiteName} </title>
</head>
<body>
{$Arc_List$}  
</body>
<html>

在以上模板中我放入了两个标签{$SiteName}网站名称和{$Arc_List$}文章列表,再来看下面的代码

<%
    dim rs,SiteName,Arc_List,fso,myFile,FilePath,html
    SiteName="我的第一个动态生成的HTML网页"
    FilePath = Server.MapPath("/html/index.html")
   set rs=server.createobject("adodb.recordset")
   rs.open"select  [temp] from  temptable,conn,1,1
   html = rs("temp")   '读取网页模板
   rs.close
  
   html  = replace(html, "{$SiteName}" , SiteName)          '用自定义的  SiteName 替换{$SiteName}标签
   html  = html & replace(html, "{$Arc_List$} " , get_ArcList())   '用自定义的get_ArcList()函数替换{$Arc_List$}标签
  set rs=nothing
  conn.close
  set conn=nothing
  
   set fso=CreateObject("***ing.FileSystemObject")     '创建文件系统对象
   Set MyFile = fso.CreateTextFile(FilePath,True)               '创建文件
   MyFile.WriteLine(html)                                                         '把htm代码写入文件
   MyFile.close    '关闭文件
   Set MyFile = nothing    '释放文件对象
   set fso = nothing     '释放系统文件对象
   response.write "<*** language='java***'>window.alert('文件生成成功了');</***>"
  response.end()
  

   Function get_ArcList()
         dim str,str1
         str1=""
         str = "<ul>{list}</ul>"
         rs.open"select  Title,url from Arc"
         while not rs.eof
                str1 = str1 & "<li><a href="&rs("url")&">"&rs("Title")&"</a></li>"
        rs.movenext
        wend
        rs.close
       str = replace(str, "{list}", Str1)
       get_ArcList = str

 %>

End Function

以上的方法是不是很简单,现在很多CMS都是采用这种方法生成静态网页的,这种方法使用比较灵活,只要你用心去设计一下你的系统,以后网做一个网站,只要设计模板就可以了。。。呵呵,禺现在一个网站建设公司上班,有空时会随意写一点东东,禺的QQ:645556964,欢迎做朋友共同探讨交流,呵呵