ASP在A(yíng)CCESS中模糊查詢(xún)"內存溢出"的解決方

今天在日常維護一個(gè)網(wǎng)站時(shí)，發(fā)現該網(wǎng)站的留言程序沒(méi)有經(jīng)過(guò)嚴格的驗證過(guò)濾，導致了將近十萬(wàn)條垃圾數據。而其中又不乏重要信息，需要清理數據，以及增加更為嚴格的驗證措施。

而通過(guò)在數據庫中直接刪除又不太科學(xué)，會(huì )誤刪很多重要信息。

通過(guò) 模糊查詢(xún)語(yǔ)句：
代碼如下:
select * from Feedback where Comments like '%http%'

結果:“內存溢出”

經(jīng)過(guò)不斷的搜索，找出了問(wèn)題的主要原因：

asp 中用 LIKE 關(guān)鍵字查詢(xún)日文符號就會(huì )出錯，比如說(shuō)Chr(-23075)，提示內存溢出。
如果數據表中的數據包含日文或者一些特殊非簡(jiǎn)體漢字符號，也會(huì )出現內存溢出的錯誤。

而網(wǎng)上說(shuō)，上述問(wèn)題已經(jīng)得到微軟動(dòng)力營(yíng)的微軟工程師確認，為產(chǎn)品的 BUG，無(wú)法解決。唯一的辦法就是將整個(gè)數據庫中的數據編碼為ANSI 文本格式，然后保存。顯示的時(shí)候再DECODE。

無(wú)解，只有按上面所說(shuō)，進(jìn)行字段轉換保存到另外一個(gè)新字段中，然后再進(jìn)行清理操作。面對這個(gè)超標數據真是困難。

EncodeString 函數進(jìn)行字符轉義

代碼如下:
Function EncodeString(strWords)
    Dim i As Long
    Dim strEncodeWords
    For i = 1 To Len(strWords)
        strEncodeWords = strEncodeWords & CStr(Asc(Mid(strWords, i, 1))) & ","
    Next

    EncodeString = strEncodeWords
End Function

這樣經(jīng)過(guò)轉義后，在模糊搜索時(shí)，將關(guān)鍵字進(jìn)行轉義一下

代碼如下:
delete * from Feedback where Comments_new like '%&EncodeString("http")&%'