程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 網頁編程 >> ASP編程 >> ASP入門教程 >> 使用ASP讀取HTML模版的方法(附代碼)

使用ASP讀取HTML模版的方法(附代碼)

編輯:ASP入門教程

在實際工作中我們經常要使用到模版,這樣不僅保證了每頁的一致性,也減少了我們的工作量,本文介紹怎麼使用ASP讀取Html模版的方法(附代碼)

模片頁面:  m.htm

標題:{title}

內容:{content}

調用頁面    xxx.ASP    

My_moban=LoadFile("m.htm")

If My_moban <> "" then
My_moban=(replace(My_moban,"{title}",“建站學”

My_moban=(replace(My_moban,"{content}","http://www.jzxue.com"))
Response.Write My_moban
end if

Function LoadFile(m_Root)
Dim Filename,fso,hndFile
Filename = m_Root
If Right(Filename, 1)<>"/" And Right(Filename, 1)<>"\" Then Filename = Filename & "/"
Filename = Server.MapPath(Filename & m_FileName)

Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(Filename) Then response.write("模板文件" & m_FileName & "不存在!") :response.end

set hndFile = fso.OpenTextFile(Filename)
  if not hndFile.atendofstream then  
  LoadFile = hndFile.ReadAll
  end if
Set hndFile = Nothing
Set fso = Nothing
If LoadFile = "" Then  response.write("不能讀取模板文件" & m_FileName & "或文件為空!"):response.end

End Function

以上方法僅供參考,大家可以舉一反三。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved