ACCESS が ASP の緊密なパートナーであることは誰もが知っています。なぜなら、最も単純な 2 つのものが一緒になると常に火花を生み出すからです。
ただし、フィルタリングが厳密でない場合、検索後に日本語が溢れてしまいます。
現時点で私たちが通常考えられるアイデアは、この問題を解決するための exe プログラムを見つけることです。私はもともとこのようなプログラムを C# で書きました。
以前に書いたものはGoogleで見つかるはずです。これ以上は言いません。
ある日、ASP でそれができることに気づきました。当時は本当にクソみたいな気分だった。
しかし、このASPのやり方は非常に悪質です。 (データベースが大きい場合) システムクラッシュを引き起こしやすくなります。
だからここに書くだけです。それは出発点とみなすことができます。
「以下で説明させていただきます。
関数 TransferJapanDc9CnInDB()
エラー発生時の再開 次へ
エラークリア
Dim objRS,i
Set objRS=Server.CreateObject("ADODB.Recordset")
objRS.CursorType = adOpenKeyset
objRS.LockType = adLockReadOnly
objRS.ActiveConnection=objConn
objRS.Source="SELECT * FROM [blog_Comment]"
objRS.Open()
If (objRS.bofではない) And (objRS.eofではない) then
For i=1 to objRS.RecordCount
「トラバースして日本語のテキストがあるかどうかを確認してください。あれば、何でも検索できます。何を検索するかは関係ありません。 ACCESSを横断しているため、ポインタが日本語に移動している限りオーバーフローします。
objConn.Execute("SELECT * FROM [blog_Comment] WHERE comm_ID="&objRS("comm_ID")&" AND [comm_Content] LIKE '%URL%'")
Err.Number=-2147217900 の場合
'エラーが続くため、オーバーフロー エラー コードがここに見つかります。これは私がデバッグしたもので、実際にはどこかから見つかったものではありません。
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")&" ")
「これは日本語のテキストを置き換えるというものです。とても賢いアイデアではないでしょうか？」親切。ただし、データベースが巨大になると、オーバーフローが繰り返されると問題が発生します。思い出した赤ちゃんは泣くでしょう。
エラークリア
終了の場合
objRS.MoveNext
次の
End If
objRS.Close
objRS=Nothing を設定します
'www.dc9.cn http://www.devdao.com/ 07/11/28
終了関数
関数 Japan2Dc9CnHtml(ソース)
source=Replace(source,"ガ","ガ")
source=Replace(source,"ギ","ギ")
source=Replace(source,"ア","ア")
source=Replace(source,"ゲ","ゲ")
source=Replace(source,"ゴ","ゴ")
source=Replace(source,"ザ","ザ")
source=Replace(source,"ジ","ジ")
source=Replace(source,"ズ","ズ")
source=Replace(source,"ゼ","ゼ")
source=Replace(source,"ゾ","ゾ")
source=Replace(source,"ダ","ダ")
source=Replace(source,"ヂ","ヂ")
source=Replace(source,"ヅ","ヅ")
source=Replace(source,"デ","デ")
ソース=置換(ソース,"ド","ド")
source=Replace(source,"バ","バ")
source=Replace(source,"パ","パ")
source=Replace(source,"ビ","ビ")
source=Replace(source,"ピ","ピ")
source=Replace(source,"ブ","ブ")
source=Replace(source,"ブ","ブ")
source=Replace(source,"プ","プ")
source=Replace(source,"ベ","ベ")
source=Replace(source,"ペ","ペ")
source=Replace(source,"ボ","ボ")
source=Replace(source,"ポ","ポ")
source=Replace(source,"ヴ","ヴ")
Japan2Html=ソース
終了機能