Recommandé: code de pagination rapide ASP %@ language = vbscript codepage = 936% % option explicit 'Forcing the variable dim idcount' Total number of records dim pages' Number of per page dim pagec' Total number of pages dim page' Page number dim page' Page number dim pagenc' Number of pages displayed per page=pagenc*2+1 pagenc=2 dim pagenmax' Maximum page number of pages displayed per page dim pagenmin
Pour un espace qui prend en charge l'ASP et le FSO, tout est beaucoup plus facile avec le FSO
Je suis également novice et j'ai écrit des codes pour que tout le monde apprenne et étudie
Tout d'abord, envisagez-vous de soutenir les composants FSO?
<%
«Nom du composant FSO
talent
FsObject = scripting.FileSystemObject
'=====================================================================.
'◆ Si les composants sont pris en charge
'=====================================================================.
Fonction isOBjinstalled (strClassString)
Sur l'erreur reprendre ensuite
IsObjinstalled = false
Err = 0
Dim xttestobj
SET XTestObj = Server.CreateObject (StrClassString)
Si 0 = ERR alors isObjinStalled = true
Définir XTestObj = Rien
Err = 0
Fonction finale
Si Isobjinstalled (fsObject) alors
réponse.WRITE √
autre
réponse.WRITE ×
terminer si%>
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<%
'=====================================================================.
'◆ Si les composants sont pris en charge
'=====================================================================.
Fonction isOBjinstalled (strClassString)
Sur l'erreur reprendre ensuite
IsObjinstalled = false
Err = 0
Dim xttestobj
SET XTestObj = Server.CreateObject (StrClassString)
Si 0 = ERR alors isObjinStalled = true
Définir XTestObj = Rien
Err = 0
Fonction finale
'=====================================================================.
'Opération FSO
'=====================================================================.
'◆ Vérifiez si un répertoire existe
'=====================================================================.
Fonction CheckDir (FolderPath)
FolderPath = server.mappath (.) & / & FolderPath
Set fso = createObject (fsObject)
Si fso.folderexists (FolderPath) alors
CheckDir = true
Autre
Checkdir = false
Terminer si
Définir FSO = rien
Fonction finale
'=====================================================================.
'◆ Générez le répertoire en fonction du nom spécifié
'=====================================================================.
Fonction makewsdir (foldername)
DIM FS0
Set fso = createObject (fsObject)
SET FS0 = FSO.CREATEFOLDER (FOLDERNAME)
Définir FSO = rien
Fonction finale
'=====================================================================.
'◆ Créez un nouveau dossier si le dossier n'existe pas ◆
'=====================================================================.
Fonction CheckFolder (FolderPath)
Si CheckDir (FolderPath) = false alors'f le dossier n'existe pas
Makenewsdir (FolderPath) 'Créez simplement un dossier
terminer si
fonction finale
'=====================================================================.
'◆ Supprimer le dossier ◆
'=====================================================================.
Fonction DeleteFoldera (FolderPath)
chemin de tamis
Set fso = createObject (fsObject)
path = request.servervariables (appl_physical_path) & FolderPath
fso.deletefolder (chemin)
Définir FSO = rien
fonction finale
'=====================================================================.
'◆ Changer le nom du dossier ◆
'=====================================================================.
Fonction MoveFolder (FolderName, newFolderName)
isfso
Set fso = createObject (fsObject)
fso.movefolder & request.servervariables (appl_physical_path) & / & foldername &, & request.servervariables (appl_physical_path) & / & newfoldername &
Définir FSO = rien
Fonction finale
'=====================================================================.
'◆ Supprimer le fichier spécifié ◆
'=====================================================================.
Fonction deletefile (fichier)
Set fso = createObject (fsObject)
fso.deletefile request.servervariables (appl_physical_path) & fichier
Définir FSO = rien
Fonction finale
'=====================================================================.
'◆ Sauvegarder le fichier spécifié ◆
'=====================================================================.
Fonction CopyFile (OldFile, NewFile)
Set fso = createObject (fsObject)
Sur l'erreur reprendre ensuite
Définir FSO = server.CreateObject (FSObject)
OldFile = Server.Mappath (OldFile)
Si err.number> 0 alors appelez alerte (erreur de chemin d'origine!,)
newFile = server.mappath (newfile)
Si err.number> 0 alors appelez l'alerte (nouvelle erreur de chemin!,)
fso.copyfile oldfile, newfile 'écraser le fichier d'origine
Si err.number> 0 alors appelez alerte (err.deScription,)
Définir FSO = rien
Fonction finale
'=====================================================================.
'◆ Transférer le fichier spécifié ◆
'=====================================================================.
Fonction movefile (oldfile, newfile)
Set fso = createObject (fsObject)
Sur l'erreur reprendre ensuite
Définir FSO = server.CreateObject (FSObject)
OldFile = Server.Mappath (OldFile)
Si err.number> 0 alors appelez alerte (erreur de chemin d'origine!,)
newFile = server.mappath (newfile)
Si err.number> 0 alors appelez l'alerte (nouvelle erreur de chemin!,)
«fso.movefile oldfile, newfile» ne peut pas écraser le fichier d'origine
fso.movefile d: /o/data/test.txt,d: /o/databackup/test3.txt
Si err.number> 0 alors appelez alerte (err.deScription,)
Définir FSO = rien
Fonction finale
'=====================================================================.
'◆ Lire le code de fichier ◆
'=====================================================================.
Fonction chargement (fichier) 'Lire le fichier
faible flexion
Set fso = createObject (fsObject)
Définir fTEMP = fso.OpenTextFile (server.mappath (& file &), 1)
loadfile = ftemp.readall
flemp.close
fso.close
Définir FSO = rien
Fonction finale
'=====================================================================.
'◆ Générez des fichiers à partir du code ◆
'=====================================================================.
'=================================================================.
'■ Le fichier génère le nom du fichier
'■ code de fichier de code
'=================================================================.
Fonction SaveFile (fichier, code) 'Enregistrer le fichier
Dim Myfile
Set fso = createObject (fsObject)
Définissez MyFile = FSO.CreateTextFile (server.mappath (fichier), true)
MyFile.WriteLine (code)
Myfile.close
Set myfile = rien
Fonction finale
'=====================================================================.
'◆ Base de données compressée ◆
'=====================================================================.
'=================================================================.
'■ Chemin de fichier de données DBPATH
'■ Boolis97 Access97 Compression
'=================================================================.
Fonction compactdb (DBPath, boolis97)
Dim strdbpath, fso, moteur
dbpath = server.mappath (dbPath)
strdbpath = Left (dbPath, instrrrev (dbPath, /))
Set fso = createObject (fsObject)
Si fso.fileexists (dbpath) alors
Set moteur = CreateObject (jro. jetEngine)
Si boolis97 = true alors
DIM JET_3X
Moteur.compactDatabase Provider = Microsoft.Jet.oledb.4.0; Data Source = & dbPath, _
Provider = Microsoft.Jet.oledb.4.0; Data Source = & strdbpath & temp.mdb; _
& Jet Oledb: Type de moteur = & Jet_3x
Autre
Moteur.compactDatabase Provider = Microsoft.Jet.oledb.4.0; Data Source = & dbPath, _
Fournisseur = Microsoft.Jet.oledb.4.0; Jet Oledb: Database Motword = & DBPW &; Data Source = & StrdBPath & Temp.Mdb
Terminer si
fso.copyfile strdbpath & temp.mdb, dbpath
fso.deletefile (strdbpath & temp.mdb)
Définir FSO = rien
Régler le moteur = rien
Compactdb = La base de données actuelle a été compressée avec succès!
Autre
Compactdb = le nom ou le chemin de la base de données est incorrect. Veuillez réessayer!
Terminer si
Fonction finale
%>
Partager: ensemble de fonctions de fonctionnement du fichier ASP % '==============================================. Adresses '==================================================================================================== ====================================================================================.