答案:以下是代码片段:
Response.Write("function getPrivate(){" & vbCrLf) For i As Integer = 1 To Session("Private").ToString.Length Response.Write(MENUshow(Mid(Session("Private").ToString, i, 1), i)) Next Response.Write("}") Response.End() End Sub Private Function MENUshow(ByVal i As Integer, ByVal t As Integer) As String Select Case i Case 0 MENUshow = "document.all['menu" & t & "'].style.display='';" & vbCrLf Case 1 MENUshow = "document.all['menu" & t & "'].style.display='none';" & vbCrLf End Select End Function 上一个:我们所要关注的是什么? 更多图片编程知识:
访问www.zzzyk.com 试试 CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络, |