日韩欧美国产精品免费一二-日韩欧美国产精品亚洲二区-日韩欧美国产精品专区-日韩欧美国产另-日韩欧美国产免费看-日韩欧美国产免费看清风阁

<!--#include file ="Admin_Start.asp"-->
<%
 CallTreeView(0,"XR_News_Sort_List","Admin_News_Info_List.asp")
%>
<%
'////////////////////////////判斷菜單下屬是否存在子菜單
Function CheckDown(ParentId,TableName)
 Set Rs_Temps =Server.CreateObject("ADODB.RecordSet")
 Rs_Temps.Open "select Sort_Id from"&TableName&" where Sort_Up ="&Int(ParentId),Conn,1,3
 If Rs_Temps.Eof And Rs_Temps.Bof Then
  CheckDown = false
 Else
  CheckDown = true
 End If
 Set Rs_Temps = Nothing
End Function

'////////////////////////////////////////顯示樹形結構
Function TreeView(ParentId,TableName,Url)
 Set Rs_Temp =Server.CreateObject("ADODB.RecordSet")
 Rs_Temp.Open "select Sort_Id,Sort_Name,Sort_Numfrom "&TableName&" where Sort_Up ="&Int(ParentId)&" order by Sort_Num",Conn,1,3
%>
<table>
<%
 If Not(Rs_Temp.Eof And Rs_Temp.Bof) Then
 Do While Not Rs_Temp.Eof
 Flag = CheckDown(Rs_Temp(0),TableName)
 If Flag = false Then
%>
<tr onMouseOver="this.style.background='#ebebeb';"onMouseOut="this.style.background='#ffffff';">
 <td height="30" align="left"style="padding-left:10px">
 <img src="images/minus.gif" width="15"height="15" align="absmiddle" alt="點擊展開信息列表">
 <input type="text" size="2" align="absbottom"name="txtNews<%=Rs_Temp(0)%>" value="<%=Rs_Temp(2)%>"/><a href="<%=Url%>?id=<%=Rs_Temp(0)%>"target="right"><%=Rs_Temp(1)%></a></td>
</tr>
<%
 Else
%>
<tr onMouseOver="this.style.background='#ebebeb';"onMouseOut="this.style.background='#ffffff';">
 <td height="30" align="left"style="padding-left:10px">
 <img src="images/plus.gif" width="15"height="15" align="absmiddle" alt="點擊展開信息列表"onClick="opencat(cat_<%=Rs_Temp(0)%>,this)"style="cursor:hand" >
 <input type="text" size="2" align="absbottom"name="txtGoods<%=Rs_Temp(0)%>" value="<%=Rs_Temp(2)%>"/><%=Rs_Temp(1)%></td>
</tr>
<tr onMouseOver="this.style.background='#ebebeb';"onMouseOut="this.style.background='#ffffff';">
<tr id="cat_<%=Rs_Temp(0)%>"style="display:none;">
 <td><%CallTreeView(Rs_Temp(0),TableName,Url)%></td>
</tr>
<%
 End If
 Rs_Temp.MoveNext
 Loop
 End If
%>
</tr>
<%
 Set Rs_Temp = Nothing
%>
</table>
<%
End Function
%>
<!--#include file = "Admin_End.asp"-->