<% dim ModuleName,InfoID,ChannelShortName,CorrelativeArticle,InstallDir,ChannelDir,Keyword,PageTitle,ArticleIntro,Articlecontent Keyword=stripHTML("WEB,CGI,perl,应用,技巧") PageTitle=stripHTML("一种html模版输出方式") ArticleIntro=stripHTML("") Articlecontent=stripHTML("代码出处 唐伟多用途信息平台              ####################################################…") ModuleName = stripHTML("classical") InfoID = stripHTML("25436") ChannelShortName=stripHTML("文章") InstallDir=stripHTML("http://www.77169.com/") ChannelDir=stripHTML("classical") %> 一种html模版输出方式 - 华盟网 - http://www.77169.com  <% Function stripHTML(strHTML) 'Strips the HTML tags from strHTML Dim objRegExp, strOutput Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "<.+?>" 'Replace all HTML tag matches with the empty string strOutput = objRegExp.Replace(strHTML, "") 'Replace all < and > with < and > strOutput = Replace(strOutput, "<", "<") strOutput = Replace(strOutput, ">", ">") strOutput = Replace(strOutput,Chr(34),Chr(39)) stripHTML = strOutput 'Return the value of strOutput Set objRegExp = Nothing End Function %> "> 
您现在的位置: 华盟网 >> 知识库 >> WEB开发 >> CGIperl >> 应用技巧 >> 正文

一种html模版输出方式

2005/8/29 作者:unknown 来源: unknown
导读 <% if len(ArticleIntro)<3 then Response.Write Articlecontent 'Response.Write "Articlecontent" else Response.Write ArticleIntro 'Response.Write "ArticleIntro" end if %>


代码出处 唐伟多用途信息平台
#################################################################################
# 函数名字 : html_open #
# 调用方法 : $html = [$html_open($html_address,no)] #
# 最后的no表示不替换文件中的变量 #
# 所需元素 : 需要读取的文件 #
# 返 回 值 : 读取出来的结果 #
# 用 途 : HTML模板读取 #
#################################################################################
# ------------------------------------------------------
# 自定义函数:
sub html_open {
local(*FILE);
my($file);
my($HTML);
my $id = $_[0];
if ($id eq ""){$id = "1"};
my $file = $_[1] or print"超文本模板打开错误!导致错误的文件是:$file <p>HTML MODEL FILE OPEN ERROR!!!<BR>file: $file open error!";
open(FILE, "<$file") or print"超文本模板打开错误!导致错误的文件是:$file <p>HTML MODEL FILE OPEN ERROR!!!<BR>file: $file open error!";
my $html;
while (<FILE>){$html .= $_};
close(FILE);
$html =~s/\$db_config/db_config/isg;
my $html_filter = $_[2];
if ($html_filter ne "no"){
$html =~ s/(\$(?:(?:\w+)|\$(\w+)|(?:{\w+})|(?:{'\w+'}))+)/$1/eeg;
};
$html .= [$copyright]
return $html;
};

 

                  微信群名称:华盟-黑白之道         华盟--黑白之道⑦QQ群: 9430885

  • 上一篇文章:

  • 下一篇文章:
  • 
    网友评论
      验证码