- 1PS提示：因為圖層已鎖定，無法編輯圖層的處理方法
- 2Adobe Illustrator CS5 序列號大全
- 3picacg蘋果版怎么找不到|picacg ios版是不是下架了介紹
- 4ACDsee注冊碼免費分享（含ACDsee18、ACDsee10等版本）
- 5蘋果iphone自動時間不準確的多種校正方法
- 6眼萌app怎么色弱測試 眼萌app色弱測試圖文說明教程
- 7百度安全衛士好用么_百度安全衛士技巧說明
- 8PDF瀏覽器能看3D文件嗎？PDF瀏覽器看3D文件圖文詳細教程
- 9Potato(馬鈴薯聊天)怎么注冊不了|Potato不能注冊處理方法介紹
- 10Potato(土豆聊天)怎么換頭像|Potato app更改頭像方法介紹
- 11ipad版office如何激活? office365激活的圖文說明教程
- 12最新的Adobe Illustrator CS4序列號大全
[摘要]一個在服務器端選擇文件的小程序，在要插入服務器端的文件，例如服務器端已經上傳的圖片，或者是菜單管理中選擇要執行的文件，都是有用的，當然，還可以改作它用，就看你的需要了。 限于時間，沒能打它做成像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>
標簽：在服務器端選擇文件
推薦資訊 總人氣榜
最新教程 本月人氣
- 1小米手機好用嗎？
- 2小米盒子有什么用？
- 3小米好不好？
- 4電腦很卡是什么因素？
- 5小米電視機如何？
- 6電腦出現藍屏如何辦？
- 7像素是什么意思？
- 8電動牙刷如何用？
- 9北京地鐵如何買票？
- 10現在什么手機性價比最高？
- 11現在什么手機好用？
- 12單反相機是什么？
- 1豆瓣app下載地址 豆瓣app官方版下載
- 2防范PPTV網絡電視偷跑P2P流量的方法_pptv網絡電視_下載之家
- 317app如何注冊 17app注冊方法流程
- 4Cool Edit提示：resample.xfm文件失去怎么辦？
- 5愛奇藝會員號共享（更新日期：2016年9月28日）
- 6用XML與ASP完成購物車
- 7remoteview如何用？remoteview使用方法
- 8百度搶票寶驗證碼不顯示如何辦？百度搶票不顯示驗證碼處理方法
- 9人生日歷搶票如何用？人生日歷搶票插件使用圖文說明教程
- 10柚子相機如何用？柚子相機使用方法
- 11搜狗輸入法如何設置快捷鍵？搜狗輸入法設置快捷鍵圖文說明教程
- 12隨星播如何直播？隨星播直播圖文說明教程
相關文章
