这几天做一个项目，是写一个语句，将D盘的文件全部移动到E盘去，在本地XP环境下测试是很好的。 可是放到windows 2003服务器后，提示权限不足。 我的IIS网站目录放在D盘，而E盘只是一个新加卷，有一些文件很大也很多，但是D盘不够用了，所以出此下策。 百度了一下，很多这样的问题，无非就是增加E盘的权限啊，或者是把E盘当作虚拟目录。 可是都不管用，照样提醒，唯一的区别就是我使用的是动态卷，而XP下是基本卷，我不想改变卷盘。...
'************************************* '读取文件 '************************************* Function LoadFromFile(ByVal File) Dim objStream Dim RText RText = Array(0, "") Set objStream = Server.CreateObject("ADODB.Stream") With objStream .Type = 2 .Mode = 3 .Open .Charset = "utf-8" .Position = objStream.Size On Error Resume Next .LoadFromFile Server.MapPath(File) If Err Then RText = Array(Err.Number, ...
<%@ Language=VBScript %> <% '遍历目录以及目录下文件的函数， %> <% function bianli(path) set fso=server.CreateObject("scripting.filesystemobject") on error resume next set objFolder=fso.GetFolder(path) set objSubFolders=objFolder.Subfolders for each objSubFolder in objSubFolders nowpath=path + "\" + objSubFolder.name Response.Write nowpath set objFiles=objSubFolder.Files for each objFile in ...