名称 | 版本 | 版权 | 目录 | 操作
<% Dim folderArry,folderAttr,i,tempStr,whereStr,plugArray,MenuLinks,MenuLink folderArry=getFolderList("../../plug") if instr(folderArry(0),",")>0 then for i=0 to ubound(folderArry) folderAttr=split(folderArry(i),",") Dim xmlObj : Set xmlObj=new XmlClass if isExistFile(folderAttr(4)&"/plug.xml") then xmlObj.load folderAttr(4)&"/plug.xml","xmlfile" 'die xmlObj.getNodeValue("plugkey",0) whereStr="where MenuKey='"& xmlObj.getNodeValue("plugkey",0)&"'" plugArray=conn.Exec("select * from {prefix}Menu "&whereStr&"","arr") if isarray(plugArray) then MenuLinks=split(xmlObj.getNodeValue("pagepath",0),"|") if isarray(MenuLinks) then MenuLink=MenuLinks(0) end if tempStr=" " else tempStr="" end if echo"
"&vbcrlf& _ "
"&xmlObj.getNodeValue("ScreenShot",0)&" "&vbcrlf& _ " | "&xmlObj.getNodeValue("description",0)&" "&vbcrlf& _ " | "&xmlObj.getNodeValue("powerdby",0)&" "&vbcrlf& _ " | "&folderAttr(0)&" "&vbcrlf& _ " | "&tempStr&" "&vbcrlf& _ "
"&vbcrlf end if next end if %>