一段生成treeview的js代码
演示：http://www.zwtd.com/2/treeview/treeview.ASP
<%
'*********************************
'TREEVIEW SUBS
'*********************************
Sub WriteHead(TreeName,ItemID,ItemName,Level,IsParent,UseCheckBox,MyLink,IsOpn)
Dim IsIE 'as boolean
IsIE = (InStr(request.servervariables("HTTP_USER_AGENT"), "MSIE") > 0)
'Spacing depends on what level you're at
Select Case Level
Case 1 : Response.Write "
"
Case 2 : Response.Write "
"
Case 3 : Response.Write ""
Case 4 : Response.Write ""
Case 5 : Response.Write ""
Case 6 : Response.Write ""
Case 7 : Response.Write ""
Case 8 : Response.Write ""
Case 9 : Response.Write ""
Case 10 : Response.Write ""
End Select
'If IsParent then put a plus sign else put a blank space
If IsParent then
'JsCode only if isIE
If isIE then
If IsOpn then
Response.Write "
"
Else
Response.Write "
"
End If
Else
If IsOpn then
Response.Write ""
Else
Response.Write ""
End if
End If
Else
If Level = 0 then
Response.Write "
"
Else
Response.Write "
"
End If
End if
'If UseCheckBox then show a checkbox else add space
If UseCheckBox then
Response.Write ""
Else
Response.Write ""
End If
Response.Write ""
'If MyLink = "" then do not use link
If MyLink = "" then
'If first Level, use bold
If Level = 0 then Response.Write "" & ItemName & "" else Response.Write ItemName
Else
'If first Level, use bold
If Level = 0 then Response.Write "" & ItemName & "" else Response.Write "" & ItemName & ""
End If
Response.Write ""
Response.Write "
"
'Always add DIV because WriteFoot() will close it
Response.Write "
'JsCode only if IsIE and if the section is not open
If IsIE then
If IsOpn then
Response.Write ""
Else
Response.Write ""
End If
End If
End Sub
Sub WriteFoot()
Response.Write "
End Sub
%>