做了1个留言板的主题搜索,遇到了1个问题
制作了1个留言板的主题搜索,当搜不到东西就出错(出错整个页面打不开提示:An error occurred on the server when processing the URL. Please contact the system administrator. If you are the system administrator please click here to find out more about this error.
)!搜得到东西就能正确显示出来,不知道错在哪?我把整页代码帖出来:
程序代码:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.> <html xmlns="http://www.> <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!--#include file="Connections/conngongsi.asp" --> <%response.Charset="utf-8"%> <% keyword=request.QueryString("keyword") '获取keyword参数和建立记录集 If (CStr(Request("MM_insert")) = "form1") Then if keyword=""then response.write " <script language='javascript'>" response.write "alert( '请输入内容后在查询! ');" response.write "history.go(-1);" response.write "</script> " response.end end if end if sql="select * from book where book_biaoti like '%"&keyword&"%' ORDER BY ID DESC" set rs1=server.CreateObject("adodb.recordset") rs1.open sql,MM_conngongsi_STRING,1,3 %> <% rs1.pagesize=5 '分页代码 if request.QueryString("page")<>"" then epage=cint(request.QueryString("page")) if epage<1 then epage=1 if epage>rs1.pagecount then epage=rs1.pagecount else epage=1 end if rs1.absolutepage=epage %> <% If (CStr(Request("yeshu")) = "form2") Then if request.QueryString("dpage")="" then '从表单dpage项获取要访问的页面 response.write " <script language='javascript'>" response.write "alert( '请输入要到达的页数! ');" response.write "history.go(-1);" response.write "</script> " response.end else dwg=request.QueryString("dpage") response.redirect "lyb.asp?keyword="&keyword&"&page="&dwg&"" end if end if %> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>留言簿</title> <style type="text/css"> @import url("book_biaoti.css"); body,td,th { font-size: 12px; } body { margin-top: 0px; background:url(tupian/bg.gif) } .size12 { font-size: 12px; } </style> <link href="book_biaoti.css" rel="stylesheet" type="text/css" /> </head> <body > <table width="800" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="192" colspan="7"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.,0,28,0" width="801" height="270"> <param name="movie" value="tupian/index.swf" /> <param name="quality" value="high" /> <param name="wmode" value="opaque" /> <embed src="tupian/index.swf" quality="high" wmode="opaque" pluginspage="http://www. type="application/x-shockwave-flash" width="801" height="270"></embed> </object></td> </tr> <tr align="center"> <td height="43" colspan="7" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#00ccFF"> <tr> <td width="12%" height="43" align="center"><a href="index.asp" target="_top"><strong>首页</strong></a></td> <td width="12%" align="center"><strong>关于尚维</strong></td> <td width="12%" align="center"><strong>服务项目</strong></td> <td width="12%" align="center"><strong>收费标准</strong></td> <td width="12%" align="center"><strong>网站建设</strong></td> <td width="12%" align="center"><a href="fjsc.asp" target="_top"><strong>分享你的资源</strong></a></td> <td width="12%" align="center"><a href="lyb.asp" target="_top"><strong>留言簿</strong></a></td> <td width="12%" align="center"><a href="lianxi.asp" target="_top"><strong>联系我们</strong></a></td> </tr> </table></td> </tr> <tr><td colspan="5"> </td> </tr> <tr> <td width="137" height="23"><strong>你的位置</strong>-- <a href="fbly.asp" target="_top">留言</a> 簿 </td> <form id="form1" name="form1" method="get" action=""><td width="51" align="right">主题查询:</td> <td width="205"> <label for="keyword"></label> <input name="keyword" type="text" id="keyword" maxlength="20" style="width:200px;"/></td> <td width="161"><input type="submit" name="submit" id="submit" value="查询" /> <input name="MM_insert" type="hidden" id="MM_insert" value="form1" /></td> </form> <td width="248" >现在的时间是<%=now()%><a href="admin_login.asp" target="_top">管理员登陆</a></td> </tr> <tr> <td colspan="6" valign="top"> <% for i=0 to rs1.pagesize-1 if rs1.eof or rs1.bof then exit for '显示记录集的内容 %> <table width="800" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="96" height="26" bgcolor="#66FFFF">留言标题:</td> <td width="607" bgcolor="#66FFFF"><%response.write rs1("book_biaoti")%> </td> <td width="97" bgcolor="#66FFFF">ID: <%response.write rs1("ID")%> </td> </tr> <tr> <td height="26">留言内容:</td> <td colspan="2"><%response.write rs1("book_neirong")%> </td> </tr> <tr> <td height="27">留言时间:</td> <td colspan="2"><%response.write rs1("book_shijian")%> </td> </tr> <tr> <td height="23">留言者IP:</td> <td colspan="2"><%response.write rs1("book_ip")%> </td> </tr> <tr> <td height="26" >管理员回复:</td> <td height="26" colspan="2" ><%response.write rs1("book_huifuneirong")%></td> </tr> </table> <% rs1.movenext() next %> <% If rs1.eof and rs1.bof Then %> <p align="center"> 目前没有任何留言</p> <% End If %> <table width="501" border="0" > <tr><td width="142" height="30"><strong>共有<%=rs1.recordcount%>个留言,第<%=epage%>/<%=rs1.pagecount%>页</strong></td><td width="130" > <strong> <% if epage=1 then '分页代码 response.write "首页" response.write "上一页" else response.write "<a href='lyb.asp?keyword="&keyword&"&page=1'>首页</a>" response.write "<a href='lyb.asp?keyword="&keyword&"&page="&epage-1&"'>前一页</a>" end if if epage=rs1.pagecount then response.write "下一页" response.write "末页" else response.write "<a href='lyb.asp?keyword="&keyword&"&page="&epage+1&"'>下一页</a>" response.write "<a href='lyb.asp?keyword="&keyword&"&page="&rs1.pagecount&"'>末页</a>" end if %> </strong></td> <%if keyword=""then%> <form id="form2" name="form2" method="get"><td width="35"><strong>跳转至</strong></td><td width="40"><input name="dpage" type="text" style="width:40px;" size="4" maxlength="4" onkeyup="value=value.replace(/[^\d]/g,'')" /></td><td width="13"><strong>页</strong></td><td width="115"> <input type="submit" value="确定"/> <input name="yeshu" type="hidden" id="yeshu" value="form2" /></td></form> <%end if%> </tr> </table> </td> </tr> <tr> <td height="35" colspan="7" bgcolor="#00ccFF" align="center">Copyringht © 2012-2112 尚维公司版权所有.All Rights Reserved</td> </tr> </table> </body> </html> <% rs1.Close() Set rs1 = Nothing %>