ASP中生成静态页面技术

原创 2004年09月08日 08:26:00

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

None.gif<!--#include file="conn.asp"-->
None.gif
<%
None.gif
Dim Str
None.gif
None.gif
Function menu(id)
None.gif   
Set rs = server.CreateObject("adodb.recordset")
None.gif    sql
= "select * from menu where id1="&id&" order by url,id"
None.gif
    rs.Open sql, conn, 1, 1
None.gif    Str
= Str + "<table border='0' cellspacing='0' cellpadding='0'>" + Chr(13)
None.gif    i
= 1
None.gif   
While Not rs.EOF
None.gif        ChildCount
= conn.Execute("select count(*) from menu where id1="&rs("id"))(0)
None.gif       
If ChildCount = 0 Then
None.gif           
If i = rs.recordcount Then
None.gif                menutype
= "file1"
None.gif
            Else
None.gif                menutype
= "file"
None.gif
            End If
None.gif            menuname
= "<a href='"&rs("url")&"' target='_blank'>"&rs("menuname")&"</a>"
None.gif
            onmouseup = ""
None.gif
        Else
None.gif           
If i = rs.recordcount Then
None.gif                menutype
= "menu3"
None.gif
                listtype = "list1"
None.gif
                onmouseup = " onMouseUp=change1('a"&rs("id")&"','b"&rs("id")&"');"
None.gif
            Else
None.gif                menutype
= "menu1"
None.gif
                listtype = "list"
None.gif
                onmouseup = " onMouseUp=change2('a"&rs("id")&"','b"&rs("id")&"');"
None.gif
            End If
None.gif            menuname
= rs("menuname")
None.gif       
End If
None.gif        Str
= Str + "<tr><td id='b"&rs("id")&"' class='"&menutype&"'"&onmouseup&">"&menuname&"</td></tr>" + Chr(13)
None.gif       
If ChildCount>0 Then
None.gif            Str
= Str + "<tr id='a"&rs("id")&"' style='display:none'><td class='"&listtype&"'>" + Chr(13)
None.gif            menu(rs(
"id"))
None.gif            Str
= Str + "</td></tr>" + Chr(13)
None.gif       
End If
None.gif        rs.movenext
None.gif        i
= i + 1
None.gif   
Wend
None.gif    Str
= Str + "</table>" + Chr(13)
None.gif    rs.Close
None.gif   
Set rs = Nothing
None.gif
End Function
None.gif
None.gifmenu(
0)
None.gif
None.gif
Set fso = server.CreateObject("scripting.filesystemobject")
None.gif
Set f1 = fso.OpenTextFile(server.MapPath("demo.htm"), 2, true)
None.giff1.Write(
"<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN' 'http://www.w3.org/TR/html4/loose.dtd'>")
None.giff1.Write(
"<html>")
None.giff1.Write(
"<head>")
None.giff1.Write(
"<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>")
None.giff1.Write(
"<title>哈哈~~~!这回速度超快了吧?</title>")
None.giff1.Write(
"<meta name='keywords' content='asp2004,树,菜单,无限级'>")
None.giff1.Write(
"<meta name='author' content='小灰,quxiaohui_0@163.com'>")
None.giff1.Write(
"<link href='style.css' rel='stylesheet' type='text/css'>")
None.giff1.Write(
"<script language='javascript' src='function.js'></script>")
None.giff1.Write(
"</head>")
None.giff1.Write(
"<body>")
None.giff1.Write(
"<a href='http://asp2004.net' target='_blank'>http://asp2004.net</a>提供最新下载《<a href='menu.asp'>管理</a>》<br>")
None.gif
None.giff1.Write(Str)
None.gif
None.giff1.Write(
"</body>")
None.giff1.Write(
"</html>")
None.giff1.Close
None.gif
Set fso = Nothing
None.gif
None.gifresponse.Redirect(
"demo.htm")
None.gif%
>

ASP中生成静态页面技术

演示:http://asp2004.net/temp/treemenu/menu.asp源代码下载:http://asp2004.net/temp/treemenu.rar!--#include fi...
  • satans18
  • satans18
  • 2004年10月10日 09:23
  • 766

ASP中生成静态页面技术

演示:http://asp2004.net/temp/treemenu/menu.asp源代码下载:http://asp2004.net/temp/treemenu.rar!--#include fi...
  • Aimar168
  • Aimar168
  • 2004年10月10日 13:49
  • 1011

asp网页生成静态htm文件的方法

目前生成静态的ASP大概有三种例子:1将下面存为一个ASP文件即可,IIS只要开启了FSO就可以测试运行:filename="test.htm" 设置生成的文件名if request("body")s...
  • SDTerminator
  • SDTerminator
  • 2007年11月25日 18:57
  • 1748

什么是静态页面化技术

在访问 新闻、活动、商品 详情页面时, 路径可以是 xx【 id】 .html, 服务器端根据请 求 id, 动态生成 html 网页,下次访问数据时,无需再查询数据,直接将 html 静态页面返 ...
  • nezhaxiaopengyou
  • nezhaxiaopengyou
  • 2018年01月04日 13:43
  • 19

ASP+FSO+框架实现ASP生成htm静态页并分页的方法

      其实网上已经有很多ASP生成htm的文章了,有一种方法是ASP+XML的生成方法,虽然有一种好处就是不用程序写模版就可以直接引用原来的要生成页面源码使用,但 本人进行此方法测试时,发现其稳...
  • KanJingCode
  • KanJingCode
  • 2007年01月26日 09:17
  • 1433

ASP动态网页生成静态Html网页代码

【摘 要】 生成html网页有利于被搜索引擎收录,不仅被收录的快还收录的全.前台脱离了数据访问,减轻对数据库访问的压力,加快网页打开速度。 网页生成静态Html文件有许多好处,比如生成html网页有利...
  • inrgs
  • inrgs
  • 2007年03月25日 23:28
  • 3976

vb.net静态生成页面技术【原创】

Public Class conn    Function WriteFile(ByVal strText As String, ByVal strContent As String, ByVal s...
  • sdvivian2007
  • sdvivian2007
  • 2007年11月30日 15:58
  • 194

ASP生成静态网页的多种方法

使用FSO生成使用FSO生成Set fs = CreateObject("Scripting.FileSystemObject")NewFile=Server.MapPath("ud03/fso.ht...
  • okfei
  • okfei
  • 2008年12月12日 00:04
  • 1396

ASP生成静态页面用户登录的解决办法

ASP生成静态时用户登录的动态显示,源代码,雨站测试通过。
  • fengyu19880219
  • fengyu19880219
  • 2011年03月01日 14:12
  • 561

ASP生成静态HTML文件的几种方法比较

将动态页面转换生成静态Html文件有许多好处,比如生成html网页有利于被搜索引擎收录(特别是对接受动态参数的页面).前台访问时,脱离了数据访问,减轻对数据库访问的压力,加快网页打开速度. 当然,凡事...
  • lindacloud
  • lindacloud
  • 2008年01月29日 15:21
  • 479
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ASP中生成静态页面技术
举报原因:
原因补充:

(最多只允许输入30个字)