resultsearch.asp

3000首FLASH源程序

<%PageName="resultsearch.asp"%>
<!--#include file="function.asp"-->
<%
keyword=trim(request("keyword"))
keyword=replace(keyword,"'","''")
if keyword="" then
	errmsg="<li>查找关键字不能为空</li>"
	call error()
	response.end
end if
action=request.form("type")
if action="" then 
	errmsg="<li>清选择搜索类型</li>"
	call error()
	response.end
elseif action="pictime" then
  	if request.form("timea1")="" or request.form("timeb1")="" then 
		errmsg="<li>请填写时间(xxxx年)</li>"
		call error()
		response.end
	else
		timea1=request("timea1")
		timeb1=request("timeb1")
	end if
end if
%>
<!--#include file="top.asp"-->
<table width="770" align="center" cellspacing="1" bgcolor="<%=Tablebackcolor%>" cellpadding="2">
  <tr>  
    <td height=20 bgcolor="<%=Tabletitlecolor%>">□□□您输入的关键字：<font color=red><%=keyword%></font> 
    </td>
  </tr>
       <tr> 
        <td bgcolor="<%=Tablebodycolor%>"> 
<%
select case action
	case "picno"
		sql="select pic.id,pic.title,pic.classid,pic.authorid,pic.content,author.author from pic,author where pic.no like '%"& keyword &"%' and pic.authorid=author.authorid order by pic.id desc"
	case "pictitle"
		sql="select pic.id,pic.title,pic.classid,pic.authorid,pic.content,author.author from pic,author where pic.title like '%"& keyword &"%' and pic.authorid=author.authorid order by pic.id desc"
	case "picauthor"
		sql="select pic.id,pic.title,pic.classid,pic.authorid,pic.content,author.author from pic,author where author.author like '%"& keyword &"%' and pic.authorid=author.authorid order by pic.id desc"
	case "piccontent"
		sql="select pic.id,pic.title,pic.classid,pic.authorid,pic.content,author.author from pic,author where pic.content like '%"& keyword &"%' and pic.authorid=author.authorid order by pic.id desc"
	case "pictime"
		sql="select pic.id,pic.title,pic.classid,pic.authorid,pic.content,author.author from pic,author where pic.title like '%"& keyword &"%' and creattime >="&timea1&" and creattime<="&timeb1&" and pic.authorid=author.authorid order by pic.id desc"
end select
rs.open sql,conn,1,1
if not isempty(request("page")) then
	currentPage=cint(request("page"))
else
	currentPage=1
end if
if rs.eof and rs.bof then
response.write "<p align='center'> 未找到符合你条件的<font color=#ff0000>"&keyword&"</font>任何信息</p>"
else
	totalPut=rs.recordcount
	PageUrl="resultsearch.asp"
	if currentpage<1 then currentpage=1
	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,PageUrl
		showContent
		showpage totalput,MaxPerPage,PageUrl
	else
		if (currentPage-1)*MaxPerPage<totalPut then
			rs.move  (currentPage-1)*MaxPerPage
			dim bookmark
			bookmark=rs.bookmark
			showpage totalput,MaxPerPage,PageUrl
			showContent
			showpage totalput,MaxPerPage,PageUrl
		else
			currentPage=1
			showpage totalput,MaxPerPage,PageUrl
			showContent
			showpage totalput,MaxPerPage,PageUrl
		end if
	end if
	rs.close
end if

sub showContent 
i=0 
if instr(action,"pic")>0 then
action="pic"
end if
do while not rs.eof
        response.write  i+1&".<a href="&action&"list.asp?id="&rs("id")&"&classid="&rs("classid")&" target=_blank>"&_
						replace(rs("title"),""&keyword&"","<font color=red>"&keyword&"</font>")&"</a>　　　　　　－－－作者："&_
						"<a href=authorlist.asp?id="&rs("authorid")&" target=_blank>"&replace(rs("author"),""&keyword&"","<font color=red>"&keyword&"</font>")&_
						"</a><blockquote>"&replace(left(rs("content"),200),""&keyword&"","<font color=red>"&keyword&"</font>")&"......</blockquote>"
	 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 "<div align=right><form method=Post action="&filename&"?keyword="&keyword&"&action="&action&">"&_
				"共找到<b>"&totalnumber&"</b>项记录" 
if CurrentPage<2 then
response.write "&nbsp;首页 上一页&nbsp;"
else
response.write "&nbsp<a href="&filename&"?page=1&keyword="&keyword&"&action="&action&">首页</a>&nbsp;<a href="&filename&"?page="&CurrentPage-1&"&keyword="&keyword&"&action="&action&">上一页</a>&nbsp;" 
end if
if n-currentpage<1 then
response.write "下一页 末页 "
else
response.write "<a href="&filename&"?page="&CurrentPage+1&"&keyword="&keyword&"&action="&action&">下一页</a>&nbsp;"&_
                "<a href="&filename&"?page="&n&"&keyword="&keyword&"&action="&action&">末页</a>" 
end if
response.write "&nbsp;页次:<strong>"&CurrentPage&"/"&n&"</strong>页  转到:<select name='page' size='1' onchange='javascript:submit()'>"
               for i = 1 to n
response.write "<option value="&i
 				if cint(CurrentPage)=cint(i) then response.write " selected "
response.write ">第"&i&"页</option>"
                next
response.write "</select></form></div>"      
end function
%>
              </td>
            </tr>
          </table>
        <!--#include file="copyright.asp"-->
    <%
set rs=nothing
conn.close
set conn=nothing
%></body></html>