ASP中生成静态页面技术

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

演示：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 " )
% >
asp生成静态html页面
10-28
asp生成静态htmlasp生成静态html
ASP网站生成静态html页面技术小结
10-30
在探讨ASP（Active Server Pages）网站如何生成静态HTML页面的技术过程中，本文档将详细介绍几个关键步骤，并对比分析几种常用方法的特点及适用场景。 #### 一、获取要生成的HTML文件的内容 在生成静态HTML页面的...
ASP生成静态页面的方法
06-16 545
 ASP2HTML WITH TEMPLET我希望大家看到该标题就能让想象到它的功能：1，WITH TEMPLET意思是，生成的页面架构将采用某个已设定的模板，在此之前我的一篇教程中介绍过，希望各位在看本教程之前对ASP采用模板应熟悉下。（当然，不看也没有问题，本教程同样会提及精华部分的：）具体参考：http://www.cnbruce.com/blog/showlog.asp?cat_id=26
ASP生成静态
01-01 111
刚学习ASP，想了解一下。我要在虚拟主机上生成静态文件，如果使用FSO，FSO要求要有源文件的具体路径，可是，我的页面是动态的，没有具体的路径，怎么办？如果使用模板，可是模板要调用数据库的函数实在太多了，怎么把这些数据都调出来了，生成虚拟的页面（在服务器端），再用FSO生成静态的文件呢？如果要用XMLHTTP，可是又必须打开客户端，有没有办法能不打开客户端就能使用XMLHTTP或类似的插件来生成静
简单的ASP生成静态html
weixin_33827590的博客
03-06 132
&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生成html静态
weixin_30394633的博客
10-08 148
网页生成静态Html文件有许多好处,比如生成html网页有利于被搜索引擎收录,不仅被收录的 快还收录的全.前台脱离了数据访问,减轻对数据库访问的压力,加快网页打开速度. 像http://www.aspid.cn/的主站就采用了TSYS生成html文件! 所以吟清最近对生成html比较感兴趣,看了不少文章,也有一点点收获. 1,下面这个例子直接利用FSO把html代码写入到文件中然后生...
ASP.NET 生成静态页面 实现思路
10-29
总结来说，***生成静态页面的实现思路大致可以分为以下几个步骤：选择原型网页并添加特殊标记、通过FileUpload控件获取并保存HTML网页代码、对代码进行格式化处理并存储到数据库、提取数据库中的页面模型并替换特定...
ASP.NET MVC生成静态页面的方法
10-20
对于具体的实现，开发者可能需要根据项目的具体需求，在*** MVC的控制器（Controller）中调用上述Common类的实例，并在适当的动作方法（Action Method）中利用它来生成静态页面。例如，在一个内容管理系统中，当用户...
asp.net新闻列表生成静态页之批量和单页生成
09-03
在处理高流量、大数据量的网站时，生成静态页面技术可以显著提升用户体验，减少服务器负载，并增强安全性。本文将探讨如何在 ASP.NET 中实现新闻列表的静态页批量和单页生成。 生成静态页面的主要目的包括： 1. **...
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文件技术
chinajobs的专栏
05-13 1411
现在网站网页生成静态Html文件有许多好处,比如生成html网页有利于被搜索引擎收录,不仅被收录的快还收录的全.前台脱离了数据访问,减轻对数据库访问的压力,加快网页打开速度.  像www.aspid.cn的主站就采用了TSYS生成html文件! 所以吟清最近对生成html比较感兴趣,看了不少文章,也有一点点收获. 1,下面这个例子直接利用FSO把html代码写入到文件中然后生成.html
ASP生成静态HTML文件
鹰击长空
05-16 867
这里讲述的方法就是利用模板技术,将模板中特殊代码的值替换为从表单或是数据库字段中接受过来的值,完成模板功能;将最终替换过的所有模板代码生成HTML文件.这种技术采用得比较多,大部分的CMS都是使用这类方法.　　template.htm ’ //模板文件  　　  　　  　　$title$ by aspid.cn  　　  　　  　　$body$  　　  　　TestTemplate.as
ASP生成静态htm页面基本代码！
小人物的专栏 *^_^*
11-19 1465
以下虚线框内为mk.asp文件的具体代码：--------------------------------------------------------------------------------filename="test.htm"if request("body")set fso = Server.CreateObject("Scripting.FileSystemObject")set
ASP生成静态网页的多种方法
南三方---网站设计开发录
12-12 2097
使用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
asp生成静态HTML(动态读取)
weixin_34281537的博客
08-23 258
2019独角兽企业重金招聘Python工程师标准>>> ...
ASP通过模板生成静态页面
Oxidy
05-30 566
最近在做一个项目，需要用到ASP通过模板生成一个静态页面的功能，在网络上找了好多，但是我最后选择用这样的一种方法：完全通过了测试，我的测试环境是Windows2003SP2＋DreamWeaver 8。 详见附件 js 代码 直接FSO读取模板文件,不存入数据库,这样修改模板才够方便.       程序代码&lt;!--模板文件(template.htm)--&gt;    ...
评论 7
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值