Todos sabemos que ACCESS es un socio cercano de ASP. Porque dos de las cosas más simples siempre crean chispas cuando se unen.
Sin embargo, cuando nuestro filtrado no es estricto, a menudo aparecen caracteres japoneses. En este momento, se producirá un desbordamiento del japonés después de la búsqueda.
En este momento, la idea que normalmente se nos ocurre es encontrar un programa exe para solucionar este problema. Originalmente escribí un programa similar en C#.
Deberías poder encontrar el que escribí antes en Google. No diré nada más.
Entonces, un día descubrí que ASP podía hacerlo. Realmente me sentí como una mierda en ese momento.
Sin embargo, este método de ASP es muy malo. Es fácil provocar una falla del sistema (si la base de datos es grande).
Así que simplemente escribo aquí. Puede considerarse como un punto de partida.
'Déjenme explicarlo a continuación:
Función TransferJapanDc9CnInDB()
en caso de error Reanudar siguiente
Err.Borrar
objRS,i atenuado
Establecer objRS=Server.CreateObject("ADODB.Recordset")
objRS.CursorType = adOpenKeyset
objRS.LockType = adLockReadOnly
objRS.ActiveConnection=objConn
objRS.Source="SELECCIONAR * DE [blog_Comment]"
objRS.Open()
Si (no objRS.bof) y (no objRS.eof) entonces
para i=1 a objRS.RecordCount
'Recorra y vea si hay algún texto en japonés. Si es así, se desbordará. Simplemente busque cualquier cosa. No importa lo que busques. Debido a que está atravesando ACCESO, siempre que el puntero se mueva hacia el japonés, se desbordará.
objConn.Execute("SELECCIONE * DE [blog_Comment] DONDE comm_ID="&objRS("comm_ID")&" Y [comm_Content] COMO '%URL%'")
Si Número de error = -2147217900 Entonces
'Debido a que el error continúa, el código de error de desbordamiento se encuentra aquí. Esto lo depuré yo mismo y en realidad no lo encontré en ninguna parte.
objConn.Execute("ACTUALIZAR [blog_Comment] SET [comm_Content]='"&FilterSQL(Japan2Html(objRS("comm_Content")))&"',[comm_Author]='"&FilterSQL(Japan2Dc9CnHtml(objRS("comm_Author"))) &"' DONDE comm_ID="&objRS("comm_ID")&" ")
'Esto es para reemplazar el texto japonés. ¿No es la idea muy inteligente? amabilidad. Sin embargo, si la base de datos se vuelve enorme, el desbordamiento repetido causará problemas. Los bebés con memoria llorarán.
Err.Borrar
Terminar si
objRS.MoveNext
Siguiente
Fin si
objRS.Cerrar
Establecer objRS=Nada
'www.dc9.cn http://www.devdao.com/ 11/07/28
Función final
Función Japan2Dc9CnHtml (fuente)
fuente=Reemplazar(fuente,"ガ","ガ")
fuente=Reemplazar(fuente,"ギ","ギ")
fuente=Reemplazar(fuente,"ア","ア")
fuente=Reemplazar(fuente,"ゲ","ゲ")
fuente=Reemplazar(fuente,"ゴ","ゴ")
fuente=Reemplazar(fuente,"ザ","ザ")
fuente=Reemplazar(fuente,"ジ","ジ")
fuente=Reemplazar(fuente,"ズ","ズ")
fuente=Reemplazar(fuente,"ゼ","ゼ")
fuente=Reemplazar(fuente,"ゾ","ゾ")
fuente=Reemplazar(fuente,"ダ","ダ")
fuente=Reemplazar(fuente,"ヂ","ヂ")
fuente=Reemplazar(fuente,"ヅ","ヅ")
fuente=Reemplazar(fuente,"デ","デ")
fuente=Reemplazar(fuente,"ド","ド")
fuente=Reemplazar(fuente,"バ","バ")
fuente=Reemplazar(fuente,"パ","パ")
fuente=Reemplazar(fuente,"ビ","ビ")
fuente=Reemplazar(fuente,"ピ","ピ")
fuente=Reemplazar(fuente,"ブ","ブ")
fuente=Reemplazar(fuente,"ブ","ブ")
fuente=Reemplazar(fuente,"プ","プ")
fuente=Reemplazar(fuente,"ベ","ベ")
fuente=Reemplazar(fuente,"ペ","ペ")
fuente=Reemplazar(fuente,"ボ","ボ")
fuente=Reemplazar(fuente,"ポ","ポ")
fuente=Reemplazar(fuente,"ヴ","ヴ")
Japón2Html=fuente
Función final