以下是代码片段: Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '在此处放置初始化页的用户代码 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
|