深圳网站建设技术博客

网上的那些方法好麻烦,什么编码再解码的

其它用一句代码就可以轻松解决,但感觉效率没有like那么高.

where InStr(1,LCase(UE_Title),LCase('"&Grekey&"'),0)<>0

如果你也遇到同样的问题,不防这样处理试试吧..

以下代码也贴出来，不管用

'***********************************************************************

'日文读写处理

'***********************************************************************

'rs("TopicStr")=Jncode(TopicStr,true)  'encode 保存到数据库的资料

'DisplayStr=Jncode(rs("TopicStr"),false) 'uncode        '显示到页面的标题

Function Jncode(byVal iStr,codeType)  '日文读写处理

dim codyType

        if isnull(iStr) or isEmpty(iStr) or iStr="" then

                Jncode="" : Exit function

        end if

        dim F,i,E

                E=array("Jn0;","Jn1;","Jn2;","Jn3;","Jn4;","Jn5;","Jn6;",_

                                "Jn7;","Jn8;","Jn9;","Jn10;","Jn11;","Jn12;","Jn13;",_

                                "Jn14;","Jn15;","Jn16;","Jn17;","Jn18;","Jn19;","Jn20;",_

                                "Jn21;","Jn22;","Jn23;","Jn24;","Jn25;")

                F=array(chr(-23116),chr(-23124),chr(-23122),chr(-23120),_

                                chr(-23118),chr(-23114),chr(-23112),chr(-23110),_

                                chr(-23099),chr(-23097),chr(-23095),chr(-23075),_

                                chr(-23079),chr(-23081),chr(-23085),chr(-23087),_

                                chr(-23052),chr(-23076),chr(-23078),chr(-23082),_

                                chr(-23084),chr(-23088),chr(-23102),chr(-23104),_

                                chr(-23106),chr(-23108))

        if codyType then

                 for i=0 to 25 

iStr=replace(iStr,F(i),E(i)) 

next

        else

                 for i=0 to 25 

iStr=replace(iStr,E(i),F(i)) 

next

        end if

        Jncode=iStr

End Function