作业帮 > ASP > 教育资讯

asp源码:用ASP方式实现动态伸缩形式列表主页

来源:学生作业帮助网 编辑:作业帮 时间:2024/03/29 14:32:39 ASP
asp源码:用ASP方式实现动态伸缩形式列表主页
asp源码:用ASP方式实现动态伸缩形式列表主页ASP
【51Test.NET-asp源码:用ASP方式实现动态伸缩形式列表主页】:

< Div Id="test" Style="Display:none" > 

< script language="Javascript" >
function ShowDiv(DivId)
{
document.all[DivId].style.display='';
return 0;
}
< /script >
function HideDiv(DivId)
{
document.all[DivId].style.display='none';
return 0;
}
< /script >
文 件 名:LsTest.htm
< html >
< head >
< title >DyList Test< /title >
< script language="JavaScript" >
/*
根据对象当前的属性,改变对象的显示状态
*/
function OnClickDiv(DivId)
{
if(document.all[DivId].style.display=='none')
  { document.all[DivId].style.display=''; }
else
  { document.all[DivId].style.display='none'; }
return 0;
}
< /script >
< /head >
< body >
< h3 >List Start< /h3 >< hr >
< Div Id="dy1" Style=display: >< ul >
< li >< a href="#" onclick="return
OnClickDiv('dy2')") >国内报刊< /a >
< Div Id="dy2" Style=display:none >< ul >
< li >< a href="http://www.peopledaily" >
人民日报< /a >
< li >< a href="http://www.gmdaily" >
光明日报< /a >
< li >< a href="#" onclick="return 
OnClickDiv('dy3')") >大众日报< /a >
< Div Id="dy3" Style=display:none >< ul >
< li >< a href="http://www.dzdaily" >
大众日报< /a >
< li >< a href="http://www.dzdaily/ncdz.htm" >
农村大众< /a >
< li >< a href="http://www.dzdaily/qlwb.htm" >
齐鲁晚报< /a >
< li >< a href="http://www.dzdaily/shrb.htm" >
生活日报< /a >
< /ul >< /div >
< /ul >< /div >
< li >< a href="#" onclick="return OnClickDiv('dy4')") >
搜索引擎< /a >
< Div Id="dy4" Style=display:none >< ul >
< li >< a href="http://gbchinese.yahoo" >
雅虎< /a >
< li >< a href="http://www.sohoo" >
搜狐< /a >
< /ul >< /div >
< /ul >< /div >
< hr >< h3 >List End< /h3 >
< /body >
< /html >

文 件 名:LsTest.ini
[root]
a= 国 内 报 刊
b= 搜 索 引 擎
[a]
a1= 人 民 日 报,http://www.peopledaily
a2= 光 明 日 报,http://www.gmdaily
a3= 大 众 日 报
[a3]
a3_1= 大 众 日 报,http://www.dzdaily/
a3_1= 农 村 大 众,http://www.dzdaily/ncdz.htm
a3_1= 齐 鲁 晚 报,http://www.dzdaily/qlwb.htm
a3_1= 生 活 日 报,http://www.dzdaily/shrb.htm
[b]
b1= 雅 虎,http://gbchinese.yahoo
b2= 搜 狐,http://www.sohoo

Set PRof = Server.CreateObject("vbProFile.ProFile")
Prof.FileName = proPath
Buf = Prof.FirstValue(" 主 题 名")
Do While Len( Buf )  > 0
... ...
Buf = Prof.NextValue()
Loop
< !--#INCLUDE FILE="Str.inc"-- >
< %
gDyItemName="" ' 当 前 条 目 的 名 称
gDyItemTitle="" ' 当 前 条 目 的 标 题
gDyItemLink="" ' 当 前 条 目 的 链 接 地 址
Sub InitDyItemStr( s )
gDyItemName = StrHead(s, "=")
gDyItemTitle = StrHead(s, ",")
gDyItemLink = s
End Sub
% >
文件名:Str.inc
<%
Public Function StrHead(ss, c)
    i = InStr(ss, c)
    If i  > 0 Then
        StrHead = Mid(ss, 1, i - 1)
        ss = Mid(ss, i + Len(c))
    Else
        StrHead = ss
        ss = ""
    End If
End Function
' 在s 的 两 端 加 上 引 号 返 回
Public Function YH(s)
    YH = Chr(34) & s & Chr(34)
End Function
% >
< script language="JavaScript" >
function OnClickDiv(DivId)
{
if(document.all[DivId].style.display=='none')
  { document.all[DivId].style.display=''; }
else
  { document.all[DivId].style.display='none'; }
return 0;
}
< /script >
< %
curDyItemIndex=0
Function DyItemId()
DyItemId="dy" & curDyItemIndex
End Function
% >
Sub ListItems(proPath,ItemName,Disp)
'建立并初始化ProFile对象
Set ItemProf = Server.CreateObject("vbProFile.ProFile")
ItemProf.FileName = proPath
'开始一个DIV对象,包含所有的子条目在其中
Response.Write "< Div Id=" & YH(DyItemId) & _
" Style=display:" & Disp & " >< ul >" & vbCrLf
'开始输出每一个子条目
  buf = ItemProf.FirstValue(ItemName)
Do While Len(buf)  > 0
InitDyItemStr buf
If Len(gDyItemLink)  > 0 then
Response.Write "< li >< a href=
         " & YH(gDyItemLink) & " >" & _
gDyItemTitle & "< /a >" & vbCrLf
Else
'如果链接地址为空,则开始下一层的列表
curDyItemIndex = curDyItemIndex + 1
Response.Write "< li >
            < a href=" & YH("#") & _
" onclick=" & YH("return OnClickDiv
            ('" & DyItemId & "')") & _
") >" & gDyItemTitle & "< /a >" & vbCrLf
ListItems proPath,gDyItemName,"none" '使用递归
End If
buf=ItemProf.NextValue()
Loop
Response.Write "< /ul >< /div >" & vbCrLf
End Sub
Public Sub DyList(proName,rootItem)
proPath=Server.mappath(proName)
curDyItemIndex = curDyItemIndex + 1
ListItems proPath,rootItem,""
End Sub
文 件 名:LsTest.asp
< html >
< head >
< title >DyList Test< /title >
< !--#INCLUDE FILE=" dyList.inc"-- >
< /head >
< body >
< h3 >List Start< /h3 >< hr >
< % 
DyList "lsTest.ini","root"
% >
< hr >< h3 >List End< /h3 >
< /body >
< a ... onmouseover="this.style.color=COLOR1" 
onmouseout="this.style.color=COLOR2" ...  >
< style >
< !--
UL {margin-left:14pt; margin-top:0}
LI {line-height:12pt}
-- >
< /style >

ASP