<%
if Request.QueryString("searchname")<>null or Request.QueryString("searchname")<>"" then
searchname=Request.QueryString("searchname")
end if
'response.write searchname
sql="SELECT * FROM gbook_tbl "
if searchname<>"" then
if searchname<>"reset" then
sql=sql & " where mess_title LIKE "
sql=sql & "'%"
sql=sql & searchname
sql=sql & "%'"
sql=sql & " or "
sql=sql & " mess_auther LIKE "
sql=sql & "'%"
sql=sql & searchname
sql=sql & "%'"
sql=sql & " or "
sql=sql & " mess_comment LIKE "
sql=sql & "'%"
sql=sql & searchname
sql=sql & "%'"
else
searchname=null
end if
sql = sql & " order by id_no DESC"
else
sql = sql & " where mess_reno=0 order by id_no DESC"
end if
'Response.Write sql
%>
<%
dim sql
dim rs
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write " 还 没 有 任 何 相 关 留 言 "
else
totalPut=rs.recordcount
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showpage totalput,MaxPerPage,"default.asp"
showContent
showpage totalput,MaxPerPage,"default.asp"
else
if (currentPage-1)*MaxPerPage
<% if searchname<>null or searchname<>"" then
Response.write("搜索关键字" & searchname & "的结果如下：")
end if
%>
| 编号 |
主题 |
回应 |
点击 |
作者 |
日期 |
<% do while not rs.eof %>
|
<%=rs("id_no")%>
|
"><%=rs("mess_title")%>
|
<%=rs("mess_re")%> |
<%=rs("mess_read")%>
|
<%=rs("mess_auther")%>
|
<%=rs("mess_date")%> <%=rs("mess_time")%>
|
| |
<% =rs("mess_comment") %>
|
<% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
<%
end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write ""
end function
%>
|
