 |
"
Response.write " 您好，页码请您填写数字！"
Response.write "请按此返回..."
Response.end
end if
end if
result=Instr(1,request.ServerVariables("http_referer"),request.servervariables("http_host"),1)
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from topboy_message where mtype like '%"&request("mtype")&"%' and title like '%"&request("bname")&"%' order by id DESC"
B1=Request("B1")
rs.open sql,conn,adOpenkeyset,adlockoptimistic,adcmdtext
set rst=server.createobject("adodb.recordset")
sqltext="select * from topboy_type"
rst.open sqltext,conn,adOpenkeyset,adlockoptimistic,adcmdtext
If request("imagedel.x") = "" Then
if rs.eof and rs.bof then
response.write"
"
Response.write "没有任何相关信息！"
Response.write "*请按此返回..."
Response.end
end if
set id=rs("id")
set mtype=rs("mtype")
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
%>
|
|
|