求高手改代码解决方法
日期：2014-05-17 浏览次数：21135 次
求高手改代码
原来的代码是利用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) ' onM
原来的代码是利用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) ' onM
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
