首先,创建一个程序在服务器端生成一个XML文件返回给客户端,(getfolder。ASP)。

<

林张晨写的,2003-4-20

转载请注明来源并保留版权信息。

response.write CHR(13)

response.write CHR(13)

文件夹=请求(文件夹)

如果文件夹,那么

文件夹

最后如果

模糊数

数= 0

文件夹=替换(文件夹,)…

basefolder = 。 / / 媒体基线文件夹路径

newfolder = basefolderfolders

设置FSO = server.createobject(脚本。FileSystemObject )

集F = fso.getfolder(server.mappath(newfolder))

设置SF = f.subfolders

每个sf'returns FD列表指定路径下的文件夹

response.write CHR(13)

response.write 文件夹CHR(13)

响应。写FD。名称也就;CHR(13)。

response.write CHR(13)

计数=计数+ 1

下一个

设置=无

集FF = f.files

对于FF中的每个FI

名为fi.name

如果仪器(ASF、WMA,WMV

response.write CHR(13)

response.write 文件CHR(13)

响应。写fnamequot;CHR(13)。

response.write CHR(13)

计数=计数+ 1

最后如果

下一个

如果该目录中没有文件,则发送一个空元素。

如果计数= 0然后

response.write CHR(13)

response.write 空CHR(13)

response.write 0 CHR(13)

response.write CHR(13)

最后如果

response.write

设置FF =无

设置f =无

设置FSO

%>

以下是客户端的JS Kung Fu(选择。asp)







选择视频文件



TD {字体大小:9pt }

选择{宽度:210 }

宽度:250 }





<!——

/ *林张晨写的,2003-4-20

请注明来源并保留此版权信息。


加载图片

无功imgback =新的图像();

imgback.src =图像/箭头.gif;

无功imgbackgray =新的图像();

imgbackgray.src =图像/ grayarrow .gif;

无功imgfolder =新的图像();

imgfolder.src =图像/文件夹。gif;

无功imggrayfolder =新的图像();

imggrayfolder.src =图像/ grayfolder .gif;

历史堆栈数组

无功arrhistory =新的数组();

VAR我= 0;

返回用于标识的文件名。

功能检查()

{

如果(文件,文件名,值=)

{

警报(请先选择文件);

返回false;

}

其他的

{

window.returnvalue =文件。F1值+ document.all.filename.value。文件夹;

Window.close();

}

}

获取xml文件的内容

功能获得用户信息列表的存储过程(URL)

{ var oxmldoc =新的ActiveX对象('msxml);

oxmldoc.url =网址;

无功ooroot = oxmldoc.root;

返回ooroot;

}

在返回到文本框的值中当选时的文件

功能增加文件(TXT)

{

文档。所有文件名;

}


var第一= 1;定义全局变量。


功能的用户列表(文件夹,Ti) / /列表框

{文件夹;

filebox。文件。体.innerHTML =加载文件,请稍等…;

无功strshow = ;

无功timeoutid = null;

无功newfolder = ;

无功arrfolder =新的数组();

无功arrff =新的数组();

无功blankstr = ;

无功oitem;

确定历史状态

Hisi + = Ti;

我arrhistory { } =文件夹;

如果(我= = 0)

{

箭头.innerHTML = ;

}

其他的

{

箭头.innerHTML = ;

}

确定当前文件夹

如果(文件文件夹=值)

{

folderid .innerHTML =

}

其他的

{ newsfolder = checkfolder(文档。F1。文件夹。值)

folderid .innerHTML =

}

对下拉框分配

文档。所有选项。长度= 0;

newfolder =文件夹;

folderstr =

无功_obj = document.all.select;

无功_o = document.createelement(选项);

_o。文本=选择文件夹;

_o价值= ;

_obj.add(_o);

如果(newfolder!

{ arrfolder = newfolder.split( / )

对于(var i = 0;i < arrfolder.length-1;i++)

{ blankstr + = ;

folderstr + = arrfolder {我} + / ;

_o = document.createelement(选项);

_o。文本= blankstr + arrfolder {我};

_o价值= folderstr;

_obj.add(_o);


}

}

文件。所有的选择。选择{文件。所有的选择。选择。length-1 }。选中=真;

url =getfolder。ASP。glfolder =+文件夹;

oroot =获得用户信息列表的存储过程(URL)

strshow = ;

oroot.children.length len =;

如果(= = 1)

{ oitem = oroot.children.item(0);

如果(oitem.children.item(0)。文字= =空)

strshow = 文件和文件夹;

其他的

{

如果(oitem.children.item(0)。文字= =文件夹)

{

strshow + = + oitem.children.item(1)。文字+ ;

}

其他的

{

strshow + = + oitem.children.item(1)。文字+ ;


}

}

strshow + =

}

别的{

数据堆栈

为(i = 0;i;;i;+)

{ oitem = oroot.children.item(我);

如果(oitem.children.item(0)。文字= =文件夹)

{

我arrff { } = + oitem.children.item(1)。文字+ ;

}

其他的

{

我arrff { } = + oitem.children.item(1)。文字+ ;


}

}

获取输出的列的数目。

如果(= < = 6)

{ = 1;

y=6;}

其他的

6;

y=6;}

对于(var i = 0;i < y;i + +)

{ strshow + =

对于(var j=0;j x;j + +)

{点= J* Y +我;

如果(点> = Len)

{

strshow + = ;

}

其他的

{

strshow + = + arrff {点} + ;

}

}

strshow + =

}


strshow + =

}

filebox。文件。体.innerHTML = strshow;

}







功能checkfolder(folderstr)

如果(folderstr = 或仪器(folderstr, / )= instrrev(folderstr, / ))然后

checkfolder =

其他的

nfolder =左(folderstr,len(folderstr)- 1)

checkfolder =左(nfolder,instrrev(nfolder, / ))

最后如果

端功能
















查找范围(i):

















































文件的名称(n):



开(o)







文件类型(t):



流媒体文件(*. ASF,WMV、WMA *。*。)


















有一个小的文件,blank.htm,定义文件和文件夹的显示方式







新的文件



TD {字体大小:9pt }

体{字体大小:9pt }

。文件{颜色:# 000000;text-decoration:无;字体大小:9pt }

。文件:访问{颜色:# 000000;text-decoration:无;字体大小:9pt }

文件一:悬停{颜色:# 000000;text-decoration:无;字体大小:9pt }













当调用使用时,可以使用以下函数来实现错误的服务器端文件选择的效果

选择()函数

{

var arr = showModalDialog(选择。asptemp =+ Math.random()(),

如果(ARR!= null)

{

报酬

}

}