"
Response.write " 您好，页码请您填写数字！"
Response.write "请按此返回..."
Response.end
end if
end if
%>
<%
if request("mtype") <> "" then
mtype = request("mtype")
session("mtype") = request("mtype")
end if
if session("mtype") = "" then
response.redirect "index.asp"
response.end
else
mtype = session("mtype")
end if
set rs=server.createobject("adodb.recordset")
sql="select * from topboy_message where title like '%"&request("bname")&"%' and mtype = "& mtype &" order by id DESC"
'response.write sql
'response.end
B1=Request("B1")
rs.open sql,conn,adOpenkeyset,adlockoptimistic,adcmdtext
if rs.eof and rs.bof then
response.write"
"
Response.write "未查询到任何相关信息！"
Response.write "*请按此返回..."
Response.write " 或 "
Response.write "*请按此关闭..."
Response.end
end if
set id=rs("id")
set title=rs("title")
set mdate=rs("mdate")
RS.pagesize=50
RS.AbsolutePage = 1
dim page
if request("browsdopage") <> "" then
if cint(request("browsdopage")) > RS.pagecount then
page = RS.pagecount
else
page = request("browsdopage")
end if
else
page = request("page")
end if
if page = 0 then
RS.AbsolutePage = 1
page = 1
else
RS.AbsolutePage = page
end if
rowcount = RS.pagesize
%>
<%
If Not RS.Eof Then
%>
|
|