<!--#include file="cls_FileObj.asp"-->
<!-- #include file="conn.asp" -->
<%        
'文件生成操作开始  
 sql="select * from PPH where ProjectCodeId=0"
   rs.open sql,conn,1,3
    if rs.EOF then
    Response.Write "<br/>暂无内容..."
    else
    while not rs.eof
    strFilePath = strFilePath+"/"+rs("ContractName")
    rs.MoveNext
    wend
   rs.Close
  end if
 Set FileObj  = New clsFileObj        
 With FileObj  
               
 '验证目录完整性               
 blnTemp = .CheckPath(strFilePath)               
 if blnTemp Then                       
 Response.write "创建文件夹“<b>" & strFilePath &"</b>“成功！<br>"         
 Else                        
 Response.write "创建路径出错，没有权限"                        
 Response.End               
 End if        
 End With        
 Set FileObj=Nothing
 %>

以上语句只能导出一个节点下的一个子节点东西，不能同时导出一个节点下多个子节点

[ 本帖最后由 angelhufei 于 2010-5-25 14:06 编辑 ]