求高手改代码
原来的代码是利用FSO功能生成树状目录，我现在想把它分出来直接形成ASP文件的方式调用生成树状目录，细节上老改不好，高手帮改一下
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
<!-- #Include File = "../DbLib/DbConn.asp " -->
<!--#Include file= "UserLoginCheck.asp "-->
<%
Dim TreeStr,I
TreeStr = " <!DOCTYPE HTML PUBLIC -//W3C//DTD HTML 4.01 Transitional//EN http://www.w3.org/TR/html4/loose.dtd> <html> <head> <meta http-equiv=Content-Type content=text/html; charset=gb2312> "
TreeStr = TreeStr & " <title> 文档管理系统TREE菜单 </title> <link href=../Style/link.css rel=stylesheet type=text/css> <style type=text/css> <!--body,td,th {font-size: 14px;}body {margin-left: 2px;margin-top: 2px;margin-right: 2px;margin-bottom: 2px;}--> </style> </head> "
TreeStr = TreeStr & " <script language= 'javascript '> function calcRowIndex(str,row,Big_ID){var obj = document.getElementById( 'Tab '+row);if(obj.style.display == 'none '){obj.style.display= ' ';if(str == 'img '){ "
TreeStr = TreeStr & "var imgobj = document.getElementById( 'img '+row);imgobj.src = '../Images/Open.gif ';HrefJump(Big_ID,0);}else{str.src = '../Images/Open.gif ';}}else{obj.style.display= 'none ';if(str == 'img '){var imgobj = document.getElementById( 'img '+row); "
TreeStr = TreeStr & "imgobj.src = '../Images/Close.gif ';HrefJump(Big_ID,0);}else{str.src = '../Images/Close.gif ';}}}function ChangeColor(ColorObj){ColorObj.style.backgroundColor= '#efefef ';}function ReChangeColor(ColorObj){ColorObj.style.backgroundColor= '#ffffff ';}function HrefJump(b_id,s_id){window.open( 'TitleList.asp?Big_ID= '+b_id+ '&Sm_ID= '+s_id, 'TitleFrame ');} </script> <body> "
TreeStr = TreeStr & " <table border=0 cellspacing=0 cellpadding=0 onMouseOver= 'ChangeColor(this) ' onMouseOut= 'ReChangeColor(this) '> <tr> <td width=18> <img src=../Images/Userface.gif width=18 height=18> </td> <td width=80> <span class=style1> 从这里开始 </span> </td> </tr> </table> "
Call Open_Conn()
I = 1
Call CreateBigTree()
Call Close_Conn()
Function CreateBigTree()
Dim BigRs,BigSql
BigSql = "Select ID,BigClassName,DisPose From BigClass Order By DisPose Desc "
Set BigRs = Server.CreateObject( "ADODB.Recordset ")
BigRs.Open BigSql,Conn,1,1
Do While Not BigRs.Eof
TreeStr = TreeStr & " <table border= '0 ' cellspacing= '0 ' cellpadding= '0 ' onMouseOver= 'ChangeColor(this) ' onMouseOut= 'ReChangeColor(this) '> <tr> <td width=16> <img src= '../Images/Close.gif ' width= '16 ' height= '22 ' id=img "& I & " onClick= 'calcRowIndex(this, "& I & ",0) '> </td> <td width=18> <img src= '../Images/folderopen.gif '> </td> <td> <span onClick=calcRowIndex( 'img ', "& I & ", "& BigRs( "ID ") & ")> "& BigRs( "BigClassName ") & " </span> </td> </tr> </table> "
Call CreateSmallTree(BigRs( "ID "))
I = I + 1
BigRs.MoveNext
Loop
Call OutTree()
End Function
Function CreateSmallTree(Class_ID)
Dim SmRs,SmSql
SmSql = "Select ID,SmallClassName,DisPose From SmallClass Where Big_ID = "& Class_ID & " Order By DisPose Desc "
Set SmRs = Server.CreateObject( "ADODB.Recordset ")
SmRs.Open SmSql,Conn,1,1
'If Not SmRs.Eof Then
TreeStr = TreeStr & " <table width= '100% ' border=0 cellspacing=0 cellpadding=0 id=Tab "& I & " style= 'display:none; '> <tr> <td> "
Do While Not SmRs.Eof
TreeStr = TreeStr & " <table border=0 cellspacing=0 cellpadding=0 onMouseOver= 'ChangeColor(this) ' onMouseOut= 'ReChangeColor(this) '> <tr> <td> <img src=../Images/HR.gif> <img src=../Images/Node.gif width=16 height=22> <img src=../Images/folderopen.gif> </td> <td> <a href=# onClick= 'HrefJump( "& Class_ID & ", "& SmRs( "ID ") & ") '> "& SmRs( "SmallClassName ") & " </a> </td> </tr> </table> "
SmRs.MoveNext
Loop
TreeStr = TreeStr & " </td> </tr> </table> "
'End If
End Function
Function OutTree()
Dim FileName,FileName1,Fso,FsoOut,FsoOut1
FileName = "Tree.htm "
FileName1 = "../Tree.htm "
Set Fso = Server.CreateObject( "Scripting.FileSystemObject ")
Set FsoOut = Fso.CreateTextFile(Server.MapPath(FileName))
Set FsoOut1 = Fso.CreateTextFile(Server.MapPath(FileName1))
FsoOut.Write(TreeStr)
TreeStr = Replace(TreeStr, "../ ", " ")
FsoOut1.Write(TreeStr)
FsoOut.Close()
FsoOut1.Close()
Set FsoOut = Nothing
Set FsoOut1 = Nothing
Set Fso = Nothing
End Function
%>
<style type= "text/css ">
<!--
.style1 {font-size: 14px}
-->
</style>
<table width= "100% " border= "0 " cellspacing= "0 " cellpadding= "0 ">
<tr>
<td> </td>
</tr>
<tr>
<td height= "78 " align= "center " valign= "middle "> <p> </p>
<p class= "style1 "> 树文件己经被生成，请点击文档管理进行查看！ </p>
<p> </p> </td>
</tr>
</table>
[解决办法]
把它分出来直接形成ASP文件的方式调用生成树状目录
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
什么意思
