result.asp

社区天地图文系统(核心:尘缘雅境图文系统) 版本: 1.0 本系统是ASP+ACCESS环境下开发成功

            <tr>
              <td height="5"></td>
            </tr>
          </table></td>
        </tr>
      </table>
      </td>
    <td width="564" valign="top" bgcolor="#64C2FD">
	<table width="564" border="0" cellspacing="0" cellpadding="0" height="403">
      <tr>
        <td height="33" background="imgs/daohang_bg.jpg"><table width="95%"  border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <TD class=yy>&nbsp;<a href="index.asp">网站首页</a><a href="#·"> </a><SPAN 
                  class=style1>| </SPAN><a href="type.asp?typeID=16">团学天地</a> <SPAN 
                  class=style1>| <a href="type.asp?typeID=17">规章制度</a> | </SPAN>
				<a href="type.asp?typeID=18">社区生活</a> <SPAN 
                  class=style1>| <a href="type.asp?typeID=19">最新下载 </a>| </SPAN>
				<a href="nwjl.asp">内务纪律</a> <SPAN 
                  class=style1>| </SPAN><a href="special.asp">社区专题</a></TD>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td height="356" valign="top">
          <table width="559" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="559" height=42 background="imgs/photo_title.jpg" >&nbsp;&nbsp;&nbsp;&nbsp;<img border="0" src="IMAGES/menu-l-m.gif" width="11" height="11"><font class=m_tittle>&nbsp; </font>栏目导航 

            <a class="daohang" href="./" >网站首页</a>&gt;&gt;搜索>>关键字：<%=keyword%></b></td>
            </tr>
            <tr>
              <td valign="top" background="imgs/news_bg.jpg" height="291">
				<table width="98%"  border="0" align="center" cellpadding="0" cellspacing="0" height="298">
                  <tr>
                    <td width="4">　</td>
                    <td valign="top" bgcolor="#C4E8FF"><table border="0" cellpadding="3" cellspacing="0" width="100%">
              <%set rs=server.CreateObject("ADODB.RecordSet")
			  if request_BigClassid<>"" then
if Request.cookies("key")="" then
rs.Source="select * from News where BigClassid=" & request_BigClassid &" and " & findword & " and checkked=1 and newslevel=0 order by NewsID DESC"
end if
if Request.cookies("key")="super" or Request.cookies("key")="typemaster" or Request.cookies("key")="bigmaster" or Request.cookies("key")="smallmaster" or Request.cookies("key")="check" then
rs.Source="select * from News where BigClassid=" & request_BigClassid &" and " & findword & " and checkked=1 order by NewsID DESC"
end if
if Request.cookies("key")="selfreg" then
	if Request.cookies("reglevel")=3 then
rs.Source="select * from News where BigClassid=" & request_BigClassid &" and " & findword & " and checkked=1 and newslevel<=3 order by NewsID DESC"
	end if
	if Request.cookies("reglevel")=2 then
rs.Source="select * from News where BigClassid=" & request_BigClassid &" and " & findword & " and checkked=1 and newslevel<=2 order by NewsID DESC"
	end if
	if Request.cookies("reglevel")=1 then
rs.Source="select * from News where BigClassid=" & request_BigClassid &" and " & findword & " and checkked=1 and newslevel<=1 order by NewsID DESC"
	end if
end if
else
if Request.cookies("key")="" then
rs.Source="select * from News where " & findword & " and checkked=1 and newslevel=0 order by NewsID DESC"
end if
if Request.cookies("key")="super" or Request.cookies("key")="typemaster" or Request.cookies("key")="bigmaster" or Request.cookies("key")="smallmaster" or Request.cookies("key")="check" then
rs.Source="select * from News where " & findword & " and checkked=1 order by NewsID DESC"
end if
if Request.cookies("key")="selfreg" then
	if Request.cookies("reglevel")=3 then
rs.Source="select * from News where " & findword & " and checkked=1 and newslevel<=3 order by NewsID DESC"
	end if
	if Request.cookies("reglevel")=2 then
rs.Source="select * from News where " & findword & " and checkked=1 and newslevel<=2 order by NewsID DESC"
	end if
	if Request.cookies("reglevel")=1 then
rs.Source="select * from News where " & findword & " and checkked=1 and newslevel<=1 order by NewsID DESC"
	end if
end if
end if
rs.Open rs.Source,conn,1,1


rs.PageSize=20
rs.CacheSize = RS.PageSize

for i=1 to rs.PageSize *( page-1)
if not rs.EOF then
rs.MoveNext
end if
next
Response.Write "<tr><td  width=100% height=25 align=center >&nbsp;"
if rs.EOF then

Response.Write "<font color=red>抱歉，没有搜索到相关的资料！</font>"
else
rs.PageSize     = MyPageSize
MaxPages         = rs.PageCount
rs.absolutepage = MyPage
total            = rs.RecordCount
Response.Write "共搜索到" & total & "条相关资料，当前第"& myPage &"/"& MaxPages &"页，每页"& rs.PageSize &"条"
end if
Response.Write "</td></tr>"


If Not rs.eof then
i = 0
do until rs.Eof or i = rs.PageSize
if rs("picname")<>"" then
img="<font color=red>[图]</font>"
else
img=""
end if
%>
              <tr> 
                <%
title=trim(rs("title"))
title=replace(title,"<br>","")
dim bigclassid
bigclassid=rs("bigclassid")
set rs11=server.CreateObject("ADODB.RecordSet")
rs11.Source="select * from bigclass where bigclassid="&bigclassid&""
rs11.Open rs11.Source,conn,1,1
typeid=rs11("typeid")
rs11.Close
dim mode
set rs12=server.CreateObject("ADODB.RecordSet")
rs12.Source="select * from type where typeid="&typeid&""
rs12.Open rs12.Source,conn,1,1
mode=rs12("mode")
rs12.Close

%>
                <td width="100%" height="20">&nbsp;<img src="images/006.gif" width="8" height="10" border="0">&nbsp;<a class=middle href="ReadNews.asp?NewsID=<%=rs("NewsID")%>"   onclick="return ow(this)"  target=_blank title="<%=title%>">
                  <%if mode="2" then%>
                  <%=img%>
                  <%end if%>
                  <font color="<%=rs("titlecolor")%>">
                  <%if len(title)>28 then%>
                  <%=left(title,28)%>...
                  <%else%>
                  <%=title%>
                  <%end if%>
                  </font></a><font class=middle>(<%=rs("UpdateTime")%>)[<font color="#ff0000"><%=rs("click")%></font>]</font></td>
              </tr>
              <%

rs.MoveNext
i = i + 1
loop
%>
              <tr> 
                <td width="100%" align=center>第 <%=Mypage%>/<%=Maxpages%> 页，每页 
                  <%=MyPageSize%> 条 
                  <%
url="Result.asp?action="&request("action")&"&keyword=" & keyword
PageNextSize=int((MyPage-1)/PageShowSize)+1
Pagetpage=int((total-1)/rs.PageSize)+1

if PageNextSize >1 then
PagePrev=PageShowSize*(PageNextSize-1)
Response.write "<a class=black href='" & Url & "&page=" & PagePrev & "' title='上" & PageShowSize & "页'>上一翻页</a> "
Response.write "<a class=black href='" & Url & "&page=1' title='第1页'>页首</a> "
end if
if MyPage-1 > 0 then
Prev_Page = MyPage - 1
Response.write "<a class=black href='" & Url & "&page=" & Prev_Page & "' title='第" & Prev_Page & "页'>上一页</a> "
end if

if Maxpages>=PageNextSize*PageShowSize then
PageSizeShow = PageShowSize
Else
PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1)
End if
If PageSizeShow < 1 Then PageSizeShow = 1
for PageCounterSize=1 to PageSizeShow
PageLink = (PageCounterSize+PageNextSize*PageShowSize)-PageShowSize
if PageLink <> MyPage Then
Response.write "<a class=black href='" & Url & "&page=" & PageLink & "'>[" & PageLink & "]</a> "
else
Response.Write "<B>["& PageLink &"]</B> "
end if
If PageLink = MaxPages Then Exit for
Next

if Mypage+1 <=Pagetpage  then
Next_Page = MyPage + 1
Response.write "<a class=black href='" & Url & "&page=" & Next_Page & "' title='第" & Next_Page & "页'>下一页</A>"
end if

if MaxPages > PageShowSize*PageNextSize then
PageNext = PageShowSize * PageNextSize + 1
Response.write " <A class=black href='" & Url & "&page=" & Pagetpage & "' title='第"& Pagetpage &"页'>页尾</A>"
Response.write " <a class=black href='" & Url & "&page=" & PageNext & "' title='下" & PageShowSize & "页'>下一翻页</a>"
End if

				
end if
rs.close					
%>
                </td>
              </tr>
			  <tr>
                  </tr>
            </table></td>
                  </tr>
                  </table></td>
            </tr>
            <tr>
              <td height="4" bgcolor="#82CEFD">
				<img src="imgs/new_bg01.jpg" width="9" height="4"></td>
            </tr>
          </table>
        </td>
        </tr>
    </table></td>
    <td width="15" valign="top" background="imgs/right_bg.jpg">　</td>
  </tr>
</table>
<table width="773" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="118" valign="top" background="imgs/under.jpg">  <!--#include file=bot.asp -->
</td>
  </tr>
</table>

</body>
</html>