Nous savons tous qu'ACCESS est un partenaire proche d'ASP. Parce que deux des choses les plus simples créent toujours des étincelles lorsqu’elles se rencontrent.
Cependant, lorsque notre filtrage n'est pas strict, des caractères japonais apparaissent souvent. À ce moment-là, un débordement japonais se produira après la recherche.
À l’heure actuelle, l’idée à laquelle nous pouvons généralement penser est de trouver un programme exe pour résoudre ce problème. J'ai initialement écrit un programme similaire en C#.
Vous devriez pouvoir trouver celui que j'ai écrit auparavant sur Google. Je n’en dirai pas plus.
Puis un jour, j’ai découvert qu’ASP pouvait le faire. Je me sentais vraiment comme une merde à ce moment-là.
Cependant, cette méthode d’ASP est très mauvaise. Il est facile de provoquer un crash du système (si la base de données est volumineuse).
Alors j’écris juste ici. Cela peut être considéré comme un point de départ.
« Laissez-moi vous expliquer ci-dessous :
Fonction TransferJapanDc9CnInDB()
en cas d'erreur, reprise suivante
Err.Effacer
Dim objRS,je
Définir objRS=Server.CreateObject("ADODB.Recordset")
objRS.CursorType = adOpenKeyset
objRS.LockType = adLockReadOnly
objRS.ActiveConnection=objConn
objRS.Source="SELECT * FROM [blog_Comment]"
objRS.Open()
Si (Pas objRS.bof) Et (Pas objRS.eof) Alors
Pour i=1 à objRS.RecordCount
« Parcourez et voyez s'il y a du texte japonais. Si c'est le cas, il débordera. Recherchez simplement n'importe quoi. Peu importe ce que vous recherchez. Parce qu'il traverse ACCESS, tant que le pointeur se déplace vers le japonais, il débordera.
objConn.Execute("SELECT * FROM [blog_Comment] WHERE comm_ID="&objRS("comm_ID")&" AND [comm_Content] LIKE '%URL%'")
Si Err.Number=-2147217900 Alors
" Parce que l'erreur continue, le code d'erreur de débordement se trouve ici. Cela a été débogué par moi-même, et il n'a pas été trouvé quelque part.
objConn.Execute("UPDATE [blog_Comment] SET [comm_Content]='"&FilterSQL(Japan2Html(objRS("comm_Content")))&"',[comm_Author]='"&FilterSQL(Japan2Dc9CnHtml(objRS("comm_Author"))) &"' OÙ comm_ID="&objRS("comm_ID")&" ")
« C'est pour remplacer le texte japonais. L'idée n'est-elle pas très intelligente ? gentillesse. Cependant, si la base de données devient volumineuse, des débordements répétés entraîneront des problèmes. Les bébés de mémoire pleureront.
Err.Effacer
Fin si
objRS.MoveNext
Suivant
Fin Si
objRS.Close
Définir objRS=Rien
'www.dc9.cn http://www.devdao.com/ 07/11/28
Fonction de fin
Fonction Japan2Dc9CnHtml(source)
source=Remplacer(source,"ガ","ガ")
source=Remplacer(source,"ギ","ギ")
source=Remplacer(source,"ア","ア")
source=Remplacer(source,"ゲ","ゲ")
source=Remplacer(source,"ゴ","ゴ")
source=Remplacer(source,"ザ","ザ")
source=Remplacer(source,"ジ","ジ")
source=Remplacer(source,"ズ","ズ")
source=Remplacer(source,"ゼ","ゼ")
source=Remplacer(source,"ゾ","ゾ")
source=Remplacer(source,"ダ","ダ")
source=Remplacer(source,"ヂ","ヂ")
source=Remplacer(source,"ヅ","ヅ")
source=Remplacer(source,"デ","デ")
source=Remplacer(source,"ド","ド")
source=Remplacer(source,"バ","バ")
source=Remplacer(source,"パ", "パ")
source=Remplacer(source,"ビ","ビ")
source=Remplacer(source,"ピ","ピ")
source=Remplacer(source,"ブ","ブ")
source=Remplacer(source,"ブ","ブ")
source=Remplacer(source,"プ","プ")
source=Remplacer(source,"ベ","ベ")
source=Remplacer(source,"ペ","ペ")
source=Remplacer(source,"ボ","ボ")
source=Remplacer(source,"ポ","ポ")
source=Remplacer(source,"ヴ","ヴ")
Japon2Html=source
Fonction de fin