ASP Function in common use 1

' =======================
' 檢測上頁是否從本站提交
' 返回:True,False
' =======================
Function IsSelfRefer()
Dim sHttp_Referer, sServer_Name
sHttp_Referer = CStr(Request.ServerVariables("HTTP_REFERER"))
sServer_Name = CStr(Request.ServerVariables("SERVER_NAME"))
If Mid(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name Then
IsSelfRefer = True
Else
IsSelfRefer = False
End If
End Function
'*****************************
'建立檔案目錄
'*****************************
Dim Fs,NewPath,DelPath,FPath,DelFPath
Function FsFolder(TName)
NewPath=Server.MapPath(""&Tname&"")
Set Fs=Server.CreateObject("Scripting.FileSystemObject")
If Fs.FolderExists(NewPath)=True Then
Response.Write "<script language='JavaScript'>"&_
"alert('有此檔案夾名請重新命名');"&_
"history.go(-1);"&_
"</script>"
Response.End
Else
Fs.CreateFolder(NewPath)
Set Fs=Nothing
End If
End Function
'*****************************
'刪除檔案目錄
'*****************************
Function DelFolder(TName)
DelPath=Server.MapPath(""&TName&"")
Set Fs=Server.CreateObject("Scripting.FileSystemObject")
If Fs.FolderExists(DelPath)=True Then
Fs.DeleteFolder DelPath,True
End If
Set Fs=Nothing
End Function
'***************************************
'建立檔案
'***************************************
Function CreateFile(FName,strFile)
Dim FPath,Os,Fs
FPath=Server.MapPath(""&FName&"")
Set Fs=Server.CreateObject("Scripting.FileSystemObject")
Set Os=Fs.CreateTextFile(FPath,True,False)
Os.Write strFile
Os.Close
Set Os=Nothing