Recomendado: código de paginación rápida ASP %@ lenguaje = VBScript CodePage = 936 % opción Explícita 'Forzando la variable Dim idcount' Número total de registros Dim Páginas 'Número de Páginas por página Dim PAGEC' TOTAL Número de páginas Página Dim Página 'Página Página Dim Número de página Dim Pagenc' Número de páginas Mostrado por página = Pagenc*2+1 Pagenc = 2 Dim PagenMax 'Página Máxima Número de página Pagas Pagas Dim PageMinMinMinMinM.
Para un espacio que admite ASP y FSO, todo es mucho más fácil con FSO
También soy un novato y escribí algunos códigos para que todos aprendan y estudien.
Primero, ¿miras componentes de componentes FSO?
<%
'Nombre del componente FSO
Dim fsobject
Fsobject = scripting.filesystemObject
'=============================================================================================================================
'◆ Si los componentes son compatibles
'=============================================================================================================================
Función isobjinstalled (strclassstring)
En el currículum de error siguiente
Isobjinstalled = falso
Err = 0
Dim xtestobj
Establecer xtestobj = server.createObject (strclassstring)
If 0 = err entonces isobjinstalled = true
Establecer Xtestobj = nada
Err = 0
Función final
Si isobjinstalled (fsobject) entonces
respuesta. Escribe √
demás
Respuesta.WRITE ×
FIN IF%>
---------------------------------------------------------------------------------------------------
<%
'=============================================================================================================================
'◆ Si los componentes son compatibles
'=============================================================================================================================
Función isobjinstalled (strclassstring)
En el currículum de error siguiente
Isobjinstalled = falso
Err = 0
Dim xtestobj
Establecer xtestobj = server.createObject (strclassstring)
If 0 = err entonces isobjinstalled = true
Establecer Xtestobj = nada
Err = 0
Función final
'=============================================================================================================================
'Operación FSO
'=============================================================================================================================
'◆ Verifique si existe un directorio
'=============================================================================================================================
Función checkDir (carpeta)
FolderPath = Server.Mappath (.) &/& FolderPath
Establecer fso = createObject (fsobject)
Si FSO.FolderEterexists (FolderPath) entonces
CheckDir = verdadero
Demás
CheckDir = falso
Final si
Establecer FSO = nada
Función final
'=============================================================================================================================
'◆ Generar directorio basado en el nombre especificado
'=============================================================================================================================
Función MakenewsDir (FolderName)
Dim FS0
Establecer fso = createObject (fsobject)
Establecer FS0 = FSO.CreateFolder (FolderName)
Establecer FSO = nada
Función final
'=============================================================================================================================
'◆ Cree una nueva carpeta si la carpeta no existe ◆
'=============================================================================================================================
Función checkfolder (carpeta)
Si checkDir (folderPath) = false entonces, si la carpeta no existe
Makenewsdir (folderpath) 'Simplemente cree una carpeta
final si
función final
'=============================================================================================================================
'◆ Eliminar carpeta ◆
'=============================================================================================================================
Función DeleteFoldera (FolderPath)
camino oscuro
Establecer fso = createObject (fsobject)
rath = request.servervariables (appl_physical_path) & FolderPath
fso.deletefolder (ruta)
Establecer FSO = nada
función final
'=============================================================================================================================
'◆ Cambiar el nombre de la carpeta ◆
'=============================================================================================================================
Función MoveFolder (FolderName, NewFoldername)
ISFSO
Establecer fso = createObject (fsobject)
fso.movefolder & request.servervariables (aplic_physical_path) &/& foldername &, y request.servervariables (appl_physical_path) &/Newfoldername & y nombre y nombre y nombre y nombre y nombre y nombre y nombre y nombre &
Establecer FSO = nada
Función final
'=============================================================================================================================
'◆ Elimine el archivo especificado ◆
'=============================================================================================================================
Función DeleteFile (archivo)
Establecer fso = createObject (fsobject)
fso.deletefile request.ServerVariAbles (Appl_physical_path) y archivo
Establecer FSO = nada
Función final
'=============================================================================================================================
'◆ Copia de seguridad del archivo especificado ◆
'=============================================================================================================================
Función CopyFile (OldFile, Newfile)
Establecer fso = createObject (fsobject)
En el currículum de error siguiente
Establecer fso = server.createObject (fsobject)
OldFile = Server.Mappath (Oldfile)
Si err.number> 0, llame alert (¡error de ruta original!,)
newfile = server.mappath (Newfile)
Si err.number> 0, llame alert (¡nuevo error de ruta!,)
FSO.CopyFile Oldfile, Newfile 'sobrescribe el archivo original
Si Err.Number> 0, llame a alerta (err.description,)
Establecer FSO = nada
Función final
'=============================================================================================================================
'◆ Transfiera el archivo especificado ◆
'=============================================================================================================================
Función MoveFile (OldFile, Newfile)
Establecer fso = createObject (fsobject)
En el currículum de error siguiente
Establecer fso = server.createObject (fsobject)
OldFile = Server.Mappath (Oldfile)
Si err.number> 0, llame alert (¡error de ruta original!,)
newfile = server.mappath (Newfile)
Si err.number> 0, llame alert (¡nuevo error de ruta!,)
'FSO.MoveFile Oldfile, Newfile' no puede sobrescribir el archivo original
fso.movefile d: /o/data/test.txt,d: /o/databackup/test3.txt
Si Err.Number> 0, llame a alerta (err.description,)
Establecer FSO = nada
Función final
'=============================================================================================================================
'◆ Lea el código de archivo ◆
'=============================================================================================================================
Función LoadFile (archivo) 'Lea el archivo
Dim ftemp
Establecer fso = createObject (fsobject)
Establecer ftemp = fso.opentextfile (server.mappath (& file &), 1)
loadFile = ftemp.readall
ftemp.close
FSO.CLOSE
Establecer FSO = nada
Función final
'=============================================================================================================================
'◆ Generar archivos a partir del código ◆
'=============================================================================================================================
'========================================================
'■ El archivo genera el nombre del archivo
'■ Código Código de archivo
'========================================================
Función saveverfile (archivo, código) 'Guardar archivo
Dim myfile
Establecer fso = createObject (fsobject)
Establecer myFile = fso.createTextFile (server.mappath (archivo), verdadero)
MyFile.Writeline (código)
Myfile.close
Establecer myFile = nada
Función final
'=============================================================================================================================
'◆ Base de datos comprimida ◆
'=============================================================================================================================
'========================================================
'■ ruta del archivo de datos DBPath
'■ Boolis97 Access97 Compresión
'========================================================
Función compactDb (dbpath, boolis97)
Dim strdbpath, FSO, motor
dbpath = server.mappath (dbpath)
strdbpath = izquierda (dbpath, instrrev (dbpath,/))
Establecer fso = createObject (fsobject)
Si fso.fileExists (dbpath) entonces
Establecer motor = createObject (jro.JetEngine)
Si boolis97 = verdadero entonces
Dim jet_3x
Engine.comPactDatabase Provider = Microsoft.Jet.OLEDB.4.0; Data Source = & DBPath, _
Provider = Microsoft.Jet.OLEDB.4.0; Data Source = & strdbpath & temp.mdb; _
& Jet OLEDB: Tipo de motor = & jet_3x
Demás
Engine.comPactDatabase Provider = Microsoft.Jet.OLEDB.4.0; Data Source = & DBPath, _
Provider = Microsoft.Jet.OLEDB.4.0; Jet OLEDB: Base de datos Password = & DBPW &; Data Source = & Strdbpath & Temp.MDB
Final si
FSO.CopyFile Strdbpath & Temp.MDB, DBPATH
fso.deletefile (strdbpath & temp.mdb)
Establecer FSO = nada
Establecer el motor = nada
CompactDB = ¡La base de datos actual se ha comprimido con éxito!
Demás
CompactDB = El nombre o ruta de la base de datos es incorrecta. ¡Vuelve a intentarlo!
Final si
Función final
%>
Compartir: Función de operación de archivo ASP establecida % ') direcciones '========================================================================== =========================================================================================================