Es gibt viele ASP -Komponenten, die im Internet Miniaturansichten generieren. Wenn Ihr virtueller Raum nicht unterstützt, neue Komponenten zu registrieren, haben Sie möglicherweise das Gefühl, dass Ihre Website ihre Farbe verliert. Xinqing ist nicht talentiert und in Kombination mit Online-Ressourcen schrieb sie nur als Referenzprogramm.
Schauen wir uns zuerst die Grundlagen an. Zunächst wissen wir, dass der folgende Code auf der Seite angezeigt wird:
<imgsrc = "pic.gif" border = "0" width = "300" height = "260">
SRC ist der Bildpfad, der Rand steuert die Kantenbreite des Bildes, die Breite ist die Länge des Bildes und die Höhe der Höhe des Bildes. Die Generation von Miniaturansichten skaliert tatsächlich die ursprüngliche Größe. Um die Verzerrung zu minimieren, werden wir jedoch im Allgemeinen skaliert. Daher wird das Erhalten der Länge und Breite des Bildes zum Fokus der Erzeugung von Miniaturansichten.
Hier sind die Schritte zum Schreiben eines komponentenfreien Miniaturbilds:
1. Holen Sie sich die Bildgröße ohne Komponenten
Ich habe einen Artikel mit ASCII -Code gesehen, um Bildgrößen ohne Komponenten zu erhalten, als ich zum ersten Mal ASP lernte. Später habe ich es ausprobiert und festgestellt, dass ich es online überprüfte, als ich die Größe von JPG-ähnlichen Bildern bekam und festgestellt habe, dass viele Websites dieses Programm nachgedruckt haben, aber keiner von ihnen wies auf die Mängel dieses Programms hin, geschweige denn die Lösung für die Mängel. Später ging ich Googled und fand schließlich einen Artikel, in dem die Verwendung von adodb.stream eingeführt wurde, um Bildgrößen zu erhalten. Ich habe es versucht, indem ich den Code gemäß der eingeführten Methode geändert habe. Der Effekt ist wirklich gut. Jetzt werde ich es herausnehmen und mit Ihnen teilen:
Verwenden Sie adodb.stream, um eine gemeinsame Klasse <% der Bildgröße zu erhalten
'/////////////////// GPS: GETPICTURESIZE ///////////////
'///////////////////////////////// ./////.
'///////////// CitedByleon (Xinqing) 11. August 2005 /////////////////////////////////////
ClassGps
Dimaso
PrivateSubclass_initialize
SetAso = createObject ("adodb.stream")
ASO.MODE = 3
ASO.Type = 1
ASO.Open
Ende
PrivateSubclass_terate
setaso = nichts
Ende
PrivateFunctionBin2str (bin)
Dimi, str
Fei = 1tolenb (bin)
Clow = Midb (bin, i, 1)
IFASCB (Clow) <128Then
STR = STR & CHR (ASCB (Clow))
Anders
I = i+1
ifi <= lenb (bin) thenstr = str & chr (ASCW (Midb (bin, i, 1) & Clow))
Endif
Nächste
Bin2str = str
Endfunktion
PrivateFunctionNum2str (num, Basis, Linse)
'GPS (2005-8-11)
DiMret
ret = "" "
While (num> = base)
ret = (nummodbase) & ret
Num = (Num-Nummodbase)/Base
Wend
Num2str = rechts (String (Linse, "0") & Num & Ret, Linse)
Endfunktion
PrivateFunctionStr2num (STR, Basis)
'GPS (2005-8-11)
DiMret
ret = 0
fei = 1tolen (str)
ret = ret*base+cint (mid (str, i, 1))
nächste
Str2num = ret
Endfunktion