你搜索的是：
function ck()
{
if (document.form1.tb.value=="")
{
window.alert("请输入贴吧名称!");
return true;
}
else
{
document.form1.submit();
return true;
}
}
function xunz(n)
{
if (n==0)
{
document.form1.tb.value="";
return true;
}
if (n==1)
{
document.form1.tb.value="";
document.form1.tb.value="请输入贴吧名称";
return true;
}
if (n==2)
{
document.form1.tb.value="";
document.form1.tb.value="请输入要搜索贴子名称";
return true;
}
if (n==3)
{
document.form1.tb.value="";
document.form1.tb.value="请输入作者名称";
return true;
}
}
msgtitle=request.QueryString("msgtitle")
bti=request.QueryString("bti")
if msgtitle="" or bti="" then
response.Redirect "http://" & request.servervariables("server_name")
end if
username=session("username")
ql=session("ql")
if username="" then
username="匿名发表"
end if
qlstring=""
%>
登录 | 注册 | 帮助
进入贴吧
帖子搜索
按作者搜索
下面是关于 "" 的搜索结果...
点击
回复
标题
作者
最后回复
If Len(Trim(Request("page")))=0 Then '返回目标页码的判断
page=1
Else
page=CInt(Trim(Request("page")))
End If
set rs=Server.CreateObject("ADODB.RecordSet")
if bti=0 then
sql="select * from msg where msgtitle like '%"&msgtitle&"%' order by replytime desc "
end if
if bti=1 then
sql="select * from msg where author='"&msgtitle&"' order by replytime desc "
end if
rs.open sql,conn,1,1
rs.PageSize=20
if not rs.eof then '--------------
rs.AbsolutePage=page
for k=1 to rs.PageSize
if (k mod 2)=0 then
bg="td1"
else
bg="td2"
end if
%>
rs.movenext
if rs.EOF Then Exit For
next
end if
'--------------
%>
if page 1 then
Response.Write "首页 "
end if
tmppage = page - 1
if tmppage tmppage = 1
else
Response.Write"上一页"
end if
tmppage = page + 1
if tmppage >rs.PageCount then
tmppage = page
else
Response.Write " 下一页 "
end if
if Cstr(page) Cstr(rs.PageCount) and Cstr(rs.PageCount) 0 then
Response.Write "尾页"
end if
if Cstr(rs.PageCount) 0 then
Response.Write " 第" & page & "/"&rs.PageCount&"页"
end if
%>
