伊缘网 首页
 设为首页    加入收藏    用户帮助    联系我们 
网站首页 新闻动态 技术文章 Flash整站 精彩网文 资源下载 视频教程
网上商城 Flash动漫 网页特效 酷站欣赏 BBS论坛 在线工具 留言本站
  F-CMS Flash CMS   CXT Flash Cms   SXW Flash CMS   EXW Flash Cms   
  您的位置: 伊缘网 >> 网络学堂 >> 建站技术 >> ASP 编程
 阅读文章

ASP生成静态网页之标签替换法

  文章作者:网络来源:星恋伊缘网浏览次数:3410字体:
 阅读权限:游客身份阅读花费:0 E币添加时间:2007-6-21 上午 02:57:50提交会员:esing
皮具制造生产企业,专注时尚包包
提示:登陆本站会员系统后,网站系统将不显示任何广告!如果您还不是本站会员请注册本站会员,谢谢您对本站的关注!

    标签替换法,就是在设计好了的网页模板中,放入自已设定的标签,然后用你需要显示出来的东东替换它。如

    模板文件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都是采用这种方法生成静态网页的,这种方法使用比较灵活,只要你用心去设计一下你的系统,以后网做一个网站,只要设计模板就可以了。。。


  Tags:  ASP  生成静态网页  标签替换  
·上篇文章:网页中嵌入另一个网页两种方法
·下篇文章:CSS实现网页背景渐变
复制 】 【 打印
 相关文章
·百度资料: ASP生成静态网页之标签替换法
·asp.net 上传图片+自动生成缩略图+图片水印功能 2010-6-13 下午 05:28:41
·动手写个小组件(组件入门)_ASP 2010-5-23 上午 09:02:24
·ASP无组件上传错误 "80004005"解决方法 2010-4-26 下午 03:48:08
·ASP生成UTF-8文件实例 2010-1-8 上午 12:26:34
·在IE8下无组件上传错误"800a0005"的解决方法 2009-6-25 下午 06:27:51
特别声明:本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载,但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站,我们表示深深的谢意。如果本站转载的文章有版权问题请联系我们,我们尽快予以更正,谢谢。
 相关评论
【文章评论已关闭】
伊缘网