[求助]来帮帮我.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="inc/strchk.asp"-->
<%
ttt=rtrim(ltrim(request("ttt")))
search=request("search")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<link rel="stylesheet" type="text/css" href="css/my.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>查找结果</title>
</head>
<body topmargin=0>
<% if search="按标题查找" then
set rst=server.createobject("adodb.recordset")
sqlt="select * from mybook where title like '%"&strchk(ttt)&"%' order by time desc"
rst.open sqlt,conn,1,1
%>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="740" height="63" align="center"> <table width="410" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#00CCFF">
<tr>
<td width="410" align="center">共搜索到<%=rst.recordcount%>篇文章<font color=#FF0066>标题</font>符合,关键词:<font color=#FF0066><%=ttt%><a href="rword.asp">返回</a></font></td>
</tr>
</table>
<% end if
if search="按姓名查找" then
set rst=server.createobject("adodb.recordset")
sqlt="select * from mybook where name like '%"&strchk(ttt)&"%' order by time desc"
rst.open sqlt,conn,1,1
%>
<table width="410" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#00CCFF">
<tr>
<td width="494" align="center">共搜索到<%=rst.recordcount%>篇文章<font color=#FF0066>姓名</font>符合,关键词:<font color=#FF0066><%=ttt%><a href="rword.asp">返回</a></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="310" valign="top">
<%end if
if rst.eof and rst.bof then%>'他提示这行错误,
<table width="50%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="24" align="center"><%=("没有找到任何结果</p><a href='javascript:window.close()'>关闭</a> <a href='search.asp'>重新查找</a>")%></td>
</tr>
</table></br>
<%else%>
<table width="666" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="666" height="283" valign="top">
<%
page=request("page")
rst.pagesize=3
if page="" then
page=1
end if
rst.absolutepage=page
i=0
do while not rst.eof and i<rst.pagesize%>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#0099FF" class=k1>
<tr bgcolor="#FFFFFF" class=k1>
<td height="21" align="left" bgcolor="#EDF3FF">作者:
<%if rst("name")<>"" then%>
<%=rst("name")%>
<%else
response.write("匿名")
end if%>
</td>
<td height="21" align="left" bgcolor="#EDF3FF"><img src="image/qq.gif" width="16" height="16" alt="<%=rst("qq")%>"> <a href="mailt<%=rst("email")%>"><img src="image/mail.gif" width="16" height="16" border=0> </a><a href=<%=rst("homepage")%>><img src="image/home.gif" width="16" height="16" border=0></a> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="207" height="148" align="left" valign="top" bgcolor="#EDF3FF"> <%if rst("sex")="male" then%>
<img src="sex/boy.gif" width="23" height="21">
<%else%>
<img src="sex/girl.gif">
<%end if%><br> </br>
<br><img src="image/<%=rst("face")%>"><%=rst("time")%></td>
<td width="481" align="left" valign="top" bgcolor="#EDF3FF" style="table-layout:fixed;word-break:break-all"> </br>
标题:<strong><font color=red><%=rst("title")%></font></strong>
<hr align="left" width=100 size=1px noshade>
</br>
<img src="fpic/<%=rst("fpic")%>"><%=cpic(rst("word"))%></td>
</tr>
</table>
<%i=i+1
rst.movenext
loop
%>
<table width="531" border="0" align="center" cellpadding="0" cellspacing="1">
<tr valign="middle">
<td width="440" height="36" valign="top"><p>共<%=rst.pagecount%>页，共有<%=rst.recordcount%>条，你当前在第<%=page%>页，<%=page%>/<%=rst.pagecount%>
<%if page>1 then%>
<a href=searchchk.asp?page=<%=1%> class="v1">[首页]</a>
<%else%>
[首页]
<%end if%>
<%if page>1 then%>
<a href=searchchk.asp?page=<%=page-1%> class="v1">[上一页]</a>
<%else%>
[上一页]
<%end if%>
<% if not rst.eof then%>
<a href=searchchk.asp?page=<%=page+1%> class="v1">[下一页]</a>
<%else%>
[下一页]
<%end if%>
<% if not rst.eof then%>
<a href=searchchk.asp?page=<%=rst.pagecount%> class="v1">[尾页]</a>
<%else%>
[尾页]
<%end if%>
</td>
<td width="88" valign="middle"><form name="form1" method="post" action="searchchk.asp">
<select name="page" size="1">
<% for i=1 to rst.pagecount%>
<option value="<%=i%>" <% if i=page then%>selected<%end if%>><%=i%></option>
<%next%>
</select>
<input name="Submit" type="submit" class="k1" value="跳转">
</form></td>
</tr>
</table></td>
</tr>
</table>
<%end if
rst.close
set rst=nothing
conn.close
set conn=nothing
%>
</td>
</tr>
</table>
</body>
</html>
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
/searchchk.asp, 第 44 行
不知道为什么查询的结果不转到下一页,只要一转到下一页就错了.
