<%
Dim CP
Dim CP_numRows

Set CP = Server.CreateObject("ADODB.Recordset")
CP.ActiveConnection = MM_connms_STRING
CP.Source = "SELECT *  FROM MS_MainCatalog  WHERE mctl_name_cht like %" + Replace(CP__aa, "'", "''") + "% or mctl_name_eng like %" + Replace(CP__bb, "'", "''") + "%  ORDER BY mcatalog_id ASC"
CP.CursorType = 0
CP.CursorLocation = 2
CP.LockType = 1
CP.Open()

CP_numRows = 0
%>

运行就提示出错是     CP.Open()  这一行，  请问是哪里出了问题？

把错误信息贴出来看看

把错误信息贴出来看看

CP.Source = "SELECT *  FROM MS_MainCatalog  WHERE mctl_name_cht like %" + Replace(CP__aa, "'", "''") + "% or mctl_name_eng like %" + Replace(CP__bb, "'", "''") + "%  ORDER BY mcatalog_id ASC"
改成
CP.Source = "SELECT *  FROM MS_MainCatalog  WHERE mctl_name_cht like '%" + Replace(CP__aa, "'", "''") + "%' or mctl_name_eng like '%" + Replace(CP__bb, "'", "''") + "%'  ORDER BY mcatalog_id ASC"
试试

谢谢楼上的帮助，问题己解决！

原来是少了单引号，谢谢高手指点！