关于解决日文字符导致内存溢出的笨办法

[paradjanov]

笨是笨了点，不过还挺有用，找出来以后随便你怎么处理了，删除替换或者编码

<!--#include file="conn.asp"-->

<%
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from news order by id desc"
rs.Open sql,conn,1,1
%>
<%

while not rs.eof
str=rs("content")

Juncode=replace(str,"ゴ","□□□□□□□□□□□□□□□□□□□□□□□□")
Juncode=replace(Juncode,"ガ","□□□□□□□□□□□□□□□□□□□□□□□□")
Juncode=replace(Juncode,"ギ","□□□□□□□□□□□□□□□□□□□□□□□□")
Juncode=replace(Juncode,"グ","□□□□□□□□□□□□□□□□□□□□□□□□")
Juncode=replace(Juncode,"ゲ","□□□□□□□□□□□□□□□□□□□□□□□□")
Juncode=replace(Juncode,"ザ","□□□□□□□□□□□□□□□□□□□□□□□□")
Juncode=replace(Juncode,"ジ","□□□□□□□□□□□□□□□□□□□□□□□□")
Juncode=replace(Juncode,"ズ","□□□□□□□□□□□□□□□□□□□□□□□□")
Juncode=replace(Juncode,"ヅ","□□□□□□□□□□□□□□□□□□□□□□□□")
Juncode=replace(Juncode,"デ","□□□□□□□□□□□□□□□□□□□□□□□□")
Juncode=replace(Juncode,"ド","□□□□□□□□□□□□□□□□□□□□□□□□")
Juncode=replace(Juncode,"ポ","□□□□□□□□□□□□□□□□□□□□□□□□")
Juncode=replace(Juncode,"ベ","□□□□□□□□□□□□□□□□□□□□□□□□")
Juncode=replace(Juncode,"プ","□□□□□□□□□□□□□□□□□□□□□□□□")
Juncode=replace(Juncode,"ビ","□□□□□□□□□□□□□□□□□□□□□□□□")
Juncode=replace(Juncode,"パ","□□□□□□□□□□□□□□□□□□□□□□□□")
Juncode=replace(Juncode,"ヴ","□□□□□□□□□□□□□□□□□□□□□□□□")
Juncode=replace(Juncode,"ボ","□□□□□□□□□□□□□□□□□□□□□□□□")
Juncode=replace(Juncode,"ペ","□□□□□□□□□□□□□□□□□□□□□□□□")
Juncode=replace(Juncode,"ブ","□□□□□□□□□□□□□□□□□□□□□□□□")
Juncode=replace(Juncode,"ピ","□□□□□□□□□□□□□□□□□□□□□□□□")
Juncode=replace(Juncode,"バ","□□□□□□□□□□□□□□□□□□□□□□□□")
Juncode=replace(Juncode,"ヂ","□□□□□□□□□□□□□□□□□□□□□□□□")
Juncode=replace(Juncode,"ダ","□□□□□□□□□□□□□□□□□□□□□□□□")
Juncode=replace(Juncode,"ゾ","□□□□□□□□□□□□□□□□□□□□□□□□")
Juncode=replace(Juncode,"ゼ","□□□□□□□□□□□□□□□□□□□□□□□□")

if len(Juncode)<>len(str) then
response.write rs("id")
response.end
end if
rs.movenext
wend

rs.close
set rs=nothing
conn.close
set conn=nothing%>