自動清除替換ACCESS(MDB)數據庫的日文字符的ASP代碼

我們都知道ACCESS是ASP的親密夥伴。因爲兩種最簡單的東西碰在一起總能迸發出火花。

然而,當我們過濾不嚴格的時候經常出現日文字符,這個時候搜索之後就會出現日文溢出。

此時我們通常能想到的想法是找一個exe程序,把這個問題解決掉。我原來用C#寫過這樣一個類似的程序。

Google裏面應該能找到我以前寫的那個。就不說了。

後來某一天,我發現ASP就能實現。我當時真的覺得自己太屎了。

不過ASP的這種方法很不好。容易造成系統崩潰(如果數據庫大)。

所以只是寫在這裏。算是抛磚引玉。

'下面我解釋一下下:

Function TransferJapanDc9CnInDB()

On Error Resume Next

Err.Clear

Dim objRS,i

Set objRS=Server.CreateObject("ADODB.Recordset")

objRS.CursorType = adOpenKeyset

objRS.LockType = adLockReadOnly

objRS.ActiveConnection=objConn

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

objRS.Open()

If (Not objRS.bof) And (Not objRS.eof) Then

For i=1 to objRS.RecordCount

'遍曆,看看有沒有日文,如果有,就溢出了,隨便搜索一個東西就行了。搜什麽無所謂。因爲是遍曆ACCESS只要指針移動到日文就溢出。

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

If Err.Number=-2147217900 Then

'因爲是on err繼續 所以這裏找到溢出的錯誤代碼,這個是自己debug出來的,實際上不是從什麽地方找的。

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")&" ")

'這個就是把日文替換一下,思路是不是很巧妙。恩。不過數據庫龐大的化,反複溢出就會很出問題的。內存寶寶會哭的。

Err.Clear

End If

objRS.MoveNext

Next

End If

objRS.Close

Set objRS=Nothing

'www.dc9.cn http://www.devdao.com/ 07/11/28

End Function

Function Japan2Dc9CnHtml(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

End Function

關于windows 2003 iis 6.0 asp無法連接access數據庫的解決方法
關于windows 2K3 (2003) iis 6.0 asp 無法連接 access 數據庫的解決方法:我的主機上最近出現了這個奇怪的問題,asp代碼別的服務器上運行很正常,移到我的win2003下就連接access錯誤,但其它的asp代碼還都正常,什麽...查看完整版>>關于windows 2003 iis 6.0 asp無法連接access數據庫的解決方法
 
[原創]Access通用--自動替換數據庫中的字符串
自己可以修改myreplace函數,實現複雜的替換.呵呵,好象用處不大.主要是看看如何讀取access表和字段列表<%'####################################'替換數據庫內容 lamking 2005-8-22'http://www.lamking.com QQ:628...查看完整版>>[原創]Access通用--自動替換數據庫中的字符串
 
[原創]Access通用--自動替換數據庫中的字符串
自己可以修改myreplace函數,實現複雜的替換.呵呵,好象用處不大.主要是看看如何讀取access表和字段列表 <% '#################################### '替換數據庫內容 lamking 2005-8-22 'http://www.lamking.com QQ...查看完整版>> [原創]Access通用--自動替換數據庫中的字符串
 
用程序實現壓縮access(*.mdb)數據庫的方法.
下面的函數用來壓縮access數據庫 需要增加ComObj單元function CompactDatabase(AFileName,APassWord:string):boolean;//壓縮與修複數據庫,覆蓋源文件const SConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;...查看完整版>>用程序實現壓縮access(*.mdb)數據庫的方法.
 
ASP中各種數據庫的連接字符串
ASP中各種數據庫的連接字符串 ASP中各種數據庫的連接字符串 ODBC鏈接適合數據庫類型鏈接方式access"Driver={microsoft access driver(*.mdb)};dbq=*.mdb;uid=admin;pwd=pass;"dBase "Driver={microsoft dbas...查看完整版>>ASP中各種數據庫的連接字符串
 
asp與ACCESS數據庫的連接及基本操作
①數據庫連接的建立:Ⅰ、沒有密碼的數據< % set cn=server.createobject("adodb.connection") *建立connecton對象,定義了一個adodb數據庫連接組件cn.open"provider=microsoft.jet.oledb.4.0;data source="&s...查看完整版>>asp與ACCESS數據庫的連接及基本操作
 
ASP中各種數據庫的連接字符串
ODBC鏈接適合數據庫類型鏈接方式access"Driver={microsoft access driver(*.mdb)};dbq=*.mdb;uid=admin;pwd=pass;"dBase "Driver={microsoft dbase driver(*.dbf)};driverid=277;dbq=------------;"Oracle "Driver={...查看完整版>>ASP中各種數據庫的連接字符串
 
ASP連接數據庫的全能代碼
'解決了ACCESS數據庫路徑的問題!'采用DBType=0或DBType=1來區分AC庫還是MSSQL庫'具體采用AC庫時應注意的事項,請看程序說明Dim DBType,Conn,StrConnDBType=0 '0爲Access數據庫,1爲MSSQL數據庫 If(DBType=0)...查看完整版>>ASP連接數據庫的全能代碼
 
用ASP自動生成SQL數據庫的安裝源程序
因爲我裝的是MSDE,沒有發現查詢分析器,也沒辦法運行sql文件,我到處支找SQL的光盤也找不到,苦惱了好一陳子。只能在導出導入裏新建一個數據庫(呵呵,發現在ms.net裏居然可以編輯查看sql數據庫,雖然也不能運行sql,不...查看完整版>>用ASP自動生成SQL數據庫的安裝源程序
 
 
回到王朝網路移動版首頁