用標籤替換的方法產生靜態網頁

來源:互聯網
上載者:User

大家都知道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,歡迎做朋友共同探討交流,呵呵




相關文章

Cloud Intelligence Leading the Digital Future

Alibaba Cloud ACtivate Online Conference, Nov. 20th & 21st, 2019 (UTC+08)

Register Now >

11.11 Big Sale for Cloud

Get Unbeatable Offers with up to 90% Off,Oct.24-Nov.13 (UTC+8)

Get It Now >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。