Мы все знаем, что ACCESS является близким партнером ASP. Потому что две самые простые вещи, когда встречаются вместе, всегда порождают искры.
Однако, если наша фильтрация не является строгой, часто появляются японские символы. В это время после поиска происходит переполнение японского языка.
В настоящее время мы обычно можем подумать о том, чтобы найти 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="ВЫБРАТЬ * ИЗ [blog_Comment]"
objRS.Open()
Если (Не objRS.bof) И (Не objRS.eof) Тогда
Для i=1 в objRS.RecordCount
«Пройдите и посмотрите, есть ли текст на японском языке. Если да, то просто найдите что-нибудь. Неважно, что вы ищете. Поскольку он пересекает ACCESS, пока указатель перемещается на японский язык, он будет переполняться.
objConn.Execute("SELECT * FROM [blog_Comment] WHERE comm_ID="&objRS("comm_ID")&" И [comm_Content] LIKE '%URL%'")
Если Номер ошибки=-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
Следующий
конец Если
objRS.Close
Установить objRS=Ничего
'www.dc9.cn http://www.devdao.com/ 11.07.28
Конечная функция
Функция Japan2Dc9CnHtml (источник)
source=Replace(source,"ガ","ガ")
source=Replace(source,"ギ","ギ")
source=Replace(source,"ア","ア")
source=Replace(источник,"ゲ","ゲ")
source=Replace(source,"ゴ","ゴ")
source=Replace(source,"ザ","ザ")
source=Replace(source,"ジ","ジ")
source=Заменить(источник,"ズ","ズ")
source=Replace(source,"ゼ","ゼ")
source=Replace(source,"ゾ","ゾ")
source=Replace(source,"ダ","ダ")
source=Replace(источник,"ヂ","ヂ")
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=источник
Конечная функция