好久没上来活动了,发个刚写的程序多凑下热闹,

hsbych

好久没上来活动了,发个刚写的程序多凑下热闹,
以下内容含脚本,或可能导致页面不正常的代码
好久没上来活动了,刚写了一个多级树型菜单函数,发上来看看...大家指教下啊,
不过这里好像不是很热闹呀,啊呆这里社论变成娱乐的多多了,也增加了许多新的朋友哦,不过都不认识...我最近项目做完了.惨了一段子现在出来走走了咯...
下面的程序多多指教咯.
<%

'FSortId对应父ID数
'Layer层
'Url打开网址如"in1.asp?id="如果？号后有更多参数，刚把参数放在？号后，id之前，并用&号区分，如"in1.asp?tit=aaa&id="
'Tab打开目标页参数（_self(相同框);_top（整页）;_blank（新页）;_parent（父页）;其它自定义）
'Furl父，是否有URL链接功能0没有，1有

response.write"<SCRIPT>"
response.write"functionjh(id){"
response.write"JavaScript:ShowHideMenu(id);"
response.write"if(eval('Hxkj'+id).style.display=='block')"
response.write"{document.images['img'+id].src='images/issmall.gif';document.images['open'+id].src='images/isopen.gif';}"
response.write"else"
response.write"{document.images['img'+id].src='images/inbig.gif';document.images['open'+id].src='images/isbook.gif';}"
response.write"}"

response.write"functionShowHideMenu(id){"
response.write"        if(eval('Hxkj'+id).style.display=='none')"
response.write"                eval('Hxkj'+id).style.display='block';"
response.write"        else"
response.write"                eval('Hxkj'+id).style.display='none';"
response.write"}"
response.write"</SCRIPT>"

subSortFormat(FSortId,Layer,Url,Tab,Furl)
dimj
IfFSortId>=0Then
dimtemprs
settemprs=server.CreateObject("adodb.recordset")
temprs.Open"select*fromsortwheresortid="&FSortId&"orderbygo_id",cn,3,3

forj=1totemprs.RecordCount

fork=1toLayer*2
response.write"        "
next'下层移进


settemprs2=server.CreateObject("adodb.recordset")
temprs2.Open"select*fromsortwheresortid="&temprs("id")&"orderbygo_id",cn,3,3
iftemprs2.eofortemprs2.bofthenNO=0
temprs2.close
settemprs2=nothing'验证是否存在下层数据结束

ifNO="0"then
response.write"<imgname='img"&temprs("id")&"'border='0'src='images/issmall.gif'><imgname='open"&temprs("id")&"'border=0src=images/isbook.gif>"
else
response.write"<imgname='img"&temprs("id")&"'border='0'src='images/inbig.gif'><imgname='open"&temprs("id")&"'border=0src=images/isbook.gif>"
endif

'--
ifUrl<>""then
UrlOK=Url&temprs("id")
else
UrlOK="#"
endif
iftemprs("Url")<>""thenUrlOK=temprs("Url")
TabOK=tab
ifFurl="0"andNO<>"0"then
UrlOK="#"
Tabok=""
endif

'--
response.write"<ahref='"&UrlOK&"'target='"&TabOK&"'onclick='javascrpt:jh("&temprs("id")&")'>"&temprs("sort")&"("&Layer&")</a>
"
response.write"<divstyle='display=none;'id=Hxkj"&temprs("Id")&">"
ifNO<>"0"thenCallSortFormat(temprs("id"),(Layer+1),Url,Tab,Furl)'调用递归
response.write"</div>"'div结束
temprs.movenext

next

temprs.close
settemprs=nothing
Else

exitsub
EndIf

endsub
%>

效果http://www.fengxichina.com/temp/s/SortDispEdit.asp
[em77]
说明：上面显示的是代码内容。您可以先检查过代码没问题，或修改之后再运行.




2004-4-190:16:00
站长