📄 search.asp

📁 asp+access的电影免费网站源码是个很好的学习例子大家可以下来学习
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="articleconn.asp"-->
<HTML><HEAD>
<%set rs=conn.execute("select * from [home]")%>
<TITLE><%=rs("homes")%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="img/style.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1505" name=GENERATOR>
<script language="JavaScript">
<!--
function checkinput()
{
if (document.search.keyword.value=="")
 {
alert("请输入想查询的内容！");
document.search.keyword.focus();
return false;
 }
 return true;
}
-->
</script>
<SCRIPT language=javascript>
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  mediaWindow = window.open(theURL,winName,features);
  mediaWindow.focus();
}
//-->
</SCRIPT>
<script language="javascript">kstatus();function kstatus(){self.status="<%=rs("Description")%>";setTimeout("kstatus()",0);}</script>

<SCRIPT language=JavaScript1.2> 
<!-- 
function Show(divid) { 
divid.filters.revealTrans.apply(); 
divid.style.visibility = "visible"; 
divid.filters.revealTrans.play(); 
} 
function Hide(divid) { 
divid.filters.revealTrans.apply(); 
divid.style.visibility = "hidden"; 
divid.filters.revealTrans.play(); 
} 
//--> 
</SCRIPT>
<script>
function OpenWindow(htmurl,widths,heights)
{
   var paramet = 'toolbar=no,resizable=no,scrollbars=no,width='+ widths + ',height=' + heights;
   newWindow = window.open(htmurl,"yule21",paramet);
   newWindow.focus();
}
</script>
 <script>
IEver=navigator.appVersion.substring(navigator.appVersion.indexOf('MSIE')+5,navigator.appVersion.indexOf(';',17));
if(IEver=="6.0")
    {
      ie6 = true;
      width_add = 10; 
      height_add = 29;
      hand_add = -14;
    }
else
    {
      ie6 = false;
      width_add = 10;
      height_add = 29;
      hand_add = 14;
    }
function OpenWindow(PlayerURL)
{
  if (ie6)
	newwindow=window.open('','','fullscreen=0,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=-1');
  else
	newwindow=window.open('','','fullscreen=0,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=-1');
	newwindow.moveTo(100,100);
	newwindow.resizeTo(440+width_add,428+height_add+hand_add);
	newwindow.focus();
	newwindow.location=PlayerURL;
}
function play(id)
{
    OpenWindow('look.asp?id1='+id);
}

</script></HEAD>
<BODY >
<!--#include file=top.asp-->
<TABLE cellSpacing=0 cellPadding=0 width=993 border=0>
<TBODY>
<TR>
<TD bgColor=#7d7d7d height=1></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=993 border=0>
<TBODY>
<TR>
<TD bgColor=#ffffff height=2></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=993 bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle>
<TABLE cellSpacing=0 cellPadding=0 width=977 border=0>
<TBODY>
<TR>
<TD background=img/2.gif height=8></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=1 cellPadding=0 width=977 bgColor=#b7b7b7 border=0>
<TBODY>
<TR>
<TD bgColor=#ffffff>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD>
<TABLE height=94 cellSpacing=0 cellPadding=1 width="100%" border=0>
<TBODY>
<TR>
<TD align=right width=189><IMG height=90 src="img/channel_title_movie.gif" width=188></TD>
<TD>
<OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0 height=90 width=780 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000>
<PARAM NAME="movie" VALUE="img/banner_780x90.swf">
<PARAM NAME="quality" VALUE="High">
 
<embed src="img/banner_780x90.swf" quality="High" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="780" height="90"></embed></OBJECT></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD background=img/1.jpg height=12></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=977 border=0>
<TBODY>
<TR>
<TD height=2></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=993 bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle height=173>
<TABLE height=36 cellSpacing=0 cellPadding=0 width=977 border=0>
<TBODY>
<TR>
<TD vAlign=top width=191 height=25>
<!--#include file=left.asp--></TD>
<TD width=2 valign="top"></TD>
<TD width=1 bgColor=#c6c6c6 valign="top"></TD>
<TD vAlign=top width=783>
<TABLE cellSpacing=0 cellPadding=0 width=783 border=0>
<TBODY>
<TR>
<TD><A href="/bfqxz/RealPlayer.exe"><IMG height=60 src="img/dl_01.jpg" width=179 border=0></A></TD>
<TD><A href="/bfqxz/Windows Media Player.exe"><IMG height=60 src="img/dl_02.jpg" width=171 border=0></A></TD>
<TD><A href="/bfqxz/ffdshow.exe"><IMG height=60 src="img/dl_03.jpg" width=168 border=0></A></TD>
<TD><A href="/bfqxz/ie6setup.exe"><IMG height=60 src="img/dl_04.jpg" width=160 border=0></A></TD>
<TD><A href="#"><IMG height=60 src="img/dl_05.jpg" width=105 border=0></A></TD></TR></TBODY></TABLE>
<TABLE height=40 cellSpacing=0 cellPadding=0 width="100%" background=img/5.gif border=0>
<TBODY>
<TR>
<TD width=116 valign="top">
<img border="0" src="img/19.gif" width="116" height="32"></TD>
<TD align=right><TABLE height=24 cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD width=2><img src height=1 width=2></TD>
</TR></TBODY></TABLE></TD>
<TD align=right valign="top"><IMG height=31 src="img/7.gif" width=83></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0><TBODY><TR align=right>
<TD><table border="0" cellspacing="0" width="100%" cellpadding="0" id="table8">
  <tr bordercolor="#111111">
    <TD vAlign=top align=left><table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td colspan="2"><%
   dim rstype
   dim typesql
   dim okname,typename1
   '---------------------------search----------------------
name=trim(request("keyword"))
name=replace(name,"'","''")
'Response.Write name
if request("typeid")="片名" then
    sql="select * from learning where title Like '%"& name &"%' or title like title Like '%"& name &"%' or title Like '%"& name &"%'order by articleid desc"
else
   sql="select * from learning where name Like '%"& name &"%' or name like name Like '%"& name &"%' or name Like '%"& name &"%'order by articleid desc"
end if   
set rs=conn.execute(sql)
'Rsponse.Write  rs.RecordCount 
if name="" then
   'response.redirect"index.asp"
   response.write"<script>alert('查找字符不能为空格，请重输入查找的内容！请您返回重查');</Script><script Language=Javascript>location.href = '';</script>"
   response.end
 elseif rs.eof then
   response.write"<script>alert('对不起，暂时还没有你要查找的演员或影片! 请您返回重查');</Script><script Language=Javascript>location.href = '';</script>"
   response.end
else   
  Set rs= Server.CreateObject("ADODB.Recordset")
  rs.open sql,conn,1,1
   'set rs=server.createobject("ADODB.recordset")
   'rs.open sql,conn
  'searchsub rs
end if  
%>
              <%
   const MaxPerPage=6
   dim totalPut   
   dim CurrentPage
   dim TotalPages
   dim i,j
   dim typename
      typename="软件搜索结果"
   if not isempty(request("page")) then
      currentPage=cint(request("page"))
   else
      currentPage=1
   end if
       set rst=server.CreateObject("ADODB.RecordSet") 
   %>
              <%      
       '  dim sql
'dim rs
'if request("hits")="1" then
  ' sql="select * from learning order by hits desc"     
'else
  ' sql="select * from learning order by articleid desc"
'end if   
'Set rs= Server.CreateObject("ADODB.Recordset")
'rs.open sql,conn,1,1
  if rs.eof and rs.bof then
       response.write "<script>alert('暂时还没有您要找的影片，请与管理员联系！')</Script>"
   response.end
   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
12 下一页
💿 文件大小 1368 K
👤 上传用户 hqbbsw
📂 所属分类系统设计方案
🏷️ 相关标签

#access #asp #电影 #源码
⌨️ 快捷键说明

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