登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

面包会有的

... ...

 
 
 

日志

 
 

模板技术  

2008-07-06 20:58:25|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |


要生成静态页,必须采用模板技术,因为要写入TXT/Html文件,必须先将所有的最终Html代码,提前放入一个变量,然后才能写文件。

而要将所有的代码放在一个变量,必须用标签技术,即在模板中,用预定义标签来代表各个功能,读模板的过程中,根据各个标签来调用各个变量,随时将调用结果加到代码里,这样才能实现。

<%
filename = Server.MapPath("index.html")
HtmlContent = Readfile(filename)
'这是提供给前台程序的Html代码,可以从数据库中读取模板,或从Txt/Html文件读取到这些代码,这是例程,采用直接赋值给变量的方法。
HtmlContent = HtmlContent & "<Table border=1 width=""100%""><tr><td>{$ReadJobList(1,2)}</td><td>{$ReadCompanyList(1,2)}</td></tr></table>"

%>



<%

'clsMain.asp
 '================================================
 '函数名:CutMatchContent
 '作  用:截取相匹配的内容
 '参  数:Str   ----原字符串
 '        PatStr   ----符合条件字符
 '================================================
 Public Function CutMatchContent(ByVal str, ByVal start, ByVal last, ByVal Condition)
       
  Dim Match,s,re
  Dim FilterStr,MatchStr
  Dim strContent,ArrayFilter
  Dim i, n,bRepeat
  
  If Len(start) = 0 Or Len(last) = 0 Then Exit Function
  
  On Error Resume Next
  
  MatchStr = "(" & CorrectPattern(start) & ")(.+?)(" & CorrectPattern(last) & ")"

  Set re = New RegExp
  re.IgnoreCase = True
  re.Global = True
  re.Pattern = MatchStr
  Set s = re.Execute(str)
  n = 0
  For Each Match In s
   If n = 0 Then
    n = n + 1
    ReDim ArrayFilter(n)
    ArrayFilter(n) = Match
   Else
    bRepeat = False
    For i = 0 To UBound(ArrayFilter)
     If UCase(Match) = UCase(ArrayFilter(i)) Then
      bRepeat = True
      Exit For
     End If
    Next
    If bRepeat = False Then
     n = n + 1
     ReDim Preserve ArrayFilter(n)
     ArrayFilter(n) = Match
    End If
   End If
  Next
  
  Set s = Nothing
  Set re = Nothing
  
  If CBool(Condition) Then
   strContent = Join(ArrayFilter, "|||")
  Else
   strContent = Join(ArrayFilter, "|||")
   strContent = Replace(strContent, start, "")
   strContent = Replace(strContent, last, "")
  End If
  
  CutMatchContent = Replace(strContent, "|||", vbNullString, 1, 1)
 End Function
 
 Function CutFixContent(ByVal str, ByVal start, ByVal last, ByVal n)
  Dim strTemp
  On Error Resume Next
  If InStr(str, start) > 0 Then
   Select Case n
   Case 0  '左右都截取(都取前面)(去处关键字)
    strTemp = Right(str, Len(str) - InStr(str, start) - Len(start) + 1)
    strTemp = Left(strTemp, InStr(strTemp, last) - 1)
   Case Else  '左右都截取(都取前面)(保留关键字)
    strTemp = Right(str, Len(str) - InStr(str, start) + 1)
    strTemp = Left(strTemp, InStr(strTemp, last) + Len(last) - 1)
   End Select
  Else
   strTemp = ""
  End If
  CutFixContent = strTemp
 End Function
 Private Function CorrectPattern(ByVal str)
  str = Replace(str, "\", "\\")
  str = Replace(str, "~", "\~")
  str = Replace(str, "!", "\!")
  str = Replace(str, "@", "\@")
  str = Replace(str, "#", "\#")
  str = Replace(str, "%", "\%")
  str = Replace(str, "^", "\^")
  str = Replace(str, "&", "\&")
  str = Replace(str, "*", "\*")
  str = Replace(str, "(", "\(")
  str = Replace(str, ")", "\)")
  str = Replace(str, "-", "\-")
  str = Replace(str, "+", "\+")
  str = Replace(str, "[", "\[")
  str = Replace(str, "]", "\]")
  str = Replace(str, "<", "\<")
  str = Replace(str, ">", "\>")
  str = Replace(str, ".", "\.")
  str = Replace(str, "/", "\/")
  str = Replace(str, "?", "\?")
  str = Replace(str, "=", "\=")
  str = Replace(str, "|", "\|")
  str = Replace(str, "$", "\$")
  CorrectPattern = str
 End Function


 '=============================================================
 '过程名:CreatedTextFile
 '作  用:创建文本文件
 '参  数:filename  ----文件名
 '        body  ----主要内容
 '=============================================================
 Public Function CreatedTextFile(ByVal FileName, ByVal body)
  On Error Resume Next
  If InStr(FileName, ":") = 0 Then FileName = Server.MapPath(FileName)
  Dim fso,f
  Set fso = Server.CreateObject(FSO_ScriptName)
  Set f = fso.CreateTextFile(FileName)
  f.WriteLine body
  f.Close
  Set f = Nothing
  Set fso = Nothing
  If Err.Number <> 0 Then Err.Clear
 End Function
 '================================================
 '函数名:Readfile
 '作  用:读取文件内容
 '参  数:fromPath   ----来源文件路径
 '================================================
 Public Function Readfile(ByVal fromPath)
  'On Error Resume Next
  Dim strTemp,fso,f
  If InStr(fromPath, ":") = 0 Then fromPath = Server.MapPath(fromPath)
  Set fso = Server.CreateObject("Scripting.FileSystemObject")
  If fso.FileExists(fromPath) Then
   Set f = fso.OpenTextFile(fromPath, 1, True)
   strTemp = f.ReadAll
   f.Close
   Set f = Nothing
  End If
  Set fso = Nothing
  Readfile = strTemp
  If Err.Number <> 0 Then Err.Clear
 End Function
%>


<%

'Cls_Public.asp

 '================================================
 '函数名:LoadCompanyList
 '================================================
 Public Function LoadCompanyList(a,b) 

  '根据接收到的参数,从数据库中查询到记录,然后将所有结果连成一个字符串,放到strContent中传递
  strContent = "<a href=show.asp?id=6 target=_blank>百誉科技!</a>"
  LoadCompanyList = strContent

 End Function

 '================================================
 '函数名:ReadCompanyList
 '作  用:读取公司列表
 '参  数:str ----原字符串
 '================================================
 Public Function ReadCompanyList(ByVal str)
  Dim strTemp, i
  Dim sTempContent, nTempContent
  Dim arrTempContent, arrTempContents, ArrayList
  'On Error Resume Next
  strTemp = str
  If InStr(strTemp, "{$ReadCompanyList(") > 0 Then

   sTempContent = CutMatchContent(strTemp, "{$ReadCompanyList(", ")}", 1)
   nTempContent = CutMatchContent(strTemp, "{$ReadCompanyList(", ")}", 0)
   arrTempContents = Split(sTempContent, "|||")
   arrTempContent = Split(nTempContent, "|||")
   For i = 0 To UBound(arrTempContents)
    ArrayList = Split(arrTempContent(i), ",")
    strTemp = Replace(strTemp, arrTempContents(i), LoadCompanyList(1,2))
   Next
  End If
  ReadCompanyList = strTemp

 End Function

 

 

 

 

 

 '================================================
 '函数名:LoadJobList
 '================================================
 Public Function LoadJobList(a,b) 

  '根据接收到的参数,从数据库中查询到记录,然后将所有结果连成一个字符串,放到strContent中传递
  strContent = "<a href=show.asp?id=6 target=_blank>财务人员!</a>"
  LoadJobList = strContent

 End Function

 '================================================
 '函数名:ReadJobList
 '作  用:读取职位列表
 '参  数:str ----原字符串
 '================================================
 Public Function ReadJobList(ByVal str)
  Dim strTemp, i
  Dim sTempContent, nTempContent
  Dim arrTempContent, arrTempContents, ArrayList
  'On Error Resume Next
  strTemp = str
  If InStr(strTemp, "{$ReadJobList(") > 0 Then

   sTempContent = CutMatchContent(strTemp, "{$ReadJobList(", ")}", 1)
   nTempContent = CutMatchContent(strTemp, "{$ReadJobList(", ")}", 0)
   arrTempContents = Split(sTempContent, "|||")
   arrTempContent = Split(nTempContent, "|||")
   For i = 0 To UBound(arrTempContents)
    ArrayList = Split(arrTempContent(i), ",")
    strTemp = Replace(strTemp, arrTempContents(i), LoadJobList(1,2))
   Next
  End If
  ReadJobList = strTemp

 End Function

 Public Function ShowIndex(isHtml)  


  HtmlContent = ReadJobList(HtmlContent)    '职位列表
  HtmlContent = ReadCompanyList(HtmlContent)   '公司列表

  If isHtml=1 Then
   'ShowIndex = HtmlContent
   Response.Write HtmlContent
  Else
   Response.Write HtmlContent
  End If

 End Function

%>

<%
'Templete.asp
filename = Server.MapPath("index.html")
HtmlContent = Readfile(filename)
'这是提供给前台程序的Html代码,可以从数据库中读取模板,或从Txt/Html文件读取到这些代码,这是例程,采用直接赋值给变量的方法。
HtmlContent = HtmlContent & "<Table border=1 width=""100%""><tr><td>{$ReadJobList(1,2)}</td><td>{$ReadCompanyList(1,2)}</td></tr></table>"

%>

<!--#include file="inc/Cls_Public.asp"-->
<!--#include file="inc/clsMain.asp"-->
<!--#include file="inc/Templete.asp"-->

<%
Call ShowIndex(1)
%>


  评论这张
 
阅读(629)| 评论(0)

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018