| 名稱 |
版本 |
版權 |
目錄 |
操作 |
<%
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
%>