- 1PS提示：因为图层已锁定，无法编辑图层的处理方法
- 2Adobe Illustrator CS5 序列号大全
- 3picacg苹果版怎么找不到|picacg ios版是不是下架了介绍
- 4ACDsee注册码免费分享（含ACDsee18、ACDsee10等版本）
- 5苹果iphone自动时间不准确的多种校正方法
- 6PDF浏览器能看3D文件吗？PDF浏览器看3D文件图文详细教程
- 7Potato(马铃薯聊天)怎么注册不了|Potato不能注册处理方法介绍
- 8Potato(土豆聊天)怎么换头像|Potato app更改头像方法介绍
- 9ipad版office如何激活? office365激活的图文说明教程
- 10最新的Adobe Illustrator CS4序列号大全
- 11Mac怎么通过设置VPN来登录youtube等国外网站
- 12qq邮件是否已读怎么看 QQ邮箱已经发出去的邮件怎么知道对方是否已经查看
[摘要]一个在服务器端选择文件的小程序，在要插入服务器端的文件，例如服务器端已经上传的图片，或者是菜单管理中选择要执行的文件，都是有用的，当然，还可以改作它用，就看你的需要了。 限于时间，没能打它做成像windows的打开文件窗口一样的效果，哪位网友做了，告诉一声啊，迟些我自己抽得出时间也会做的，希望能与...
一个在服务器端选择文件的小程序，在要插入服务器端的文件，例如服务器端已经上传的图片，或者是菜单管理中选择要执行的文件，都是有用的，当然，还可以改作它用，就看你的需要了。
限于时间，没能打它做成像windows的打开文件窗口一样的效果，哪位网友做了，告诉一声啊，迟些我自己抽得出时间也会做的，希望能与大家一起进步。
<%@ Language=VBScript codePage="936"%>
<% option explicit %>
<%
function getFileName(strPath)
dim filename
filename = mid(strPath,instrrev(strPath,"\")+1)
getFileName = filename
end function
%>
<HTML>
<HEAD>
<title>Noteless Valley(lijun.org)程序示例</title>
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" Content="Microsoft Visual Studio.NET 7.0">
<style type=text/css>
BODY
{
font-size: 16px;
border-top-style: none;
font-family: Verdana, 宋体;
border-right-style: none;
border-left-style: none;
background-color: white;
border-bottom-style: none;
}
A
{
text-decoration: none;
}
A:hover
{
text-decoration: underline;
}
</style>
<script language=javascript>
function selFile(filename) {
lblMsg.innerText = filename;
}
</script>
</HEAD>
<body>
<%
dim strSvrPath, strCurrentDirectory
strSvrPath = request.QueryString("path")
if strSvrPath = "" then
strSvrPath = request.ServerVariables("SCRIPT_NAME")
strSvrPath = mid(strSvrPath,1,instrrev(strSvrPath,"/")) '在这里设定初始目录，此处我设为根目录
end if
strCurrentDirectory = server.MapPath(strSvrPath)
response.Write "当前目录：" & strSvrPath & "<br>"
dim fso, folder, subfolder, files, item
set fso = server.CreateObject("scripting.filesystemobject")
set folder = fso.GetFolder(strCurrentDirectory)
set subfolder = folder.SubFolders
if strSvrPath <> "/" then
response.Write "<a href=?path=" & mid(strSvrPath,1,instrrev(mid(strSvrPath,1,len(strSvrPath)-1),"/")) & ">[To Parent Directory]</a>" & "<br>"
end if
for each item in subfolder
response.Write "<a href=?path=" & strSvrPath & getFileName(item) & "/><font face=wingdings>0</font>" & _
getFileName(item) & "</a><br>"
next
set files = folder.Files
for each item in files
'取绝对路径
' response.Write "<a href=javascript:selFile('" & strSvrPath & getFileName(item) & _
' "');><font face=wingdings>3</font>" & getFileName(item) & "</a><br>"
'取文件名
' response.Write "<a href=javascript:selFile('" & getFileName(item) & "');><font face=wingdings>3</font>" & _
' getFileName(item) & "</a><br>"
'取相对某目录的相对路径,本例为“/myweb/”
response.Write "<a href=javascript:selFile('" & replace(strSvrPath,"/myweb/","") & getFileName(item) & "');><font face=wingdings>3</font>" & _
getFileName(item) & "</a><br>"
next
set fso = nothing
%>
<p id=lblMsg></p>
</body>
</HTML>
推荐资讯 总人气榜
最新教程 本月人气
- 1iphone4s用哪一个版本ios系统最好 iphone4s用什么版本ios好
- 2iphone5se上市6s会降价吗 苹果5se上市后iphone6s降价多少
- 3苹果iphone5se上市iphone5s会降价吗
- 4苹果iphone6s网速慢如何办 iphone6s上网速度慢处理方法
- 5苹果iphone6s越狱后无法开机如何办
- 6苹果ios9备忘录如何画画 ios9备忘录涂鸦画水珠方法流程
- 7iphone6s越狱好不好 苹果iphone6s越狱坏处说明
- 8忘记apple id密码如何办 苹果apple id密码重置网址图文说明教程
- 9iphone se什么时候上市 苹果iphone se什么时候出售
- 10apple id被锁定如何办 苹果apple id被锁定如何解锁
- 11ios9与安卓7.0哪一个好 android7.0与ios9比较评测
- 12魅族pro5与iphone6哪一个好 iphone6与魅族pro5比较评测
- 1qq浏览器安全网址认证如何打开 qq浏览器安全网址认证打开图文说明教程
- 2用微信如何发送文件 手机微信发送文件方法图文详细说明
- 3阿里旺旺如何加好友？淘宝阿里旺旺加好友步骤
- 4电脑浏览器下载排行榜2017 官方浏览器下载排行榜前10名
- 5wps表格如何算平均值
- 6用WPS表格2013统计所需钞票张数
- 7uc浏览器愚人节新版最搞siao技巧玩法总结
- 8win10手机浏览器上手 界面清新简洁
- 9支付宝钱包红包口令如何用？红包口令领红包方法
- 10iphone6用什么sim卡？iphone6 sim卡分类
- 11iphone6群发短信图文说明教程 苹果6如何群发短信步骤
- 12ios8最近使用如何删除？ios8最近使用删除图文说明教程
