ASP中生成静态页面技术

最新推荐文章于 2017-01-01 03:17:47 发布
最新推荐文章于 2017-01-01 03:17:47 发布
阅读量894 收藏
点赞数
分类专栏： ASP 文章标签： asp menu stylesheet function html javascript
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/satans18/article/details/130229
版权

演示：http://asp2004.net/temp/treemenu/menu.asp
源代码下载：http://asp2004.net/temp/treemenu.rar

< ! -- #include file = " conn.asp " -->
< %
 Dim Str

 Function menu(id)
    Set rs = server. CreateObject ( " adodb.recordset " )
    sql = " select * from menu where id1= " & id & " order by url,id"
    rs.Open sql, conn, 1 , 1
    Str = Str + " <table border='0' cellspacing='0' cellpadding='0'> " + Chr ( 13 )
    i = 1
    While Not rs.EOF
        ChildCount = conn. Execute ( " select count(*) from menu where id1= " & rs( " id " ))( 0 )
        If ChildCount = 0 Then
            If i = rs.recordcount Then
                menutype = " file1"
            Else
                menutype = " file"
            End If
            menuname = " <a href=' " & rs( " url " ) & " ' target='_blank'> " & rs( " menuname " ) & " </a>"
            onmouseup = " "
        Else
            If i = rs.recordcount Then
                menutype = " menu3"
                listtype = " list1"
                onmouseup = " onMouseUp=change1('a " & rs( " id " ) & " ','b " & rs( " id " ) & " ');"
            Else
                menutype = " menu1"
                listtype = " list"
                onmouseup = " onMouseUp=change2('a " & rs( " id " ) & " ','b " & rs( " id " ) & " ');"
            End If
            menuname = rs( " menuname " )
        End If
        Str = Str + " <tr><td id='b " & rs( " id " ) & " ' class=' " & menutype & " ' " & onmouseup & " > " & menuname & " </td></tr> " + Chr ( 13 )
        If ChildCount > 0 Then
            Str = Str + " <tr id='a " & rs( " id " ) & " ' style='display:none'><td class=' " & listtype & " '> " + Chr ( 13 )
            menu(rs( " id " ))
            Str = Str + " </td></tr> " + Chr ( 13 )
        End If
        rs.movenext
        i = i + 1
    Wend
    Str = Str + " </table> " + Chr ( 13 )
    rs.Close
    Set rs = Nothing
End Function

menu( 0 )

 Set fso = server. CreateObject ( " scripting.filesystemobject " )
 Set f1 = fso.OpenTextFile(server.MapPath( " demo.htm " ), 2 , true )
f1.Write( " <!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN' 'http://www.w3.org/TR/html4/loose.dtd'> " )
f1.Write( " <html> " )
f1.Write( " <head> " )
f1.Write( " <meta http-equiv='Content-Type' content='text/html; charset=gb2312'> " )
f1.Write( " <title>哈哈~~~！这回速度超快了吧？</title> " )
f1.Write( " <meta name='keywords' content='asp2004,树,菜单,无限级'> " )
f1.Write( " <meta name='author' content='小灰,quxiaohui_0@163.com'> " )
f1.Write( " <link href='style.css' rel='stylesheet' type='text/css'> " )
f1.Write( " <script language='javascript' src='function.js'></script> " )
f1.Write( " </head> " )
f1.Write( " <body> " )
f1.Write( " <a href='http://asp2004.net' target='_blank'>http://asp2004.net</a>提供最新下载《<a href='menu.asp'>管理</a>》<br> " )

f1.Write(Str)

f1.Write( " </body> " )
f1.Write( " </html> " )
f1.Close
 Set fso = Nothing

response.Redirect( " demo.htm " )
% >
satans18
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
asp生成静态html页面
10-28
asp生成静态htmlasp生成静态html
ASP网站生成静态html页面技术小结
10-30
在探讨ASP（Active Server Pages）网站如何生成静态HTML页面的技术过程中，本文档将详细介绍几个关键步骤，并对比分析几种常用方法的特点及适用场景。 #### 一、获取要生成的HTML文件的内容 在生成静态HTML页面的...
ASP生成静态页面的方法
06-16 519
 ASP2HTML WITH TEMPLET我希望大家看到该标题就能让想象到它的功能：1，WITH TEMPLET意思是，生成的页面架构将采用某个已设定的模板，在此之前我的一篇教程中介绍过，希望各位在看本教程之前对ASP采用模板应熟悉下。（当然，不看也没有问题，本教程同样会提及精华部分的：）具体参考：http://www.cnbruce.com/blog/showlog.asp?cat_id=26
ASP生成静态
01-01 85
刚学习ASP，想了解一下。我要在虚拟主机上生成静态文件，如果使用FSO，FSO要求要有源文件的具体路径，可是，我的页面是动态的，没有具体的路径，怎么办？如果使用模板，可是模板要调用数据库的函数实在太多了，怎么把这些数据都调出来了，生成虚拟的页面（在服务器端），再用FSO生成静态的文件呢？如果要用XMLHTTP，可是又必须打开客户端，有没有办法能不打开客户端就能使用XMLHTTP或类似的插件来生成静
简单的ASP生成静态html
weixin_33827590的博客
03-06 111
&lt;% filename=year(now)&amp;month(now)&amp;day(now)&amp;minute(now)&amp;".htm" '根据当前时间生成文件名 if request("body")&lt;&gt;"" then set objfso = Server.CreateObject("Scripting.FileSystemObject&
ASP.NET 生成静态页面 实现思路
10-29
网上的cms系统好多都是支持生成静态的，大家在使用过程中，也肯定遇到了很多的问题，下面就是一些实现的原理，其实 asp,php,asp.net的原理都是差不多的。
asp:生成静态页面函数
01-02
 then Response.write “已生成” else Response.write “没有生成” end if function SaveFile(LocalFileName,RemoteFileUrl) Dim Ads, Retrieval, GetRemoteData On Error Resume Next Set ...
ASP.NET生成静态页面
05-26
ASP.NET生成静态页面是一种常见的网站优化技术，它能够提高网页加载速度，降低服务器负载，并对搜索引擎友好。在本文中，我们将深入探讨这个主题，包括如何实现静态页面生成、分页处理、常见问题以及代码优化。 ...
Asp.Net生成静态页面的实现方法
10-26
在Asp.Net中生成静态页面是一种优化网站性能和搜索引擎优化（SEO）的常见技术。静态页面是预先编译好的HTML文件，用户请求时无需经过服务器的动态处理，直接由Web服务器发送给客户端，降低了服务器的负载。以下是Asp...
Asp生成静态HTML完整实例（包括列表分页）
03-28
Asp生成静态HTML完整实例（包括列表分页）
ASP生成静态HTML页面
02-24
ASP转静态页实例 ASP生成静态HTML页面
asp生成html，asp生成静态
12-01
asp生成静态，asp生成html，asp生成htm，asp静态插件 asp 生成静态插件
asp生成html静态
weixin_30394633的博客
10-08 126
网页生成静态Html文件有许多好处,比如生成html网页有利于被搜索引擎收录,不仅被收录的 快还收录的全.前台脱离了数据访问,减轻对数据库访问的压力,加快网页打开速度. 像http://www.aspid.cn/的主站就采用了TSYS生成html文件! 所以吟清最近对生成html比较感兴趣,看了不少文章,也有一点点收获. 1,下面这个例子直接利用FSO把html代码写入到文件中然后生...
ASP生成静态Html文件技术
chinajobs的专栏
05-13 1389
现在网站网页生成静态Html文件有许多好处,比如生成html网页有利于被搜索引擎收录,不仅被收录的快还收录的全.前台脱离了数据访问,减轻对数据库访问的压力,加快网页打开速度.  像www.aspid.cn的主站就采用了TSYS生成html文件! 所以吟清最近对生成html比较感兴趣,看了不少文章,也有一点点收获. 1,下面这个例子直接利用FSO把html代码写入到文件中然后生成.html
ASP生成静态HTML文件
鹰击长空
05-16 834
这里讲述的方法就是利用模板技术,将模板中特殊代码的值替换为从表单或是数据库字段中接受过来的值,完成模板功能;将最终替换过的所有模板代码生成HTML文件.这种技术采用得比较多,大部分的CMS都是使用这类方法.　　template.htm ’ //模板文件  　　  　　  　　$title$ by aspid.cn  　　  　　  　　$body$  　　  　　TestTemplate.as
ASP生成静态htm页面基本代码！
小人物的专栏 *^_^*
11-19 1440
以下虚线框内为mk.asp文件的具体代码：--------------------------------------------------------------------------------filename="test.htm"if request("body")set fso = Server.CreateObject("Scripting.FileSystemObject")set
ASP生成静态网页的多种方法
南三方---网站设计开发录
12-12 2054
使用FSO生成使用FSO生成Set fs = CreateObject("Scripting.FileSystemObject")NewFile=Server.MapPath("ud03/fso.htm")新建一文件fso.htm,若该文件已存在，则覆盖它Set a = fs.CreateTextFile(NewFile, True)Response.Write"新文件已建立！"a.clo
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值