Wir alle wissen, dass ACCESS ein enger Partner von ASP ist. Denn zwei der einfachsten Dinge erzeugen immer Funken, wenn sie zusammenkommen. Wenn unsere Filterung jedoch nicht streng ist, werden häufig japanische Zeichen angezeigt. Zu diesem Zeitpunkt kommt es nach der Suche zu einem japanischen Überlauf. Zu diesem Zeitpunkt können wir uns normalerweise vorstellen, ein EXE-Programm zu finden, um dieses Problem zu lösen. Ich habe ursprünglich ein ähnliches Programm in C# geschrieben.
Sie sollten den Artikel, den ich zuvor geschrieben habe, bei Google finden können. Mehr verrate ich nicht.
Dann fand ich eines Tages heraus, dass ASP das kann. Ich fühlte mich damals wirklich beschissen.
Diese ASP-Methode ist jedoch sehr schlecht. Es kann leicht zu einem Systemabsturz kommen (wenn die Datenbank groß ist).
Also schreibe ich einfach hier. Es kann als Ausgangspunkt betrachtet werden.
„Lassen Sie es mich unten erklären:
Funktion TransferJapanDc9CnInDB()
Bei Fehler Weiter fortsetzen
Fehler.Klar
Dim objRS,i
Setze objRS=Server.CreateObject(ADODB.Recordset)
objRS.CursorType = adOpenKeyset
objRS.LockType = adLockReadOnly
objRS.ActiveConnection=objConn
objRS.Source=SELECT * FROM [blog_Comment]
objRS.Open()
Wenn (nicht objRS.bof) und (nicht objRS.eof) dann
Für i=1 bis objRS.RecordCount
„Gehen Sie durch und prüfen Sie, ob japanischer Text vorhanden ist. Suchen Sie einfach nach etwas.“ Es spielt keine Rolle, wonach Sie suchen. Da es ACCESS durchläuft, kommt es zu einem Überlauf, solange sich der Zeiger auf Japanisch bewegt.
objConn.Execute(SELECT * FROM [blog_Comment] WHERE comm_ID=&objRS(comm_ID)& AND [comm_Content] LIKE '%URL%')
Wenn Err.Number=-2147217900, dann
„Da der Fehler weiterhin besteht, wurde der Überlauffehlercode hier gefunden. Dieser wurde von mir selbst debuggt und wurde nicht tatsächlich irgendwo gefunden.“
objConn.Execute(UPDATE [blog_Comment] SET [comm_Content]='&FilterSQL(Japan2Html(objRS(comm_Content)))&',[comm_Author]='&FilterSQL(Japan2Dc9CnHtml(objRS(comm_Author)))&' WHERE comm_ID=&objRS(comm_ID )& )
„Das soll den japanischen Text ersetzen.“ Freundlichkeit. Wenn die Datenbank jedoch sehr groß wird, führt ein wiederholter Überlauf zu Problemen. Erinnerungsbabys werden weinen.
Fehler.Klar
Ende wenn
objRS.MoveNext
Nächste
Ende wenn
objRS.Schließen
Setze objRS=Nothing
'www.dc9.cn 28.11.07
Funktion beenden
Funktion Japan2Dc9CnHtml(Quelle)
source=Replace(source,ガ,ガ)
Quelle=Ersetzen(Quelle,ギ,ギ)
source=Replace(source,ア,ア)
Quelle=Ersetzen(Quelle,ゲ,ゲ)
Quelle = Ersetzen (Quelle, ゴ, ゴ)
Quelle=Ersetzen(Quelle,ザ,ザ)
Quelle = Ersetzen (Quelle, ジ, ジ)
Quelle=Ersetzen(Quelle,ズ,ズ)
Quelle = Ersetzen (Quelle, ゼ, ゼ)
Quelle=Ersetzen(Quelle,ゾ,ゾ)
Quelle=Ersetzen(Quelle,ダ,ダ)
Quelle=Ersetzen(Quelle,ヂ,ヂ)
Quelle=Ersetzen(Quelle,ヅ,ヅ)
Quelle=Ersetzen(Quelle,デ,デ)
Quelle=Ersetzen(Quelle,ド,ド)
Quelle=Ersetzen(Quelle,バ,バ)
Quelle=Ersetzen(Quelle,パ,パ)
Quelle=Ersetzen(Quelle,ビ,ビ)
Quelle=Ersetzen(Quelle,ピ,ピ)
Quelle=Ersetzen(Quelle,ブ,ブ)
Quelle=Ersetzen(Quelle,ブ,ブ)
Quelle=Ersetzen(Quelle,プ,プ)
source=Replace(source,ベ,ベ)
Quelle=Ersetzen(Quelle,ペ,ペ)
Quelle=Ersetzen(Quelle,ボ,ボ)
Quelle=Ersetzen(Quelle,ポ,ポ)
Quelle=Ersetzen(Quelle,ヴ,ヴ)
Japan2Html=Quelle
Funktion beenden
Übrigens wurde mein Blog in letzter Zeit wiederholt gehackt, was mich sehr deprimiert. Da es von Arabern oder Israelis gemacht wird, kann ich nicht kommunizieren.
Ich kann immer noch nicht herausfinden, wie sie das gemacht haben.
Wirklich deprimierend.
In Ordnung.
in den folgenden Tagen. Ich werde noch einige technische Beiträge veröffentlichen. Ich hatte plötzlich das Gefühl, dass dieser Sitz sehr wertvoll war.