下载地址:http://www.knowsky.com/download/treemenu.rar 关键代码: <% set conn=server.createobject("ADODB.CONNECTION") connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" conn.open connstr function menu(id) set rs=server.CreateObject("adodb.recordset") sql="select * from menu where id1="&id&" order by url,id" rs...[ 查看全文 ]
oracle命令行删除用户: 代码如下: connect / as sysdba; shutdown abort; startup; drop user user1 cascade; exit oracle命令行创建用户: 代码如下: create user user1 identified by value...[ 查看全文 ]
Public Sub CopyDerictory(ByVal DirectorySrc As DirectoryInfo, ByVal DirectoryDes As DirectoryInfo) Dim strDirectoryDesPath As String = DirectoryDes.FullName & "\" & DirectorySrc.Name If Not Directory.Exists(strDirectoryDesPath) Then &n...[ 查看全文 ]