回复 5楼 孤独冷雨
Public Function GetChildMenu(ID,ShowType,sChannelID)
dim SQL,Rs,k,sTemp,ClassUrlStr,OpenType
If pNum=1 Then
sTemp = "stm_bp('p" & pNum & "',[1,4,0,0,2,3,6,7,100,'progid:DXImageTransform.Microsoft.Fade(overlap=.5,enabled=0,Duration=0.43)',-2,'',-2,67,2,3,'#999999','#ffffff','',3,1,1,'#aca899']);" & vbcrlf
Else
If ShowType=0 Then
sTemp = "stm_bpx('p" & pNum & "','p" & pNum2 & "',[1,4,0,0,2,3,6]);" & vbcrlf
Else
sTemp = "stm_bpx('p" & pNum & "','p" & pNum2 & "',[1,2,-2,-3,2,3,0]);" & vbcrlf
End If
End If
SQL="select ClassID,ClassName,ParentPath,ClassDir,ParentDir,Depth,NextID,Child,Readme,IsOuter,LinkUrl From Cl_Class where ChannelID="&Cint(sChannelID)&" and ParentID=" & ID & " and ShowOnTop="&TrueType&" order by OrderID asc"
Set Rs = Cl.Execute(SQL)
if Not (Rs.Bof and Rs.Eof) THen
SQL = Rs.GetRows(-1)
For k=0 to Ubound(SQL,2)
If SQL(9,k)=1 Then
ClassUrlStr = SQL(10,k)
OpenType
= "_blank"
Else
ClassUrlStr = Cl.GetClassLinkUrl(SQL(0,k))
OpenType
= "_self"
End If
If SQL(7,k) > 0 Then
sTemp = sTemp & "stm_aix('p"&pNum&"i"&k&"','p"&pNum2&"i0',[0,'" & SQL(1,k) & "','','',-1,-1,0,'" & ClassUrlStr & "','"&OpenType&"','" & ClassUrlStr & "','" & SQL(8,k) & "','','',6,0,0,'"&Cl.WebDir&"images/arrow_r.gif','"&Cl.WebDir&"images/arrow_w.gif',7,7,0,0,1,'#ffffff',0,'#cccccc',0,'','',3,3,0,0,'#fffff7','#000000','#000000','#ffffff','9pt 宋体']);" & vbcrlf
pNum=pNum+1 : pNum2=pNum2+1
sTemp = sTemp & GetChildMenu(SQL(0,k),1,sChannelID)
Else
sTemp = sTemp & "stm_aix('p"&pNum&"i"&k&"','p"&pNum2&"i0',[0,'" & SQL(1,k) & "','','',-1,-1,0,'" & ClassUrlStr & "','"&OpenType&"','" & ClassUrlStr & "','" & SQL(8,k) & "','','',0,0,0,'','',0,0,0,0,1,'#f1f2ee',1,'#cccccc',0,'','',3,3,0,0,'#fffff7','#ff0000','#000000','#cc0000','9pt 宋体']);" & vbcrlf
End If
Next
SQL=Empty
End if
Rs.Close : Set Rs=Nothing
GetChildMenu = sTemp & "stm_ep();" & vbcrlf
sTemp=Empty
End Function
这是那段的生成代码,我其实不怎么懂stm31.js所以,一时也改不过来,