📄 search.asp
字号:
<!--#include file="film_conn.asp"-->
<%
if trim(request("look"))<>"all" and trim(request("look"))<>"1" and trim(request("look"))<>"2" then
response.redirect "./"
end if
if not isEmpty(request("typeid")) then
typeid=trim(request("typeid"))
typeid=replace(typeid,"'","''")
typeid=replace(typeid, " ", "")
typeid=replace(typeid, "=", "")
typeid=replace(typeid, "(", "")
typeid=replace(typeid, ")", "")
else
typeid="全部"
end if
%>
<HTML><HEAD><TITLE><%=webname%> - 搜索电影 “<%=request("keyword")%>” </TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<script>
//*****************************************************
function isnum()
{
if(event.keyCode==13 ) addGame(document.regist);
if(event.keyCode<48 || event.keyCode>57)
{
event.keyCode=0;
}
if(event.keyCode==13 ) addGame(document.regist);
}
</script>
</HEAD>
<BODY bgColor=#71757b leftMargin=0 topMargin=0 rightMargin=0 marginheight="0" marginwidth="0" botmargin="0">
<!--#include file="top.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=778 align=center background=images/bg-content.gif border=0 valign="top">
<TBODY>
<TR>
<TD width=778 height=1>
<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 height=1
cellSpacing=0 cellPadding=0 width=778 align=left border=0 valign="top">
<TBODY>
<TR>
<TD width=13 height=1><IMG height=100 src="images/clear.gif"
width=13>
<TD width=753 height=1>
<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111
height=1 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=752 background=images/clear0.gif height=1>
<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111
height="100%" cellSpacing=2 cellPadding=2 width="100%"
border=0>
<TBODY>
<TR>
<TD align=middle width="93%" valign="middle">
<iframe frameBorder="no" height="0" marginHeight="0" marginWidth="0" name="mq" scrolling="no" src="js/move.htm" width="0">
</iframe>
<iframe frameBorder="no" height="86" marginHeight="0" marginWidth="0" name="mq" scrolling="no" src="move.asp" width="100%">
</iframe></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD width=12 height=1><IMG height=100 src="images/clear1.gif"
width=13> </TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD width=778 height=188>
<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111 cellSpacing=0
cellPadding=0 width=778 border=0>
<TBODY>
<TR>
<TD width=15 height=151> </TD>
<TD vAlign=top width=194 height=151><!--#include file="left.asp"--></TD>
<TD vAlign=top width=4></TD>
<TD vAlign=top width=550 height=151>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="98%" id="AutoNumber1">
<tr>
<td width="100%">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3">
<tr>
<td width="100%" height=39><!--#include file="query.asp"--></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<%
dim rstype
dim typesql
dim okname,typename1
'---------------------------search----------------------
name=trim(request("keyword"))
name=replace(name,"'","''")
name=replace(name, " ", "")
name=replace(name, "=", "")
name=replace(name, "(", "")
name=replace(name, ")", "")
if request("look")="all" then
if request("typeid")="片名" then
sql="select * from learning where title Like '%"& name &"%' order by articleid desc"
else
sql="select * from learning where name Like '%"& name &"%' order by articleid desc"
end if
elseif request("look")="1" then
if request("typeid")="片名" then
sql="select * from learning where title Like '%"& name &"%' and onlinelook=1 order by articleid desc"
else
sql="select * from learning where name Like '%"& name &"%' and onlinelook=1 order by articleid desc"
end if
elseif request("look")="2" then
if request("typeid")="片名" then
sql="select * from learning where title Like '%"& name &"%' and down=1 order by articleid desc"
else
sql="select * from learning where name Like '%"& name &"%' and down=1 order by articleid desc"
end if
end if
set rs=conn.execute(sql)
%>
<%
if name="" then
%>
<tr>
<TD width="100%" height=30 align=center>对不起，您没有输入关键字，请<a href=""javascript:history.go(-1)"">点击这里返回重新输入>></a></TD>
</tr>
<%
elseif rs.eof then
%>
<tr>
<TD width="100%" height=30 align=center>对不起，没有您要查找的影片，请更换关键字尝试，<a href=""javascript:history.go(-1)"">点此返回>></a></TD>
</tr>
<%
elseif not rs.eof and not rs.bof then
'else
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
'set rst=server.CreateObject("ADODB.RecordSet")
if request("page")<>"" then
curpage=cint(request("page"))
else
curpage=1
end if
num=8
rs.pagesize=num
rs.absolutepage=curpage
'end if
%>
<tr>
<td width="100%">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
<tr>
<TD vAlign=top width="100%" height=386>
<TABLE style="BORDER-COLLAPSE: collapse" borderColor=#111111
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -