<!--#include file="../Inc/QC.Conn.asp" -->
<!--#include file="../Inc/QC.Funtion.asp" -->
<!--#include file="../Inc/QC.Md5.asp"-->
<!--#include file="../Inc/QC.PageClass.asp" -->
<%
Response.ContentType = "text/html"
Dim id,child
id=Clng(F("id"))
if id="" then response.end()
'显示子目录
set Rs=server.CreateObject("adodb.recordset")
Sql="select * from QC_SystemModel where QC_ModelStatus=1 AND QC_ModelParent="&id&" Order by QC_ModelRoot,QC_ModelSort"
Rs.open Sql,conn,1,1 
do while not Rs.eof
    
	if Rs("QC_ModelLevels")>"0" then
		for i=1 to Rs("QC_ModelLevels")
			child=child&"&nbsp;&nbsp;"
		next 
	end if
	if Rs("QC_ModelChild")>0 then
	  	child=child&"<img id='p"&Rs("ModelID")&"' src=""../images/closed.gif"" width=""30"" height=""15"" onclick=""DivDisplay('c"&Rs("ModelID")&"','"&Rs("ModelID")&"','p"&Rs("ModelID")&"')"" style=""cursor : hand;"" align=""absmiddle"">"		
	else
	  	child=child&"<img src=""../images/nofollow2.gif"" width=""30"" height=""15"" align=""absmiddle"">"
	end if
    child=child&"<a href=""Right.asp?MID="&Rs("ModelID")&""" target=""Right"">"&Rs("QC_ModelName")&"</a>"
	
	child=child&"<br>"
	if Rs("QC_ModelChild")>0 then
	  	child=child&"<div id='c"&Rs("ModelID")&"' style='display:none;'></div>"
	end if
	Rs.movenext
loop
Rs.close
set Rs=nothing

Response.Write(child)
Response.End

Call CloseDB()
%>