演示：http://asp2004.***/temp/treemenu/menu.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+""+chr(13)
i=1while 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=""&rs("menuname")&""
οnmοuseup=""
else
if i=rs.recordcount then
menutype="menu3"
listtype="list1"
οnmοuseup=" onmouseup=change1('a"&rs("id")&"','b"&rs("id")&"');"
else
menutype="menu1"
listtype="list"
οnmοuseup=" onmouseup=change2('a"&rs("id")&"','b"&rs("id")&"');"
end if
menuname=rs("menuname")
end if
str=str+""&menuname&"
"+chr(13)
if childcount>0 then
str=str+""+chr(13)
menu(rs("id"))
str=str+"
"+chr(13)
end if
rs.movenext
i=i+1
wend
str=str+""+chr(13)
rs.close
set rs=nothing
end function
menu(0)
f1.write(str)
f1.write("")
f1.write("")
f1.close
set fso=nothing
response.redirect("demo.htm")
%>
asp生成靜態頁面 生成html
網頁生成靜態html檔案有許多好處,比如生成html網頁有利於被搜尋引擎收錄,不僅被收錄的快還收錄的全.前臺脫離了資料訪問,減輕對資料庫訪問的壓力,加快網頁開啟速度.像www.aspid.cn的主站就採用了tsys生成html檔案 所以吟清最近對生成html比較感興趣,看了不少文章,也有一點點收穫....
ASP生成靜態Html檔案技術
1,下面這個例子直接利用fso把html 寫入到檔案中然後生成.html格式的檔案 htmlwrite.write 輸出title內容 request.form title 輸出body內容 request.form body htmlwrite.close set fout nothing set...
ASP生成靜態的HTML技術
採用的是html靜態頁面生成技術。我所知的一共有三種方法。但我所瞭解只有兩種。還是用 說話。第一種生成方式。function creathtml htmlname,htmltitile,htmlcontent 引數為相對路徑 set objfso createobject scripting.fil...
如何用ASP生成靜態Html檔案
htmlwrite.write 輸出title內容 request.form title 輸出body內容 request.form body htmlwrite.close set fout nothing set fso nothing end if 2.但是按照上面的方法生成html檔案非常不...
ASP生成靜態Html檔案技術雜談
網頁生成靜態html檔案有許多好處，比如生成html網頁有利於被搜尋引擎收錄而且不僅被收錄的快還收錄的全。前臺脫離了資料訪問，減輕對資料庫訪問的壓力，加快網頁開啟速度。最近在對臺內 進行重新設計時也採用了這種全站生成靜態html的結構。參考了網上一些資料，下面三種方法對理解由asp生成html的原理...