📄 search.asp
字号:
<!--#include file="articleconn.asp"-->
<!--#include file="head.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>七彩影院</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="../images/style.css" type=text/css rel=stylesheet>
<%
if not isEmpty(Replace(request("typeid"), "'", "''")) then
typeid=replace(request("typeid"), "'", "''")
else
typeid="全部"
end if
%>
<table width="778" height="2" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#B4D541">
<tr>
<td><img src="../images/spacer.gif" width="1" height="1"></td>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width=778 align=center border=0>
<TR>
<TD vAlign=top align=middle width=162 bgColor=#EEFFAD>
<TABLE width=162 border=0 cellPadding=0 cellSpacing=0 bgcolor="#C3EF29">
<TR>
<TD><img src="../images/left_menu-01.gif" width="162" height="29"></TD>
</TR>
<TR>
<TD>
<!--#include file=user_login.asp-->
</TD>
</TR>
</TABLE>
<TABLE width=162 border=0 cellPadding=0 cellSpacing=0 bgcolor="#EEFFAD">
<TR>
<TD><img src="../images/leftservice.gif" width="162" height="29"></TD>
</TR>
<TR>
<TD> <TABLE width="90%" border=0 align="center" cellPadding=0 cellSpacing=0>
<TR align=center>
<TD width="50%" height=16><a href="#" onclick="window.open('lookday.asp','newdows','width=400,height=350,left=100,top=50,scrollbars=yes')" class="left">剩余资源</a></TD>
<TD width="50%" height=16><a href="tghd.asp" class="left">免费赚币</a></TD>
</TR>
<TR align=center>
<TD width="50%" height=16><a href="exitpwd.asp" class="left" >取回密码</a></TD>
<TD width="50%" height=16><a href="chageusr.asp" class="left" >修改资料</a></TD>
</TR>
<TR align=center>
<TD width="50%" height=16>
<a target="_blank" class="left">用户续费</a></TD>
<TD width="50%" height=16><a href="xfjl.asp" class="left">消费记录</a></TD>
</TR>
<TR align=center>
<TD width="50%" height=16><a target="_blank" href="/bbs" class="left">电影论坛</a></TD>
<TD width="50%" height=16><a href="czpt.asp" class="left">充值平台</a></TD>
</TR>
</TABLE></TD>
</TR>
</TABLE>
<TABLE width=162 border=0 cellPadding=0 cellSpacing=0 bgcolor="#C3EF29">
<form name="form2" method="post" action="search.asp" onsubmit="if (!checkinput()) return false;">
<script language="JavaScript">
<!--
function checkinput()
{
if (document.form2.keyword.value=="")
{
alert("请输入想查询的内容！");
document.form2.keyword.focus();
return false;
}
return true;
}
-->
</script>
<TR>
<TD height="24"><img src="../images/leftsearch.gif" width="162" height="29"></TD>
</TR>
<TR>
<TD align=middle><table width="100%" border="0" cellspacing="3">
<tr>
<td align="right"><font color="3B591B">选择类型：</font></td>
<td><font color="#FFFFFF">
<select name="typeid" size="1" class="button1" id="typeid">
<option value="片名">+电影名称+</option>
<option value="演员">+演员名称+</option>
</select>
</font></td>
</tr>
<tr>
<td align="right"><font color="3B591B">关 键 字：</font></td>
<td><font color="#FFFFFF">
<input name=keyword class="button2" onFocus="javascript:this.select();" value="" size="11">
</font></td>
</tr>
<tr align="center">
<td colspan="2"> <font color="#FFFFFF">
<input name="I1" type="submit" class="button1" value="影片搜索" onClick="if (search.keyword.value.length==0) {alert('请输入关键字！');return false;}" >
</font></td>
</tr>
</table></TD>
</TR>
</FORM>
</TABLE>
<TABLE width=162 border=0 cellPadding=0 cellSpacing=0 bgcolor="#EEFFAD">
<TR>
<TD><IMG height=29 src="../images/lefttopmedai.gif" width=162></TD>
</TR>
<TR>
<TD align="center"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber6">
<%
dim t
t=0
sql="select articleid,title,typeid,dateandtime,best from learning order by articleid desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
t=t+1
%>
<tr>
<td width="81%" height="18"> <a href="../html/<%=rs("articleid")%>.html" target="_blank" class="left"><%content=rs("title")
if len(content)>8 then content=left(content,6)&"…"
response.write content
%></a>
</td>
<td width="19%"><font color=3B591B1><%=Month(rs("dateandtime"))%>-<%=Day(rs("dateandtime"))%></font></td>
</tr>
<%
if t>=10 then exit do
rs.movenext
loop
%>
</table></TD>
</TR>
</TABLE> <TABLE width=162 border=0 cellPadding=0 cellSpacing=0 bgcolor="#EEFFAD">
<TR>
<TD><IMG height=29 src="../images/lefttophits.gif" width=162></TD>
</TR>
<TR>
<TD align="center"><table border="0" cellpadding="0" cellspacing="0" width="100%">
<%
Set rst= Server.CreateObject("ADODB.Recordset")
rst.open "select articleid,title,hits from learning order by hits desc",conn,1,1
%>
<%
i=0
do while not rst.eof
i=i+1
%>
<tr>
<td width="140" height="18"> <a href="../html/<%=rst("articleid")%>.html" class="left"><%content=rst("title")
if len(content)>7 then content=left(content,7)&"…"
response.write content
%></a></td>
<td width="60"> <p align="center"><font class="eng_S" color="3B591B1">
<%=rst("hits")%></font> </td>
</tr>
<%
if i>=10 then exit do
rst.movenext
loop
rst.close
set rst=nothing
%>
</table></TD>
</TR>
</TABLE> <TABLE width=162 border=0 cellPadding=0 cellSpacing=0 bgcolor="#EEFFAD">
<TR>
<TD><IMG height=29 src="../images/leftsoft.gif" width=162></TD>
</TR>
<TR>
<TD>
<TABLE cellSpacing=3 cellPadding=2 width="100%" border=0>
<TR>
<TD align=center>
<a target="_blank" href="http://vod.my0816.com/vodb/software/realoneplayer.rar"><img src="../images/realone.gif"
width=88 height=31 border="0"></a></TD>
</TR>
<TR>
<TD align=center><a href="/Downloads/fg140.exe" target="_blank"><img src="../images/flashget.gif" width="88" height="31" border="0"></a></TD>
</TR>
</TABLE></TD>
</TR>
</TABLE>
</TD>
<TD align=middle vAlign=top bgcolor="#FFFFFF">
<table width="100%" border="0" cellpadding="0" cellspacing="0" background="/../images/inchelp-04.gif">
<tr>
<td width="35" background="../images/inchelp-04.gif"><img src="../images/inchelp-05.gif" width="27" height="29"></td>
<td background="../images/inchelp-04.gif">
<marquee class= behavior=scoll width=164 scrollDelay=2 scrollAmount=1 onmouseover=this.stop(); onmouseout=this.start();> <script src="../js/jstopgd.asp" ></script></marquee>
</td>
<td width="17"><img src="../images/inchelp-01.gif" width="18" height="29"></td>
<td width="55" align="center" background="../images/inchelp-06.gif" ><a class="left">付费帮助</a></td>
<td width="27"><img src="../images/inchelp-02.gif" width="27" height="29"></td>
<td width="55" align="center" background="../images/inchelp-06.gif" ><a href="playhelp.asp" class="left">播放帮助</a></td>
<td width="27"><img src="../images/inchelp-02.gif" width="27" height="29"></td>
<td width="55" align="center" background="../images/inchelp-06.gif" ><a href="downhelp.asp" class="left">下载帮助</a></td>
<td width="27"><img src="../images/inchelp-02.gif" width="27" height="29"></td>
<td width="55" align="center" background="../images/inchelp-06.gif" >
<a class="left" target="_blank" href="/bbs">本站论坛</a></td>
<td width="27"><img src="../images/inchelp-02.gif" width="27" height="29"></td>
<td width="55" align="center" background="../images/inchelp-06.gif" ><a href="reguser.asp" class="left">注册会员</a></td>
<td width="14"><img src="../images/inchelp-03.gif" width="14" height="29"></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="110" valign="top" background="../images/ggleft.jpg" > </td>
<td background="../images/ggbg.jpg" > <table width="100%" border="0">
<tr>
<td valign="top"><font color="#3B591B">
<%set rs1=server.createobject("adodb.recordset")
sql="select * from talk where id=23"
rs1.open sql,conn,1,3
talk=rs1("talk")
rs1.close
set rs1=nothing%><%=talk%></font>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="604" border="0" align="center" cellpadding="0" cellspacing="0" background="../images/sortbg.gif">
<tr>
<td width="30"><img src="../images/sortleft.gif" width="21" height="27"></td>
<td width="93" class="title"> </td>
</table>
<table width="604" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<FORM name=form2 action=search.asp method=post>
</FORM>
<%
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"<div align=center>查找字符不能为空串，请重输入查找的信息<a href=""javascript:history.go(-1)"">返回重查</a></div>"
gotoend
response.end
elseif rs.eof then
response.write"<div align='center'>没有你要查找的信息<a href=""javascript:history.go(-1)"">返回重查</a></div>"
gotoend
response.end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -