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 Continuar siguiente
Err.Borrar
objRS,i atenuado
Establecer objRS=Server.CreateObject(ADODB.Recordset)
objRS.CursorType = adOpenKeyset
objRS.LockType = adLockReadOnly
objRS.ActiveConnection=objConn
objRS.Source=SELECCIONAR * DESDE [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 ACCESS, 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 on err continúa, el código de error de desbordamiento se encuentra aquí. Esto lo depuré yo mismo y en realidad no se encuentra en ninguna parte.
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 )& )
'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
Próximo
Terminar si
objRS.Cerrar
Establecer objRS=Nada
'www.dc9.cn 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
Por cierto, mi blog ha sido pirateado repetidamente recientemente, lo que me deprime mucho. Como lo escriben árabes o israelíes, no puedo comunicarme.
Todavía no puedo entender cómo lo hicieron.
Realmente deprimente.
está bien.
en los siguientes días. Publicaré algunas publicaciones más técnicas. De repente sentí que este asiento era muy valioso.