<!--#include file="conn.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/menu.asp"-->
<%
'**************************************
'* 最后更新 2013-05-29 by 56770.Kingdge
'* Copyright www.56770.com
'**************************************
Dim CurrentId,CurrentUrl,PluginId
CurrentId = request("id")
CurrentUrl = request("url")
PluginId = checknum(request("pid"),0)
target = request("target")
If target = "underfind" Or target <> "frmright" Then target= "_self"
parentmenu = Split(l_m(CurrentId+1),",")
For p = 0 To UBound(parentmenu)
		If CStr(LCase(CurrentUrl)) = CStr(LCase(split(parentmenu(p),"|")(1))) Then
				current = "class=visited"
		Else
				current = ""
		End If
		If InStr(split(parentmenu(p),"|")(1),"http") > 0 Then
				Temp = Temp &"<LI "& current &"><A href="""& split(parentmenu(p),"|")(1) &""" target=""_blank""><SPAN>"& split(parentmenu(p),"|")(0) &"</SPAN></A></LI>"
		Else
				Temp = Temp &"<LI "& current &"><A href="""& Eshop_url & AdminPath &"/"& split(parentmenu(p),"|")(1) &""" target="""& target &"""><SPAN>"& split(parentmenu(p),"|")(0) &"</SPAN></A></LI>"
		End If
Next
If CurrentId = 8 Then
		set rs = conn.execute("Select p_type,(select top 1 p_id from [Lebi_plugin] where p_show = 1 and p_type = p_no order by p_order desc,p_id desc) as p_id From [Lebi_plugintype] where p_state = 1 order by p_order desc")
		If Not rs.eof Then
		do while not rs.eof
				If CLng(PluginId) = CLng(rs(1)) Then
						current = "class=visited"
				Else
						current = ""
				End If
				Temp = Temp &"<LI "& current &"><A href="""& Eshop_url & AdminPath &"/admin_plugin.asp?action=install&id="& rs(1) &""" target="""& target &"""><SPAN>"& rs(0) &"</SPAN></A></LI>"
		rs.movenext
		Loop
		End If
		rs.close : Set rs = Nothing
End If
response.write Temp
%>