自學筆記

2015年2月8日星期日

檔案與資料夾，建立、刪除

Set fs=Server.CreateObject("Scripting.FileSystemObject")

'來源檔案存在 ---開始---
if fs.FileExists(Src_fName) then

'建立目的資料夾，如果沒有此資料夾，則建立資料夾。
ary_folder = Split(fPath,"\")
Des_fPath = "D:\APfileBK"
Des_fName = Des_fPath & "\" & fName

For i = 0 to UBound(ary_folder)-1
Des_fPath = Des_fPath & "\" & ary_folder(i)
IF not fs.FolderExists(Des_fPath) then
'Response.Write("<br>Des_fPath : " & Des_fPath)
fs.CreateFolder(Des_fPath)
End if
Next

'刪除 '@20141015 檔案有存在，先刪除
if fs.FileExists(Des_fName) then
'response.write("<br>Des_fName File exists! " & Des_fName)
'Flag(true or false):預設值為false，true表可以刪除唯讀屬性設定的檔案，若不設為 true，則遇到唯讀屬性檔案時將產生『沒有使用權限』的錯誤 (err.number=70)

fileOpen.close '關閉檔
fs.Deletefile Des_fName,true '刪除檔案先關閉，才能刪除
end if

'搬移
fs.CopyFile Src_fName,Des_fPath & "\" ,true 'overwrite(是否覆蓋):預設值為true

#####################################################

#T=============================

#T=FSO相關操作

#T=　判斷目錄是否存在

Function IsFloderExist(strFolderName)

SET FSO=Server.CreateObject("Scripting.FileSystemObject")

IF(FSO.FolderExists(strFolderName))THEN

IsFloderExist = True

ELSE

IsFloderExist = False

END IF

SET FSO=NOTHING

End Function

#T=　創建目錄

Function CreateFolder(strFolderName)

SET FSO=Server.CreateObject("Scripting.FileSystemObject")

IF(FSO.FolderExists(strFolderName) = False)THEN

FSO.CreateFolder(strFolderName)

END IF

SET FSO=NOTHING

END Function

#T=　刪除目錄

Function DeleteFolder(strFolderName)

SET FSO=Server.CreateObject("Scripting.FileSystemObject")

IF(FSO.FolderExists(strFolderName))THEN

FSO.DeleteFolder(strFolderName)

END IF

SET FSO=NOTHING

END Function

#T=　判斷文件是否存在

Function IsFileExist(strFileName)

SET FSO=Server.CreateObject("Scripting.FileSystemObject")

IF(FSO.FileExists(strFileName))THEN

IsFileExist = True

ELSE

IsFileExist = False

END IF

SET FSO=NOTHING

End Function

#T=　刪除文件

Function DeleteFile(strFileName)

SET FSO=Server.CreateObject("Scripting.FileSystemObject")

IF(FSO.FileExists(strFileName))THEN

FSO.DeleteFile(strFileName)

END IF

SET FSO=NOTHING

END Function

2015年2月3日星期二

網頁顯示自訂錯誤訊息

iis6

2014年12月25日星期四

500.19 無法存取要求的網頁因為與該網頁相關的設定資料不正確。

解決方法:

資料夾安全性增加IIS_IUSR

完畢。

2014年12月8日星期一

asp建立utf-8文字檔

<%
text = "good"
call create_utf8(text)

%>

<%
Sub create_utf8(text)
const adTypeBinary = 1
const adSaveCreateOverwrite = 2
const adModeReadWrite = 3

Set objStream = server.CreateObject("ADODB.Stream")
objStream.Open
objStream.CharSet = "UTF-8"
'objStream.WriteText("your text goes here")
objStream.WriteText(text)

objStream.SaveToFile server.mappath(".") & "/fname.txt" , adSaveCreateOverWrite
objStream.Close

End Sub

完畢。

來源 : 這篇
http://gchandra.wordpress.com/2004/08/19/creating-utf-8-files-using-asp/

用javascript語法寫

Thank’s for this tip.

Here is hte translated version for JScript:

var adTypeBinary = 1;
var adSaveCreateOverWrite = 2;
var adModeReadWrite = 3;

var objStream = new ActiveXObject(“ADODB.Stream”);
objStream.Open();
objStream.CharSet = “UTF-8〃;
objStream.WriteText(content);

objStream.SaveToFile(filename, adSaveCreateOverWrite);
objStream.Close();

objStream.LoadFromFile filename
objStream.ReadText

if file exists to append data

補充：

Saving FileSystemObject as UTF
(來源：http://stackoverflow.com/questions/2907466/saving-filesystemobject-as-utf)

Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = adTypeText
objStream.Mode = adModeReadWrite
objStream.Open
objStream.Position = 0
objStream.Charset = "UTF-8"
objStream.WriteText strContent
objStream.SaveToFile strABSPath,adSaveCreateOverWrite
objStream.Close
Set objStream=nothing