Recommandé: ASP Réglage des conseils pour l'utilisation de fckEditor 1. Ouvrez le fichier fckconfig.js dans la langue par défaut (par rapport au dossier fckEditor, le même ci-dessous), modifiez le langage de détection automatique en non-détection et modifiez la langue par défaut en chinois simplifié: code de programme fckconfig.autodetectLanguage = false; Fckconfig.defaultLanguage = 'zh-cn'; 2. Ouvrez le fichier fckconfig.js dans la liste des polices, dans la liste des polices
<% '=========================================================.
'Compilé par: Zhang Hui
'Code du programmeur: WJ008
«Temps de compilation: 1er juin 2008
'Suivez l'adresse: www.wj008.net
«Toutes les adresses de fichier utilisées par les fonctions utilisent des adresses absolues
'=======================================================================================================================.
'LoadFile (ByVal File) charge le fichier existant et génère une chaîne pour renvoyer le contenu du fichier.
'SAVETOFILE (BYVAL STRBODY, BYVAL FILE) Enregistrer le fichier modifié, StrBody est la nouvelle chaîne
«Delfile (Fichier ByVal) Supprimer les fichiers existants
'Chargez le fichier existant, le fichier est le chemin du fichier
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Function LoadFile (fichier ByVal)
Objstream sombre
Sur l'erreur reprendre ensuite
Définir ObjStream = Server.CreateObject (Adodb.Stream)
Si err.number = -2147221005 alors
Response.Write Malheureusement, votre hôte ne prend pas en charge Adodb.stream et ne peut pas utiliser ce programme
Err.Clear
Réponse.
Terminer si
Avec objstream
.Type = 2
.Mode = 3
.Ouvrir
Fichier .LoadFromFile
Si err.number <> 0 alors
Réponse.Write File & File & ne peut pas être ouvert, veuillez vérifier s'il existe!
Err.Clear
Réponse.
Terminer si
.Charset = GB2312
.Position = 2
Loadfile = .readText
.Fermer
Se terminer avec
Définir objstream = rien
Fonction finale
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Fonction SAVETOFILE (ByVal Strbody, Fichier ByVal) 'Enregistrer le fichier ouvert, le fichier est le chemin du fichier enregistré, StrBody est le contenu enregistré
Objstream sombre
Sur l'erreur reprendre ensuite
Définir ObjStream = Server.CreateObject (Adodb.Stream)
Si err.number = -2147221005 alors
Response.Write <div align = 'Center'> Malheureusement, votre hôte ne prend pas en charge Adodb.stream, et vous ne pouvez pas utiliser ce programme </div>
Err.Clear
Réponse.
Terminer si
Avec objstream
.Type = 2
.Ouvrir
.Charset = GB2312
.Position = Objstream.Size
.WriteText = Strbody
Fichier.
.Fermer
Se terminer avec
Définir objstream = rien
Fonction finale
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Fonction delfile (fichier byval)
Faible objfilesys
Sur l'erreur reprendre ensuite
Définir ObjFilesys = Server.CreateObject (Scripting.FileSystemObject)
Si objFilesys.fileExists (fichier) alors «Si le fichier existe, supprimez le fichier comme chemin de fichier
fichier objfilesys.deletefile
Terminer si
Si err.number <> 0 alors
Réponse.write File & File & ne peut pas être supprimé, le fichier peut être utilisé par le système!
Err.Clear
Réponse.
Terminer si
Définir objFilesys = rien
Fonction finale
'Vérifiez si le fichier existe
Fonction CheckFile (SFileName)
CheckFile = false
Faible objfilesys
Sur l'erreur reprendre ensuite
Définir ObjFilesys = Server.CreateObject (Scripting.FileSystemObject)
Si objFilesys.fileExists (SFileName) alors «Si le fichier existe, supprimez le fichier informatique comme chemin de fichier
CheckFile = True
Terminer si
Définir objFilesys = rien
Fonction finale
'Vérifiez si le dossier existe
Fonction CheckFolder (chk_path)
set fso = server.createObject (scripting.fileSystemObject)
Si fso.folderexists (chk_path) = false alors
CheckFolder = false
autre
CheckFolder = true
terminer si
Fonction finale
'Obtenez le nom du suffixe de fichier
fonction getFileExt (sFileName)
GetFileExt = ucase (mid (sFileName, instrrev (sFileName,.) + 1))
Fonction finale
'**************************************************************
'Fonction: ASP Téléchargez la vulnérabilité / Protection
'Nom de la fonction: truestr (fileTrue)
'Paramètres: nom de fichier sfilename
'Valeur de retour: renvoyer vrai pour le fichier juridique, sinon renvoyez false
'**************************************************************
Fonction IstrueFileName (SFileName)
Dim str_len, pos
str_len = len (sfilename)
pos = instr (sfilename, chr (0))
Si pos = 0 ou pos = str_len alors
IstrueFileName = true
autre
IstrueFileName = false
Terminer si
Fonction finale
'**************************************************************
'Fonction: détecter si le fichier d'image téléchargé (JPEG, GIF, BMP, PNG) est vraiment une image
'Nom de la fonction: truestr (fileTrue)
'Paramètres: nom de fichier sFileName (ici le nom du fichier est le chemin complet physique du dossier)
'Valeur de retour: s'il s'agit bien d'un fichier image, il reviendra vrai, sinon il reviendra faux
'**************************************************************
Fonction isImgfile (sFileName)
const adtypebinary = 1
rendement faible
DIM JPG (1): JPG (0) = CBYTE (& HFF): JPG (1) = CBYTE (& HD8)
DIM BMP (1): BMP (0) = CBYTE (& H42): BMP (1) = CBYTE (& H4D)
DIM PNG (3): Png (0) = CBYTE (& H89): Png (1) = CBYTE (& H50): Png (2) = CBYTE (& H4E): Png (3) = CBYTE (& H47)
dim gif (5): gif (0) = cbyte (& h47): gif (1) = cbyte (& h49): gif (2) = cbyte (& h46): gif (3) = cbyte (& h39): gif (4) = cbyte (& h38): gif (5) = cbyte (& h61)
sur l'erreur reprendre ensuite
Partager: Interface de base de données pour la version ASP de requête de nom de domaine % sur l'erreur reprendre le prochain private d_exsit dim Retrieval Dim Domain Dim TakenHtml Fonction GetUrl (URL) set Retrieval = Server.CreateObject (Microsoft.xmlhttp) avec la récupération .Open Get, URL, false,.
3 pages au total Page 123 Page suivante