下面是行29,这是个处理搜索的页面
rs.open "select TOP 30 id,title,btime from hxyart where title LIKE '%"&keyword&"%' OR content LIKE '%"&keyword&"%'",conn,1,1
不知道怎么解决。。。
...全文
948打赏收藏
内存溢出问题,高手请进。。。
Microsoft JET Database Engine 错误 '80040e14' 内存溢出 /search.asp,行29 下面是行29,这是个处理搜索的页面 rs.open "select TOP 30 id,title,btime from hxyart where title LIKE '%"&keyword&"%' OR content LIKE '%"&keyword&"%'",conn,1,1 不知道怎么解决。。。
Function JPEncode(byVal Str)
If IsNull(Str) OR Str="" Then
JPCode=""
Exit Function
Else
Dim F,I,E
E="□"
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))
For I=0 To UBound(F)
Str=Replace(Str,F(I),E)
Next
JPEncode=Str
End If
End Function