Empfohlen: Tipps zur ASP -Einstellung für die Verwendung von Fckeditor 1. Öffnen Sie die Datei fcKconfig.js in der Standardsprache (relativ zum Ordner fcKeditors, unten), ändern Sie die automatische Erkennungssprache in die Nichtbekennung und ändern Sie die Standardsprache in vereinfachtes Chinesisch: Programmcode FCKConfig.Autodetektuage = false; Fckconfig.defaultLanguage = 'zh-cn'; 2. Öffnen Sie die Datei fckconfig.js in der Schriftliste in der Schriftliste
<% '=====================================================================
'Zusammengestellt von: Zhang Hui
'Programmiercode: WJ008
Compilationszeit: 1. Juni 2008
'Folge Adresse: www.wj008.net
'Alle von Funktionen verwendeten Dateiadressen verwenden absolute Adressen
'================================================================================================
'LoadFile (BYVAL -Datei) lädt die vorhandene Datei und generiert eine Zeichenfolge, um den Inhalt der Datei zurückzugeben.
'SavetoFile (Byval Strkody, Byval -Datei) Speichern Sie die geänderte Datei, Strom ist die neue Zeichenfolge
'Delfile (Byval -Datei) Löschen vorhandenen Dateien
'Laden Sie die vorhandene Datei, Datei ist der Dateipfad
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Funktion loadfile (Byval -Datei)
Dimer Objstream
Bei der nächsten Fehleraufnahme als nächstes
Setzen Sie objstream = server.createObject (adodb.stream)
Wenn err.number = -2147221005 dann
Response.write Leider unterstützt Ihr Host adodb.stream nicht und kann dieses Programm nicht verwenden
Err.clear
Antwort.end
Ende wenn
Mit objstream
.Type = 2
.Mode = 3
.Offen
.LoadfromFile -Datei
Wenn err.number <> 0 dann
Antwort.Write -Datei & Datei und können nicht geöffnet werden. Bitte überprüfen Sie, ob sie vorhanden sind!
Err.clear
Antwort.end
Ende wenn
.CharSet = GB2312
.Position = 2
LoadFile = .ReadText
.Schließen
Enden mit
Objstream einstellen = nichts
Endfunktion
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Funktion SavetoFile (Byval Strkody, Byval -Datei) 'Speichern Sie die Öffnen Sie die Datei, die Datei ist der gespeicherte Dateipfad, Strom ist der gespeicherte Inhalt
Dimer Objstream
Bei der nächsten Fehleraufnahme als nächstes
Setzen Sie objstream = server.createObject (adodb.stream)
Wenn err.number = -2147221005 dann
Response.write <div align = 'center'> Leider unterstützt Ihr Host adodb.stream nicht und Sie können dieses Programm nicht verwenden </div>
Err.clear
Antwort.end
Ende wenn
Mit objstream
.Type = 2
.Offen
.CharSet = GB2312
.Position = objstream.size
.WritETEXT = strkodo
.Savetofile Datei, 2
.Schließen
Enden mit
Objstream einstellen = nichts
Endfunktion
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Funktion Delfile (Byval -Datei)
Dunkel ObjFilesys
Bei der nächsten Fehleraufnahme als nächstes
Setzen Sie objFilesys = server.createObject (scripting.FilesSystemObject)
Wenn objFilesys.FileExists (Datei) dann 'Wenn die Datei vorliegt, löschen Sie die Datei als Dateipfad
objFilesys.deleteFile -Datei
Ende wenn
Wenn err.number <> 0 dann
Antwort.Write -Datei & Datei und kann nicht gelöscht werden, die Datei kann vom System verwendet werden!
Err.clear
Antwort.end
Ende wenn
Setzen Sie ObjFilesys = nichts
Endfunktion
»Überprüfen Sie, ob die Datei vorliegt
Funktion checkfile (sFileName)
Checkfile = false
Dunkel ObjFilesys
Bei der nächsten Fehleraufnahme als nächstes
Setzen Sie objFilesys = server.createObject (scripting.FilesSystemObject)
Wenn objFilesys.FileExists (sFileName) dann 'Wenn die Datei vorliegt, löschen Sie die Datei als Dateipfad
Checkfile = true
Ende wenn
Setzen Sie ObjFilesys = nichts
Endfunktion
'Überprüfen Sie, ob der Ordner existiert
Funktion checkFolder (chk_path)
Setzen Sie fso = server.createObject (scripting.FilesystemObject)
Wenn fso.folgerexisten (chk_path) = false dann
CheckFolder = false
anders
CheckFolder = true
Ende wenn
Endfunktion
'Holen Sie sich den Namen Datei -Suffix
Funktion getFileexte (Sfilename)
GetFileexte = uCase (Mid (SFILENAME, Instrrev (Sfilename,.)+1))
Endfunktion
'*********************************************
'Funktion: ASP -Upload -Verwundbarkeit/0 Schutz
'Funktionsname: Truest (FileTrue)
'Parameter: sFileName Dateiname
'Rückgabewert: Return true für rechtliche Dateien, ansonsten return falsch
'*********************************************
Funktion iStrueFileName (Sfilename)
Dim str_len, pos
str_len = len (sFileName)
pos = instr (sFileName, chr (0))
Wenn pos = 0 oder pos = str_len dann
IStrueFileName = true
anders
IStrueFileName = false
Ende wenn
Endfunktion
'*********************************************
'Funktion: Erfassen Sie, ob die hochgeladene Bilddatei (JPEG, GIF, BMP, PNG) wirklich ein Bild ist
'Funktionsname: Truest (FileTrue)
'Parameter: SfileName -Dateiname (hier ist der Dateiname der physische vollständige Pfad des Ordners)
'Rückgabewert: Wenn es sich tatsächlich um eine Bilddatei handelt, gibt sie true zurück, andernfalls gibt sie false zurück
'*********************************************
Funktion isimgFile (Sfilename)
const adypebinary = 1
Dim Return
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) (& h6) (& H6) = CBEYT (& H6) (& H61): GIF (5) = CBYTE (& H61).
Bei der nächsten Fehleraufnahme als nächstes
Freigabe: Datenbankschnittstelle für Domänenname Abfrage ASP -Version % auf Fehler Lebenslauf Nächste private private d_exSit Dim Abrufen Dim Domain Dim Takenhtml Funktion geturl (URL) set etrieval = server
3 Seiten in der vorherigen Seite der vorherigen Seite 123 nächste Seite