ASP代码实现自动清除替换ACCESS(MDB)数据库的日文字符的_ASP教程-查字典教程网
ASP代码实现自动清除替换ACCESS(MDB)数据库的日文字符的
ASP代码实现自动清除替换ACCESS(MDB)数据库的日文字符的
发布时间:2016-12-29 来源:查字典编辑
摘要:此时我们通常能想到的想法是找一个exe程序,把这个问题解决掉。我原来用C#写过这样一个类似的程序。Google里面应该能找到我以前写的那个。...

此时我们通常能想到的想法是找一个exe程序,把这个问题解决掉。我原来用C#写过这样一个类似的程序。

Google里面应该能找到我以前写的那个。就不说了。

后来某一天,我发现ASP就能实现。我当时真的觉得自己太屎了。

不过ASP的这种方法很不好。容易造成系统崩溃(如果数据库大)。

所以只是写在这里。算是抛砖引玉。

'下面我解释一下下:

FunctionTransferJapanDc9CnInDB()

OnErrorResumeNext

Err.Clear

DimobjRS,i

SetobjRS=Server.CreateObject("ADODB.Recordset")

objRS.CursorType=adOpenKeyset

objRS.LockType=adLockReadOnly

objRS.ActiveConnection=objConn

objRS.Source="SELECT*FROM[blog_Comment]"

objRS.Open()

If(NotobjRS.bof)And(NotobjRS.eof)Then

Fori=1toobjRS.RecordCount

'遍历,看看有没有日文,如果有,就溢出了,随便搜索一个东西就行了。搜什么无所谓。因为是遍历ACCESS只要指针移动到日文就溢出。

objConn.Execute("SELECT*FROM[blog_Comment]WHEREcomm_ID="&objRS("comm_ID")&"AND[comm_Content]LIKE'%URL%'")

IfErr.Number=-2147217900Then

'因为是onerr继续所以这里找到溢出的错误代码,这个是自己debug出来的,实际上不是从什么地方找的。

objConn.Execute("UPDATE[blog_Comment]SET[comm_Content]='"&FilterSQL(Japan2Html(objRS("comm_Content")))&"',[comm_Author]='"&FilterSQL(Japan2Dc9CnHtml(objRS("comm_Author")))&"'WHEREcomm_ID="&objRS("comm_ID")&"")

'这个就是把日文替换一下,思路是不是很巧妙。恩。不过数据库庞大的化,反复溢出就会很出问题的。内存宝宝会哭的。

Err.Clear

EndIf

objRS.MoveNext

Next

EndIf

objRS.Close

SetobjRS=Nothing

'www.dc9.cn07/11/28

EndFunction

FunctionJapan2Dc9CnHtml(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,"デ","デ")

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=source

EndFunction

顺便说一下,最近我的blog反复被hack,搞得我很郁闷,因为是阿拉伯人或者是以色列人干的,所以没法沟通。

我还找不出来他们是怎么干的。

真的很郁闷。

好了。

接下来的日子里。我将再发布一些技术性的文章。突然感到这个位子很宝贵的说。

相关阅读
推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  • 最新ASP教程学习
    热门ASP教程学习
    编程开发子分类