做个留言版遇到2个有关问题。请高手帮帮忙啊苦恼
日期：2014-05-17 浏览次数：20784 次
做个留言版遇到2个问题。。。请高手帮帮忙啊。苦恼
本帖最后由 zkjd52 于 2012-10-25 02:32:01 编辑 第一个问题：留言板有个查询标题的模块，当查询不到东西就出错。网页打不开。当能查到东西的就能正常显示
第二个问题：当我输入内容查询后。比如页面比较多。我在文本框输入要跳转到第几页后，参数就消失了(第二个表单无法获取第一个表单keyword参数)，等于显示全部记录了。。附全部代码：
本帖最后由 zkjd52 于 2012-10-25 02:32:01 编辑 第一个问题：留言板有个查询标题的模块，当查询不到东西就出错。网页打不开。当能查到东西的就能正常显示
第二个问题：当我输入内容查询后。比如页面比较多。我在文本框输入要跳转到第几页后，参数就消失了(第二个表单无法获取第一个表单keyword参数)，等于显示全部记录了。。附全部代码：
<%@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
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
