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

ASP
ASP基础讲座（下）
解决IIS5 HTTP500内部错误
ASP 3.0高级编程（四十六）
ASP 3.0高级编程（四十五）
ASP 3.0高级编程（四十四）
ASP 3.0高级编程（四十三）
ASP 3.0高级编程（四十二）
ASP 3.0高级编程（四十一）
ASP 3.0高级编程（三十九）
ASP 3.0高级编程（三十八）
ASP 3.0高级编程（三十七）
ASP 3.0高级编程（三十六）
ASP 3.0高级编程（三十五）
ASP 3.0高级编程（三十四）
ASP 3.0高级编程（三十三）
ASP 3.0高级编程（三十二）
ASP 3.0高级编程（三十一）
ASP错误代码说明
jscript错误代码及相应解释大全
ASP错误处理

No. « 12 13 14 15 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-08-14   浏览: 73 ::
收藏到网摘: 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，欢迎做朋友共同探讨交流，呵呵