ASP--文件操作类 设计版
'====================================================
'Version: AspFile 1.0
'Data: 2006.6.20
'CopyRight: (C) 2006 Evan.cn All Rights Reserved
'====================================================
'文件操作类
'文件名称
'文件大小
'文件创建
'FileName--文件名称
'DestinationFile--目标文件名称
'FileSize--获得文件大小
'FileCreatedDate--获得文件创建日期
'FileAttributes--获得文件属性
'ShowFileAccessInfo(InfoType)--获得文件属性
'CreateTxtFile()--创建文本文件
'WriteTxtFile(TextStr,WriteORAppendType)==写文本文件
'ReadTxtFile()--读取文本文件
'DeleteFile()--删除文件
'CopyFile()--拷贝文件
'MoveFile()--移动文件
'
'
Class Cls_FSO
Private o_Fso,s_FileName,s_FolderName,s_DestinationFile
Private s_FolderName,s_DestinationFolder
Private Sub Class_Initialize()
Set o_Fso = CreateObject("Scripting.FileSystemObject")
End Sub
Private Sub Class_Terminate()
Set o_Fso = Nothing
End Sub
'===============================================文件操作
'设置文件名字
Public Property Let FileName(Byval Values)
s_FileName=Values
'checkFile '检查文件
End Property
'设置目标文件名
Public Property Let DestinationFile(Byval Values)
s_DestinationFile=Values
End Property
'取文件大小
Public Property Get FileSize()
If fileExist Then
Dim f
Set f = o_Fso.Getfile(s_FileName)
FileSize = f.Size
Else
FileSize=0
End if
End Property
'取文件
Public Property Get FileCreatedDate()
If fileExist Then
Dim f
Set f = o_Fso.GetFile(s_FileName)
FileCreatedDate = f.DateCreated
Else
FileCreatedDate="1900-1-1"
End if
End Property
'取文件大小
Public Property Get FileAttributes()
If fileExist Then
Dim f,Str
Set f = o_Fso.GetFile(s_FileName)
Select Case f.attributes
Case 0 Str="普通文件。没有设置任何属性。 "
Case 1 Str="只读文件。可读写。 "
Case 2 Str="隐藏文件。可读写。 "
Case 4 Str="系统文件。可读写。 "
Case 16 Str="文件夹或目录。只读。 "
Case 32 Str="上次备份后已更改的文件。可读写。 "
Case 1024 Str="链接或快捷方式。只读。 "
Case 2048 Str=" 压缩文件。只读。"
End Select
FileAttributes=Str
Else
FileAttributes="文件不存在或不可预测地属性"
End if
End Property
Public Function ShowFileAccessInfo(InfoType)
'//功能:显示文件创建时信息
'//形参:文件名,信息类别
'// 1 -----创建时间
'// 2 -----上次访问时间
'// 3 -----上次修改时间
'// 4 -----文件路径
'// 5 -----文件名称
'// 6 -----文件类型
'// 7 -----文件大小
'// 8 -----父目录
'// 9 -----根目录
'判断参数是否是数字
If fileExist Then
Dim f, s
Set f = o_Fso.GetFile(s_FileName)
Select Case InfoType
Case 1
s = f.DateCreated '// 1 -----创建时间
Case 2
s = f.DateLastAccessed '// 2 -----上次访问时间
Case 3
s = f.DateLastModified '// 3 -----上次修改时间
Case 4
t .type ----ファイルタイプ
ケース7
s = f.Size '// 7 -----ファイルサイズ
ケース8
s = f.ParentFolder '// 8 -----親ディレクトリ
ケース 9
s = f.rootfolder '// 9 ----- ルート ディレクトリ
End Select
ShowfileAccessinfo = S
Else
ShowfileAccessinfo = "ファイルが存在しません: ("
End If
End Function
leexistle fileExist = True
'ファイルパスをチェック
'ファイルが存在するかチェック
If Not(o_Fso.FileExists(s_FileName)) then
fileExist = False
'End If
End Function
Private Function showErr(s_Msg)
Response.Write( s_Ms g)
Set Fso=Nothing
Response.End()
End Function
Public Function CreateTxtFile()
'//空のファイルを作成
If fileExist then
showErr "ファイルは既に存在します: ("
Else
Dim f
Set f= o_Fso.CreateTextFile(s_FileName)
f.Close
End If
End Function
Public Function WriteTxtFile(TextStr,WriteORAppendType)
Const ForReading = 1, ForWriting = 2 , ForAppending = 8
Dim f, m
Case WriteORAppendType を選択します
1: Set f = o_Fso.OpenTextFile(s_FileName, ForWriting, True)
f. Not fileExist then
showErr "ファイルの書き込みに失敗しました"
End if
ケース 2: ファイルの最後に
iF ファイルが存在する場合
set f = o_fso.opentextFile (S_filename, ForaPpending)
F.Write TextStr
F.Close
Showerr "失敗"
End IF
END S Electn End Function e
Public Function ReadTxtFile()
Const ForReading = 1, ForWriting = 2 dim f、m
's' s 's' s 's' s 's ‐ ‐ dim f、'f.skipline
readtxtfile =m
fを使用します。 )
If fileExist then
o_Fso.DeleteFile (s_FileName)
Else
showErr "ファイルはもう存在しません:("
End if
End Function
Public Function CopyFile()
'//関数: ファイルはコピーのみ可能ですソースファイルが存在し、宛先ファイルは効果がない場合
'//SourceFile=s_FileName
If fileExist then
Dim MyFile
If s_FileName=s_DestinationFile then
showErr "同じファイル名を同じディレクトリにコピーすることを禁止します: ("
End IF
Set MyFile = o_Fso.GetFile(s_FileName)
MyFile .Copy (s_DestinationFile)
Else
showErr "ファイルはもう存在しません"
End if
End Function
Public Function MoveFile()
If fileExist then
Dim SourceFile
If s_FileName=s_DestinationFile then
showErr "同じファイル名を同じディレクトリに移動することを禁止します:("
End IF
o_Fso.MoveFile s_FileName,s_DestinationFile
Else
showErr "ファイルはもう存在しません: ( "
End If
End Function
'====================================== = ======= ディレクトリ操作
'ディレクトリ名を設定
Public Property Let FolderName(Byval Values)
s_FolderName=Values
'checkFolder 'ファイルを確認する
End Property
'対象ディレクトリ名を設定
Public Property Let DestinationFolder( Byval Values)
s_DestinationFolder=Values
End Property
'ディレクトリサイズを取得
'ディレクトリ作成情報を取得
'ディレクトリが存在するか判断
'ディレクトリを作成
'ディレクトリを削除
'ディレクトリをコピー
'ディレクトリを移動
'ディレクトリの名前を変更
'====================================== ====== ======トラバーサル操作
エンドクラス
Set myFile=new Cls_FSO
myFile.FileName=Server.MapPath("file.txt")
'myFile.CreateTxtFile()
myFile。 WriteTxtFile "テスト",2
myFile.DestinationFile=Server.MapPath("file2.txt")
myFile.CopyFile()
'myFile.FileName=Server.MapPath("file2.txt")
'myFile.DeleteFile()
response.Write(myFile .FileSize)
for i =0 to 8
response.Write(myFile.ShowFileAccessInfo(i) )
response.Write("
")
next
%>
以上がファイル操作の問題の ASP 概要の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。

C#は、Microsoftによって開発された最新のオブジェクト指向プログラミング言語であり、.NETフレームワークの一部として開発されています。 1.C#は、カプセル化、継承、多型を含むオブジェクト指向プログラミング(OOP)をサポートしています。 2。C#の非同期プログラミングは非同期を通じて実装され、適用応答性を向上させるためにキーワードを待ちます。 3. LINQを使用してデータ収集を簡潔に処理します。 4.一般的なエラーには、null参照の例外と、範囲外の例外インデックスが含まれます。デバッグスキルには、デバッガーと例外処理の使用が含まれます。 5.パフォーマンスの最適化には、StringBuilderの使用と、不必要な梱包とボクシングの回避が含まれます。

C#.NETアプリケーションのテスト戦略には、ユニットテスト、統合テスト、エンドツーエンドテストが含まれます。 1.単位テストにより、コードの最小ユニットがMSTEST、ヌニット、またはXUNITフレームワークを使用して独立して動作することを保証します。 2。統合テストでは、一般的に使用されるシミュレートされたデータと外部サービスを組み合わせた複数のユニットの機能を検証します。 3.エンドツーエンドのテストでは、ユーザーの完全な操作プロセスをシミュレートし、通常、セレンは自動テストに使用されます。

C#シニア開発者とのインタビューでは、非同期プログラミング、LINQ、.NETフレームワークの内部作業原則などのコア知識をマスターする必要があります。 1.非同期プログラミングは、非同期を通じて操作を簡素化し、アプリケーションの応答性を向上させるのを待ちます。 2.LinqはSQLスタイルでデータを操作し、パフォーマンスに注意を払います。 3.ネットフレームワークのCLRはメモリを管理し、ガベージコレクションに注意して使用する必要があります。

C#.NETインタビューの質問と回答には、基本的な知識、コアの概念、高度な使用が含まれます。 1)基本知識:C#は、Microsoftが開発したオブジェクト指向言語であり、主に.NETフレームワークで使用されています。 2)コアの概念:委任とイベントは動的な結合方法を可能にし、LINQは強力なクエリ関数を提供します。 3)高度な使用:非同期プログラミングは応答性を向上させ、式ツリーは動的コード構造に使用されます。

C#.NETは、その強力なエコシステムと豊富なサポートのため、マイクロサービスを構築するために人気のある選択肢です。 1)asp.netcoreを使用してRestfulapiを作成して、順序の作成とクエリを処理します。 2)GRPCを使用して、マイクロサービス間の効率的な通信を実現し、注文サービスを定義および実装します。 3)Dockerコンテナ化されたマイクロサービスを介して展開と管理を簡素化します。

C#および.NETのセキュリティベストプラクティスには、入力検証、出力エンコード、例外処理、認証と承認が含まれます。 1)正規表現または組み込みのメソッドを使用して入力を検証して、悪意のあるデータがシステムに入るのを防ぎます。 2)XSS攻撃を防ぐための出力エンコード、httputility.htmlencodeメソッドを使用します。 3)例外処理により、情報の漏れが回避され、エラーが記録されますが、詳細情報はユーザーに返されません。 4)ASP.Netidentityおよび請求に基づく許可を使用して、不正アクセスから申請を保護します。

C言語におけるコロン( ':')の意味:条件付きステートメント:条件付き式とステートメントの分離ブロックループステートメント:初期化、条件付きおよび増分式のマクロ定義の分離:マクロ名とマクロ値の分離単一行コメント:コメントアレイの寸法としてのコロンから行までのコンテンツを表す:アレイの寸法を指定する

c言語は、後の運動後演算子であり、その動作メカニズムには次のものが含まれます。最初に変数の値を取得します。 aの値を1 x1。増加した後、aの値を返します。


ホットAIツール

Undresser.AI Undress
リアルなヌード写真を作成する AI 搭載アプリ

AI Clothes Remover
写真から衣服を削除するオンライン AI ツール。

Undress AI Tool
脱衣画像を無料で

Clothoff.io
AI衣類リムーバー

AI Hentai Generator
AIヘンタイを無料で生成します。

人気の記事

ホットツール

ドリームウィーバー CS6
ビジュアル Web 開発ツール

DVWA
Damn Vulnerable Web App (DVWA) は、非常に脆弱な PHP/MySQL Web アプリケーションです。その主な目的は、セキュリティ専門家が法的環境でスキルとツールをテストするのに役立ち、Web 開発者が Web アプリケーションを保護するプロセスをより深く理解できるようにし、教師/生徒が教室環境で Web アプリケーションを教え/学習できるようにすることです。安全。 DVWA の目標は、シンプルでわかりやすいインターフェイスを通じて、さまざまな難易度で最も一般的な Web 脆弱性のいくつかを実践することです。このソフトウェアは、

SAP NetWeaver Server Adapter for Eclipse
Eclipse を SAP NetWeaver アプリケーション サーバーと統合します。

ゼンドスタジオ 13.0.1
強力な PHP 統合開発環境

ZendStudio 13.5.1 Mac
強力な PHP 統合開発環境

ホットトピック



