推奨：ASPクイックページネーションコード％@言語= vbscript codepage = 936％option explicit '変数dim idcountの強制'総記録の数ディムページの総数 'ページごとの数字の数字の数ディムページ'ページ数ディムページ 'ページ番号ディムページ数'ページごとに表示されるページ=ページに表示されるページ
ASPとFSOをサポートするスペースの場合、FSOではすべてがはるかに簡単です
私も初心者であり、誰もが学び、勉強するためのいくつかのコードを書きました
まず、FSOコンポーネントのサポートを検討していますか？
<％
'FSOコンポーネント名
dim fsobject
fsobject = scripting.filesystemobject
'===================================================================================================
◆コンポーネントがサポートされているかどうか
'===================================================================================================
function isobjinstalled（strclassstring）
エラーの再開時に次に再開します
isobjinstalled = false
err = 0
dim xtestobj
xtestobj = server.createobject（strclassstring）をset
0 = errの場合、isobjinstalled = true
set xtestobj = Nothing
err = 0
エンド関数
isobjinstalled（fsobject）の場合
Response.Write√
それ以外
Response.Write×
if>を終了します
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<％
'===================================================================================================
◆コンポーネントがサポートされているかどうか
'===================================================================================================
function isobjinstalled（strclassstring）
エラーの再開時に次に再開します
isobjinstalled = false
err = 0
dim xtestobj
xtestobj = server.createobject（strclassstring）をset
0 = errの場合、isobjinstalled = true
set xtestobj = Nothing
err = 0
エンド関数
'===================================================================================================
'FSO操作
'===================================================================================================
'◆ディレクトリが存在するかどうかを確認します
'===================================================================================================
function checkdir（folderpath）
folderpath = server.mappath（。）＆/＆＆＆folderpath
fso = createObject（fsobject）を設定します
fso.folderexists（folderpath）の場合
checkdir = true
それ以外
checkdir = false
ifを終了します
FSO =何も設定しません
エンド関数
'===================================================================================================
'◆指定された名前に基づいてディレクトリを生成します
'===================================================================================================
function makenewsdir（foldername）
DIM FS0
fso = createObject（fsobject）を設定します
fs0 = fso.createfolder（foldername）を設定します
FSO =何も設定しません
エンド関数
'===================================================================================================
'◆フォルダが存在しない場合は、新しいフォルダーを作成します◆
'===================================================================================================
function checkfolder（folderpath）
checkdir（folderpath）= falseの場合、フォルダーが存在しない場合
Makenewsdir（FolderPath） 'フォルダーを作成するだけです
ifを終了します
エンド関数
'===================================================================================================
'◆フォルダーを削除◆
'===================================================================================================
関数deletefoldera（folderpath）
薄暗いパス
fso = createObject（fsobject）を設定します
path = request.servervariables（appl_physical_path）＆folderpath
fso.deletefolder（パス）
FSO =何も設定しません
エンド関数
'===================================================================================================
'◆フォルダー名を変更◆
'===================================================================================================
function movefolder（foldername、newFoldername）
ISFSO
fso = createObject（fsobject）を設定します
fso.movefolder＆request.servervariables（appl_physical_path）＆/＆foldername＆、＆request.servervariables（appl_physical_path）＆/＆/＆newfoldername＆
FSO =何も設定しません
エンド関数
'===================================================================================================
'◆指定されたファイルを削除◆
'===================================================================================================
function deletefile（file）
fso = createObject（fsobject）を設定します
fso.deletefile request.servervariables（appl_physical_path）＆file
FSO =何も設定しません
エンド関数
'===================================================================================================
'◆指定されたファイルをバックアップします◆
'===================================================================================================
function copyfile（oldfile、newfile）
fso = createObject（fsobject）を設定します
エラーの再開時に次に再開します
fso = server.createobject（fsobject）を設定します
oldfile = server.mappath（oldfile）
err.number> 0の場合、アラート（元のパスエラー！、）を呼び出します
newfile = server.mappath（newfile）
err.Number> 0の場合、アラート（新しいパスエラー！、）を呼び出します
fso.copyfile oldfile、newfile '元のファイルを上書きします
err.number> 0の場合、アラート（err.description、）を呼び出します
FSO =何も設定しません
エンド関数
'===================================================================================================
'◆指定されたファイルを転送◆
'===================================================================================================
function movefile（oldfile、newfile）
fso = createObject（fsobject）を設定します
エラーの再開時に次に再開します
fso = server.createobject（fsobject）を設定します
oldfile = server.mappath（oldfile）
err.number> 0の場合、アラート（元のパスエラー！、）を呼び出します
newfile = server.mappath（newfile）
err.Number> 0の場合、アラート（新しいパスエラー！、）を呼び出します
'fso.movefile oldfile、newfile'は元のファイルを上書きできません
fso.movefile d：/o/data/test.txt,d：/o/databackup/test3.txt
err.number> 0の場合、アラート（err.description、）を呼び出します
FSO =何も設定しません
エンド関数
'===================================================================================================
'◆ファイルコードを読む◆
'===================================================================================================
function loadfile（file） 'ファイルを読み取ります
薄暗いftemp
fso = createObject（fsobject）を設定します
ftemp = fso.opentextfile（server.mappath（＆file＆）、1）を設定します
loadfile = ftemp.readall
ftemp.close
fso.close
FSO =何も設定しません
エンド関数
'===================================================================================================
'◆コードからファイルを生成◆
'===================================================================================================
'=================================================================
'■ファイルファイル名を生成します
'■コードファイルコード
'=================================================================
function savefile（file、code） 'ファイルを保存します
dim myfile
fso = createObject（fsobject）を設定します
myfile = fso.createTextfile（server.mappath（file）、true）を設定します
myfile.writeline（code）
myfile.close
myfile = Nothingを設定します
エンド関数
'===================================================================================================
'◆圧縮データベース◆
'===================================================================================================
'=================================================================
'■DBPATHデータファイルパス
'■boolis97 Access97圧縮
'=================================================================
関数compactdb（dbpath、boolis97）
dim strdbpath、fso、エンジン
dbpath = server.mappath（dbpath）
strdbpath = left（dbpath、instrrev（dbpath、/））
fso = createObject（fsobject）を設定します
FSO.FILEEEXISTS（DBPATH）の場合
セットエンジン= createObject（jro.jetengine）
boolis97 = trueの場合
dim jet_3x
Engine.compactDatabaseプロバイダー= Microsoft.jet.oledb.4.0; data source =＆dbpath、_
プロバイダー= microsoft.jet.oledb.4.0; data source =＆strdbpath＆temp.mdb; _
＆jet oledb：エンジンタイプ=＆jet_3x
それ以外
Engine.compactDatabaseプロバイダー= Microsoft.jet.oledb.4.0; data source =＆dbpath、_
プロバイダー= microsoft.jet.oledb.4.0; jet oledb：database password =＆dbpw＆;データソース=＆strdbpath＆temp.mdb
ifを終了します
fso.copyfile strdbpath＆temp.mdb、dbpath
fso.deletefile（strdbpath＆temp.mdb）
FSO =何も設定しません
セットエンジン=何もありません
compactdb =現在のデータベースは正常に圧縮されています！
それ以外
compactdb =データベース名またはパスが正しくありません。もう一度やり直してください！
ifを終了します
エンド関数
％>
共有：ASPファイル操作機能セット% '==================================================== ' Compiled by: Zhang Hui' Programmer code: WJ008' Compiled time: June 1, 2008' Follow address: www.wj008.net ' All file addresses used by all functions use absoluteアドレス '======================================================================== =========================================================================================================