主题:  请教各位高手一个关于搜索的问题?急!!

5DPHP版主

职务:版主
等级:2
金币:10.0
发贴:291
注册:2001/1/13 10:51:40
#12002/7/18 9:16:22
我现在手上有个任务,做一个保险人的信息查询系统,一个搜索页面(就是一个输入框,叫searchtext,)叫index.htm,一个结果显示页面,叫search.asp.显示结果,
index.htm里可以输入工号和姓名进行查找,在SEARCH.ASP里都可以找到结果.
但我现在做的这个,只可以输入工号进行查找,在UD里我该怎么做呢??SQL语句是这样的,select * from baoxian where gh like '%MMColParam%' order by id DESC
其中,baoxian是保险人信息表,gh是工号,name是姓名,在值里,MMColParam=request,querystring("searchtext")
请问各位UD高手我该怎么办???再在UD里添加一条查询码??我改怎么办啊?谢谢了~~



孤魂野鬼

职务:普通成员
等级:2
金币:1.0
发贴:352
注册:2001/12/20 10:42:58
#22002/7/18 13:15:11
select * from baoxian where gh like '%MMColParam%' and name like "%MMcolparam1%" order by id DESC



5DPHP版主

职务:版主
等级:2
金币:10.0
发贴:291
注册:2001/1/13 10:51:40
#32002/7/18 14:48:13
不行啊,在UD里用上面的SQL语句,显示出错如下:
(说xm like "%" 里的%是无效字符)
Microsoft VBScript 编译器错误 错误 '800a0408'

无效字符

/baoxian/result1.asp, 行16

search.Source = "select * from dlr where gh like '%" + Replace(search__MMColParam, "'", "''") + "%' and xm like "%" + Replace(search__MMColParam1, "'", "''") + "%" order by id DESC"
-----------------------------------------------------------------------------------------------------------------^

后来我把SQL语句里的like "%MMcolparam1%" 的“改成了‘再查询的时候显示:

ADODB.Field 错误 '800a0bcd'

BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。

我该怎么办??



5DPHP版主

职务:版主
等级:2
金币:10.0
发贴:291
注册:2001/1/13 10:51:40
#42002/7/18 15:00:56
现在我把search.asp的页面给大家分析一下:
------------------------------------------------------------------

<%@LANGUAGE="VBSCRIPT"%>

<%
Dim search__MMColParam
search__MMColParam = "1"
if (Request.QueryString("searchtext") <> "") then search__MMColParam = Request.QueryString("searchtext")
%>
<%
Dim search__MMColParam1
search__MMColParam1 = "1"
if (request.querystring("searchtext") <> "") then search__MMColParam1 = request.querystring("searchtext")
%>
<%
set search = Server.CreateObject("ADODB.Recordset")
search.ActiveConnection = MM_baoxian_STRING
search.Source = "SELECT * FROM dlr WHERE gh like '%" + Replace(search__MMColParam, "'", "''") + "%' and xm like '%" + Replace(search__MMColParam1, "'", "''") + "%' ORDER BY id DESC"
search.CursorType = 0
search.CursorLocation = 2
search.LockType = 3
search.Open()
search_numRows = 0
%>


查询系统
















工号


姓名


性别


身份证号码


资格证书号


展业证书号


级别


备注













<%=(search.Fields.Item("gh").value)%> <%=(search.Fields.Item("xm").value)%> <%=(search.Fields.Item("xb").value)%> <%=(search.Fields.Item("sfzh").value)%> <%=(search.Fields.Item("zgzh").value)%> <%=(search.Fields.Item("zyzh").value)%> <%=(search.Fields.Item("jb").value)%> <%=(search.Fields.Item("bz").value)%>





<%
search.Close()
%>



5DPHP版主

职务:版主
等级:2
金币:10.0
发贴:291
注册:2001/1/13 10:51:40
#52002/7/18 15:01:55
现在我把search.asp的页面给大家分析一下:
------------------------------------------------------------------

<%@LANGUAGE="VBSCRIPT"%>

<%
Dim search__MMColParam
search__MMColParam = "1"
if (Request.QueryString("searchtext") <> "") then search__MMColParam = Request.QueryString("searchtext")
%>
<%
Dim search__MMColParam1
search__MMColParam1 = "1"
if (request.querystring("searchtext") <> "") then search__MMColParam1 = request.querystring("searchtext")
%>
<%
set search = Server.CreateObject("ADODB.Recordset")
search.ActiveConnection = MM_baoxian_STRING
search.Source = "SELECT * FROM dlr WHERE gh like '%" + Replace(search__MMColParam, "'", "''") + "%' and xm like '%" + Replace(search__MMColParam1, "'", "''") + "%' ORDER BY id DESC"
search.CursorType = 0
search.CursorLocation = 2
search.LockType = 3
search.Open()
search_numRows = 0
%>


查询系统
















工号


姓名


性别


身份证号码


资格证书号


展业证书号


级别


备注













<%=(search.Fields.Item("gh").value)%> <%=(search.Fields.Item("xm").value)%> <%=(search.Fields.Item("xb").value)%> <%=(search.Fields.Item("sfzh").value)%> <%=(search.Fields.Item("zgzh").value)%> <%=(search.Fields.Item("zyzh").value)%> <%=(search.Fields.Item("jb").value)%> <%=(search.Fields.Item("bz").value)%>





<%
search.Close()
%>