<!-- #include file="conn.asp" -->
<%


function create_file(dir)'扫出所有目录
	set fso=Server.CreateObject("Scripting.FileSystemObject")
	set hf=fso.OpenTextFile(Server.mappath("..\002\h"&dir&".asp"),2,true)
		hf.write "<!--"&" #include file='help.asp' -->"
		hf.close
	set hf=nothing
	set fso=nothing	
end function



sub dir(parentID)
	set rs=server.createobject("adodb.recordset") 
	sql="select * from FAQ_class where parentid="&parentID
	rs.open sql,conn,1,1 
	
	c=3
	for i23=1 to rs.recordcount
		create_file(rs("classID"))
		dir(rs("classID"))
		rs.movenext
	next
	
	rs.close 
	set rs=nothing
end sub
call dir(0)
%>
完成

