高手帮忙解决--类型不匹配

我是新手

请高手帮帮忙

 

 

Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配

/search/index.asp，行 17

 

 

 

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
option explicit
dim conn,connstr
Set conn = Server.CreateObject("ADODB.Connection")
connstr ="provider=SQLOLEDB.1;DataSource=localhost;UID=sa;PWD=Wangxiaofeng052910;Database=mis_3q"
conn.Open connstr

' connstr="DBQ="+server.mappath("record.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
' set conn=server.CreateObject("adodb.connection")
' conn.open connstr

dim n,rs,page,keyword,keywords,RecordCount,pageCount,pos,i,sql_where,keyword_sousuo
n=50
page=Request("page")
keyword=trim(request("keyword"))
sql_where=keyword_sousuo("id,childname,gx1,name1,phone1,gx2,name2,phone2,source,lx,cc,",keyword)
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from khzl where "&sql_where&" order by id desc",conn,1,1
if page=0 then
page=1
end if
RecordCount = 0 
do while not rs.Eof
RecordCount = RecordCount +1
rs.MoveNext 
loop
if not RecordCount=0 then
rs.MoveFirst
end if
pageCount=RecordCount/n
pageCount=int(pageCount)
if (RecordCount mod n)>0 then
PageCount=PageCount +1
end if 
%>
<style type="text/css">
<!--
.STYLE3 {color: #666666}
-->
</style>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form id="form1" name="form1" method="post" action="./?"><tr><td align="center"><input name="keyword" type="text" id="keyword" value="<%=keyword%>" size="30" />
&nbsp; <input type="submit" name="Submit" value="搜索" />
<span class="STYLE3">(关键词之间用空格分开) </span></td>
 
</tr></form>
<tr>
<td height="5"></td> 
</table>

<table width="600" border="1" align="center" cellpadding="4">
<tr align="center"> 
<td width="131">标题</td>
<td width="131">动作</td>
<td width="131">用户名</td>
<td width="132">时间</td>
<td width="132">时间</td>
<td width="132">时间</td>
<td width="132">时间</td>
<td width="132">时间</td>
<td width="132">时间</td>
<td width="132">时间</td>
<td width="132">时间</td>  
</tr>
<%pos=0
do while pos<(page-1)*n 
pos=pos+1 
rs.moveNext 
loop
i=0
while not rs.eof and i<n
i=i+1%>
<tr align="center"> 
<td><%=keyword_tag(rs("id"),keyword)%></td>
<td><%=keyword_tag(rs("childname"),keyword)%></td>
<td><%=keyword_tag(rs("gx1"),keyword)%></td>
<td><%=keyword_tag(rs("name1"),keyword)%></td>
<td><%=keyword_tag(rs("phone1"),keyword)%></td>
<td><%=keyword_tag(rs("gx2"),keyword)%></td>
<td><%=keyword_tag(rs("name2"),keyword)%></td>
<td><%=keyword_tag(rs("phone2"),keyword)%></td>
<td><%=keyword_tag(rs("source"),keyword)%></td>
<td><%=keyword_tag(rs("lx"),keyword)%></td>
<td><%=keyword_tag(rs("cc"),keyword)%></td>   
</tr>
 
<%rs.movenext
wend
rs.close
set rs=nothing
conn.close
set conn=nothing
 
'==================================================
'函数名：keyword_sousuo
'作 用：生成sql查询条件
'参 数：table_field ------ 表的字段名（之间用逗号分开）
' keyword ------ 搜索关键词（之间用空格分开）
'返 回：sql查询条件
'==================================================
function keyword_sousuo(byval table_field,byval keyword)
dim str01,str02,keywords,table_fields,i,j
    
  table_fields=split(trim(table_field),",")
  keywords=split(trim(keyword),",")
  
  if table_field<>"" then
   str01="("&table_fields(0)&" like '%"&keyword&"%'"
   for j=0 to ubound(table_fields)
   str01=str01&" or "&table_fields(j)&" like '%"&keyword&"%'"
   next
   str01=str01&")"
  else
   response.Write("<script>alert('参数错误（不能为空）！')</script>")
   response.End()
  end if

'全角－－》半角　空格
keyword=replace(keyword,"　"," ")
' while InStr(keyword," ")>0
' keyword=replace(keyword," "," ")
'wend
keywords=split(keyword," ")
if ubound(keywords)>0 then
for i=0 to ubound(keywords)
   str02=str02&"("&table_fields(0)&" like '%"&keywords(i)&"%'"
   for j=1 to ubound(table_fields)
   str02=str02&" or "&table_fields(j)&" like '%"&keywords(i)&"%'"
   next
   str02=str02&")"
next
str02="("&replace(str02,")(",")and(")&")"
keyword_sousuo="(" & str01 & "or" & str02 & ")"
else
keyword_sousuo=str01
end if
end function
'==================================================
'函数名：keyword_tag
'作 用：将字符串里的关键词标记为红色
'参 数：str ------ 字符串
' keyword ------ 标记关键词（之间用空格分开）
'返 回：字符串（html格式）
'==================================================
function keyword_tag(byval str,byval keyword)
dim keywords,str01,str02,i
   '全角－－》半角　空格
keyword=replace(keyword,"　"," ")
'while InStr(keyword," ")>0
' keyword=replace(keyword," "," ")
'wend
str01=replace(str,keyword,"<font color=""#ff0000"">"&keyword&"</font>") 
   keywords=split(keyword," ")
if ubound(keywords)>0 then
   str02=str
for i=0 to ubound(keywords)
str02=replace(str02,keywords(i),"<font color=""#ff0000"">"&keywords(i)&"</font>") 
next
   keyword_tag=str02
else
keyword_tag=str01
end if
end function
dim y
%>
<tr align="center"> 
<td colspan="4">总共有<%=RecordCount%>条记录&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp; 当前第<font color="#FF0000"><%=page%></font>/<%=pageCount%>页      
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 每页<%=n%>条记录&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 转到： 
<SELECT name="select" onchange=window.open(this.options[selectedIndex].value,'_self') >
<%y=1
         do while y<pagecount+1%>
<OPTION value=?page=<%=y%>&keyword=<%=server.URLEncode(keyword)%> <%if cstr(page)=cstr(y) then response.Write(" selected") end if%> >第<%=y%>页</OPTION>
<%y=y+1 
loop%>
</SELECT></td>
</tr>
</table>