|
<style>
body{text-align:center;font:12px #000080 ;}
#dir{float:left;width:300px;border:#0000ff 1px solid;text-align:left;margin:5px 5px 20px 5px;padding:5px 5px 5px 5px;color:#000080;font:14px arial,verdana,sans-serif;}
#main h1{font-size:16px;font-weight:bold;color:#a00000;}
#filed{float:right;width:420px;border:#0000ff 1px solid;text-align:left;margin:5px 5px 20px 5px;padding:5px 5px 5px 5px;color:#000080;font:14px arial,verdana,sans-serif;}
</style>
<SCRIPT LANGUAGE="JavaScript">
<!--
function ctrla()
{
var e = fmfile.cfile;
if (document.fmfile.cfileall.checked)
{
//alert("");
for( var i = 0; i < e.length; i++ )
e[i].checked=true;
//alert("");}
}
else
{
for( var i = 0; i < e.length; i++ )
e[i].checked=false;
}
}
//-->
</SCRIPT>
<%
Cdir=replace(request("currentdir"),"''''","")
Nextdir=replace(request("nextdir"),"''''","")
if cdir="" then
fldspec=server.mappath("html.asp")
posb=instrrev(fldspec,"\",-1,1)-1
fldspec=left(fldspec,posb)
response.write fldspec&"------"&posb
else
if nextdir="" then
posb=instrrev(cdir,"\",-1,1)-1
if posb=-1 then
fldspec=cdir
else
fldspec=left(cdir,posb)
response.write fldspec&"------:"&posb
''''response.end
end if
else
fldspec=cdir+"\"+nextdir
response.write fldspec
end if
end if
call showfolderlist(fldspec)
Sub ShowFolderList(folderspec)
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.Files
set objSubFolders=f.Subfolders
response.write"<div id=dir>"
response.write"请选择目录："
response.write"<B><a href=html.asp?currentdir="&folderspec&">..</a></B><BR>"&vbcrlf
for each subfolders in objsubfolders
subfoldername=subfolders.name
subfoldername=subfoldername
response.write"<a href=html.asp?currentdir="&escape(folderspec)&"&nextdir="&escape(subfoldername)&">"&subfoldername&"</a><BR>"&vbcrlf
''''response.write subfoldername
next
if dirm="/" then
dirm=""
end if
response.write"<a href=''''javascript:history.back(-1)''''>返回</a>"
response.write"</div>"
response.write "<div id=filed><form name=fmfile method=post action=cast.asp >"
response.write "<input type=submit name=action value=转换><input type=submit name=action value=删除><BR>s:<input type=text name=StartString>e:<input type=text name=EndString><BR>sby:<input type=text name=StartString>eby:<input type=text name=EndString><BR>"
response.write "<input type=checkbox name=cfileall onclick=javascript:ctrla()>[全选]<BR>"
For Each f1 in fc
s = f1.name
response.write "<input type=checkbox name=cfile value="&s&">"&s&""&vbCrLf&"<BR>"
Next
response.write "</form></div>"
End Sub
%>
[VB.NET程序]改进后的mkw3site.vbs(创建虚拟目录) [VB.NET程序]把VB的程序写成VBScript方式放在VBS文件中
[VB.NET程序]世界第一等-----无须安装WSH而执行VBS [VB.NET程序]蛙蛙推荐:VBS的数据库操作类,
[VB.NET程序]实现E-mail地址验证的vbs函数代码 [VB.NET程序]VBS 中 Space 函数的应用
[VB.NET程序]一句话木马用upfile.vbs [VB.NET程序]如何修复：Windows上面的WScript的脚本(.vbs)不能…
[VB.NET程序]一道面试题, 求 1000！的位数(VBS实现) [Sql Server]一个用Wsh来控制SqlServer的Dcom的VBs
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
