⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 search.asp

📁 图利文章管理系统。毕业设计郑州科技学院2006级计算机系计算机信息管理专业
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="admin/ubbhtml.asp"-->
<%keyword=trim(request("keyword"))
if keyword="" then
	response.write"<SCRIPT language=JavaScript>alert('请输入您要搜索的关键字!');"
	response.write"javascript:history.go(-1)</SCRIPT>"
	response.end
end if%> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!-- saved from url=(0014)about:internet -->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>荆网笑话 - 娱乐笑话</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<style type="text/css">
td img {display: block;}body,td,th {
	font-size: 14px;
}
body {
	background-color: #FFFFFF;
	margin-left: 0px;
	margin-top: -1px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-image: url(img/index_bg.jpg);
	background-repeat: repeat-x;
}
a {
	font-size: 13px;
	color: #0000CC;
}
a:visited {
	color: #0066FF;
}
a:hover {
	color: #009966;
}
a:active {
	color: #0099CC;
}
.dixian {
	border-bottom-width: 1px;
	border-bottom-style: solid;
	border-bottom-color: #62BBE5;
}
</style>
<SCRIPT language=JavaScript>
var newwin  
function openwin(url)  
{  
  var newwin=window.open(url,"flash","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,width=700,height=506,left=100,top=50")  
}   
</SCRIPT>

<SCRIPT language=javascript src="joke/mouse_up.js"></SCRIPT>
</head>
<body>
<table width="926" border="0" align="left" cellpadding="0" cellspacing="0">
<!-- fwtable fwsrc="index.png" fwbase="index.jpg" fwstyle="Dreamweaver" fwdocid = "162338751" fwnested="0" -->
  <tr>
   <td><img src="img/spacer.gif" width="31" height="1" border="0" alt="" /></td>
   <td><img src="img/spacer.gif" width="253" height="1" border="0" alt="" /></td>
   <td><img src="img/spacer.gif" width="22" height="1" border="0" alt="" /></td>
   <td><img src="img/spacer.gif" width="126" height="1" border="0" alt="" /></td>
   <td><img src="img/spacer.gif" width="122" height="1" border="0" alt="" /></td>
   <td><img src="img/spacer.gif" width="111" height="1" border="0" alt="" /></td>
   <td><img src="img/spacer.gif" width="115" height="1" border="0" alt="" /></td>
   <td><img src="img/spacer.gif" width="132" height="1" border="0" alt="" /></td>
   <td><img src="img/spacer.gif" width="14" height="1" border="0" alt="" /></td>
   <td><img src="img/spacer.gif" width="1" height="1" border="0" alt="" /></td>
  </tr>

  <tr>
   <td colspan="3"><img name="index_r1_c1" src="img/index_r1_c1.jpg" width="306" height="146" border="0" id="index_r1_c1" alt="" /></td>
   <td><img src="img/index_r1_c4.jpg" alt="" name="index_r1_c4" width="126" height="146" border="0" usemap="#index_r1_c4Map" id="index_r1_c4" /></td>
   <td><img src="img/index_r1_c5.jpg" alt="" name="index_r1_c5" width="122" height="146" border="0" usemap="#index_r1_c5Map" id="index_r1_c5" /></td>
   <td><img src="img/index_r1_c6.jpg" alt="" name="index_r1_c6" width="111" height="146" border="0" usemap="#index_r1_c6Map" id="index_r1_c6" /></td>
   <td><img src="img/index_r1_c7.jpg" alt="" name="index_r1_c7" width="115" height="146" border="0" usemap="#index_r1_c7Map" id="index_r1_c7" /></td>
   <td colspan="2"><img src="img/index_r1_c8.jpg" alt="" name="index_r1_c8" width="146" height="146" border="0" usemap="#index_r1_c8Map" id="index_r1_c8" /></td>
   <td><img src="img/spacer.gif" width="1" height="146" border="0" alt="" /></td>
  </tr>
  <tr>
   <td rowspan="2"><img name="index_r2_c1" src="img/index_r2_c1.jpg" width="31" height="285" border="0" id="index_r2_c1" alt="" /></td>
   <td rowspan="2" align="right" valign="top" background="img/index_r2_c2.jpg"><!--#include file="f.asp"--></td>
   <td colspan="7" background="img/index_r2_c3.jpg">&nbsp;</td>
   <td><img src="img/spacer.gif" width="1" height="34" border="0" alt="" /></td>
  </tr>
  <tr>
    <td colspan="6" rowspan="2" valign="top" bgcolor="#FFFFFF"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
      <tbody>
        <tr align="middle">
          <td width="579" height="40" align="center" valign="top"><br />文字笑话<br />
            <table width="98%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><table border="0" cellpadding="0" cellspacing="3" width="90%" align="center" >
                      <%
sql="select articleid,title,hits from learning where syxs<>0 and title like '%"&keyword&"%' order by articleid desc"
set rs=server.createobject("adodb.recordset") 
rs.open sql,conn,1,1
if rs.eof then
response.write "没有符合您要查询的内容!"
else
						
	n=0 
	if not isempty(request("page")) then   
	pagecount=cint(request("page"))   
	else   
	pagecount=1
	end if

	rs.pagesize=20
	rs.AbsolutePage=pagecount       
do while not rs.eof                      
title=rs("title")
title=replace(title,keyword,"<font color=red>"&keyword&"</font>")


%>
                      <tr>
                        <td height="20" valign="middle" width="33%" onmouseover="this.bgColor = '#f0f0f0'" onmouseout="this.bgColor = '#F6F6F6'" bgcolor="#F6F6F6" align="right"><table width="96%" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td align="left"><li><a href="show.asp?id=<%=rs("articleid")%>" target="_blank"><%=title%></a> <%=rs("hits")%> </li></td>
                        </tr>
                          </table></td>
                        <% n=n+1
					rs.movenext
					if rs.eof or rs.bof then 
					response.write "<td width='33%'></td>"
					exit do
					end if
					%>
                        <td height="20" valign="middle" width="33%" onmouseover="this.bgColor = '#f0f0f0'" onmouseout="this.bgColor = '#F6F6F6'" bgcolor="#F6F6F6" align="right"><table width="96%" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td align="left"><li><a href="show.asp?id=<%=rs("articleid")%>" target="_blank"><%=title%></a> <%=rs("hits")%> </li></td>
                        </tr>
                          </table></td>
                        <%                           
                n=n+1
				rs.movenext
				if n>=rs.pagesize then exit do
				loop                                   
                %>
                      </tr>
                    </table>
                      <br />
                      <table width="97%" border="0" cellspacing="0" cellpadding="0" align="center">
                        <form action="search.asp" method="post">
                          <tr>
                            <td height="22" align="right" width="100%"> 页次: <b><font color="red"><%=pagecount%></font>/<%=rs.pagecount%></b>
                                <% if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then%>
                              <a href="search.asp?keyword=<%=keyword%>&amp;page=<%=cstr(pagecount+1)%>"> 下一页</a>
                              <% end if %>
                              <% if rs.pagecount>1 and rs.pagecount=pagecount then %>
                              <a href="search.asp?keyword=<%=keyword%>&amp;page=<%=cstr(pagecount-1)%>"> 上一页</a>
                              <%end if%>
                              <% if pagecount<>1 and rs.pagecount<>pagecount then%>
                              <a href="search.asp?keyword=<%=keyword%>&amp;page=<%=cstr(pagecount-1)%>"> 上一页</a> <a href="search.asp?keyword=<%=keyword%>&amp;page=<%=cstr(pagecount+1)%>"> 下一页</a>
                              <% end if%>
                              &nbsp; 直接到第
                              <select name="select" class="un_submit">
                                <%for i=1 to rs.pagecount%>
                                <option value="<%=i%>"><%=i%></option>
                                <%next%>
                              </select>
                              <input type="submit" name="go2" value="Go ---&gt;" class="un_submit" />
                              <input type="hidden" name="keyword2" value="<%=keyword%>" />
                            </td>
                          </tr>
                        </form>
                        <%        
end if
rs.close
set rs=nothing
%>
                    </table></td>
                </tr>
              </table>
              <br />
            搞笑图图<br />
            <table width="98%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><table border="0" cellpadding="0" cellspacing="3" width="90%" align="center" >
                      <%
sql="select picid,picname,pichits,picsy from pic where picsy<>0 and picname like '%"&keyword&"%' order by picid desc"
set rs=server.createobject("adodb.recordset") 
rs.open sql,conn,1,1
if rs.eof then
response.write "没有符合您要查询的内容!"
else
						
	nv=0 
	if not isempty(request("page")) then   
	pagecount=cint(request("page"))   
	else   
	pagecount=1
	end if

	rs.pagesize=20
	rs.AbsolutePage=pagecount       
do while not rs.eof                      
picname=rs("picname")
picname=replace(picname,keyword,"<font color=red>"&keyword&"</font>")


%>
                      <tr>
                        <td height="20" valign="middle" width="33%" onmouseover="this.bgColor = '#f0f0f0'" onmouseout="this.bgColor = '#F6F6F6'" bgcolor="#F6F6F6" align="right"><table width="96%" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td align="left"><li><a href="pic_show.asp?picid=<%=rs("picid")%>" target="_blank"><%=picname%></a> <%=rs("pichits")%> </li></td>
                        </tr>
                          </table></td>
                        <% nv=nv+1
					rs.movenext
					if rs.eof or rs.bof then 
					response.write "<td width='33%'></td>"
					exit do
					end if
					%>
                        <td height="20" valign="middle" width="33%" onmouseover="this.bgColor = '#f0f0f0'" onmouseout="this.bgColor = '#F6F6F6'" bgcolor="#F6F6F6" align="right"><table width="96%" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td align="left"><li><a href="pic_show.asp?picid=<%=rs("picid")%>" target="_blank"><%=picname%></a> <%=rs("pichits")%> </li></td>
                        </tr>
                          </table></td>
                        <%                           
                nv=nv+1
				rs.movenext
				if nv>=rs.pagesize then exit do
				loop                                   
                %>
                      </tr>
                    </table>
                      <br />
                      <table width="97%" border="0" cellspacing="0" cellpadding="0" align="center">
                        <form action="search.asp" method="post">
                          <tr>
                            <td height="22" align="right" width="100%"> 页次: <b><font color="red"><%=pagecount%></font>/<%=rs.pagecount%></b>
                                <% if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then%>
                              <a href="search.asp?keyword=<%=keyword%>&amp;page=<%=cstr(pagecount+1)%>"> 下一页</a>
                              <% end if %>
                              <% if rs.pagecount>1 and rs.pagecount=pagecount then %>
                              <a href="search.asp?keyword=<%=keyword%>&amp;page=<%=cstr(pagecount-1)%>"> 上一页</a>
                              <%end if%>
                              <% if pagecount<>1 and rs.pagecount<>pagecount then%>
                              <a href="search.asp?keyword=<%=keyword%>&amp;page=<%=cstr(pagecount-1)%>"> 上一页</a> <a href="search.asp?keyword=<%=keyword%>&amp;page=<%=cstr(pagecount+1)%>"> 下一页</a>
                              <% end if%>
                              &nbsp; 直接到第
                              <select name="select2" class="un_submit">
                                <%for ii=1 to rs.pagecount%>
                                <option value="<%=ii%>"><%=ii%></option>
                                <%next%>
                              </select>
                              <input type="submit" name="go22" value="Go ---&gt;" class="un_submit" />
                              <input type="hidden" name="keyword2" value="<%=keyword%>" />
                            </td>
                          </tr>
                        </form>
                        <%        
end if
rs.close
set rs=nothing
%>
                    </table></td>
                </tr>
            </table></td></tr>
      </tbody>
    </table></td>
    <td rowspan="3" background="img/index_r3_c9.jpg">&nbsp;</td>
   <td><img src="img/spacer.gif" width="1" height="251" border="0" alt="" /></td>
  </tr>
  <tr>
   <td colspan="2" rowspan="2" valign="top"><img src="img/index_r4_c1.jpg" width="284" height="312" /></td>
   <td><img src="img/spacer.gif" width="1" height="250" border="0" alt="" /></td>
  </tr>
  <tr>
   <td colspan="6" background="img/index_r5_c3.jpg">&nbsp;</td>
   <td><img src="img/spacer.gif" width="1" height="62" border="0" alt="" /></td>
  </tr>
  <tr>
   <td colspan="9" align="center" background="img/index_r6_c1.jpg"><!--#include file="d.asp"--></td>
   <td><img src="img/spacer.gif" width="1" height="72" border="0" alt="" /></td>
  </tr>
</table>

<map name="index_r1_c4Map" id="index_r1_c4Map"><area shape="rect" coords="25,46,111,140" href="index.asp" />
</map>
<map name="index_r1_c5Map" id="index_r1_c5Map">
<area shape="rect" coords="17,71,86,140" href="class.asp" />
</map>
<map name="index_r1_c6Map" id="index_r1_c6Map"><area shape="rect" coords="11,51,86,140" href="picclass.asp" />
</map>
<map name="index_r1_c7Map" id="index_r1_c7Map">
<area shape="rect" coords="30,52,98,140" href="upload.asp?sort=1" />
</map>
<map name="index_r1_c8Map" id="index_r1_c8Map"><area shape="rect" coords="38,70,99,141" href="upload.asp?sort=2" />
</map></body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -