📄 search.asp
字号:
<!--#include file=articleconn.asp-->
<!--#include file=ip.asp-->
<!--#include file=top1.asp-->
<%
if not isEmpty(request("typeid")) then
typeid=replace(request("typeid"), " ", "")
else
typeid="搜索结果"
end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" copy="G012">
<title> <%=typeid%>--青苑免费在线电影--网通免费电影 不用注册 天天更新免费大片- 真正让你免费看电影</title>
<meta name=keywords content="免费电影 免费在线电影 " />
<meta name="description" content="免费电影:提供免费电影、免费在线电影等非成人电影、色情免费电影。其中包括：动作片、战争片、爱情片、喜剧片、恐怖片、科幻片、动画片、连续剧、搞笑短片、精彩短片、等精彩内容。" />
</head>
<body leftmargin="0" topmargin="0">
<table width="778" border="0" align="center" cellspacing="0">
<tr>
<TD height=6><img src="/images/jiaopian1.jpg" width="778" height="10"></TD>
</tr>
<tr>
<td height="150" valign="middle" background="images/ban1.gif"><IFRAME border=0 marginWidth=0 marginHeight=0
src="index1.asp" frameBorder=no width=778 scrolling=no
height=145></IFRAME></td>
</tr>
<tr>
<TD height=6><img src="/images/jiaopian1.jpg" width="778" height="10"></TD>
</tr>
</table>
<TABLE width=778 height="30" border=0 align=center cellPadding=0 cellSpacing=0 bgcolor="#000000">
<TR>
<TD vAlign=top align=middle width=255 background="images/013.jpg" align=center>
<TABLE width=250 border=0 cellPadding=0 cellSpacing=0 background="images/013.jpg" align=center>
<TR>
</TR>
</FORM>
</TABLE>
<TABLE width=255 border=0 cellPadding=0 cellSpacing=0 background="images/013.jpg">
<script language=JavaScript>
<!--
function check() {
if (document.searchform.keyword.value==""||document.searchform.keyword.value=="请输入关键字") {
alert("请输入检索关键字");
return false;
}
return true;
}
-->
</script>
<form name="searchform" method="post" action="search.asp" onSubmit="return check();">
<TR>
<TD height="29" background="images/011.jpg"><img src="images/leftsearch.gif" width="162" height="29"></TD>
</TR>
<TR>
<TD align=middle><table width="100%" border="0" cellspacing="3">
<tr>
<td width="100%">
<p align="right">
<select name="typeid" size="1">
<option value="片名" selected>按电影名</option>
<option value="演员">按主演者</option>
</select>
<input type="text" name="keyword" size="12" value="请输入关键字" onFocus="if(this.value=='请输入关键字')this.value='';">
<input type="submit" value="搜索" name="submit" style="height:19px">
</td>
</tr>
</tr>
</table></TD>
</TR>
</FORM>
</TABLE>
<TABLE width=255 border=0 cellPadding=0 cellSpacing=0 background="images/013.jpg">
<TR>
<TD background="images/011.jpg"><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 align="center" height="18"><%=t%>.</td>
<td><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank" class="left"><%content=rs("title")
if len(content)>10 then content=left(content,10)&"…"
response.write content
%></a>
</td>
<td align="center" width="18%" height="18"><%=Month(rs("dateandtime"))%>-<%=day(rs("dateandtime"))%></td>
</tr>
<tr>
<td colspan="3">
<img border="0" src="http://www.zibo.net.cn/images/index_4x.jpg" width="255" height="1" ></td>
</tr>
<%
if t>=10 then exit do
rs.movenext
loop
%>
</table></TD>
</TR>
</TABLE> <TABLE width=255 border=0 cellPadding=0 cellSpacing=0 background="images/013.jpg">
<TR>
<TD background="images/011.jpg"><IMG height=29 src="images/lefttophits.gif" width=162></TD>
</TR>
<TR>
<TD align="center"><table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<TD align="center"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber6">
<%
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 align="center" height="18"><%=i%>.</td>
<td><a href="movie.asp?id=<%=rst("articleid")%>" target="_blank" class="left"><%content=rst("title")
if len(content)>10 then content=left(content,10)&"…"
response.write content
%></a>
</td>
<td align="center" width="16%" height="18"><%=rst("hits")%></td>
</tr>
<tr>
<td colspan="3">
<img border="0" src="http://www.zibo.net.cn/images/index_4x.jpg" width="255" height="1" ></td>
</tr>
<%
if i>=10 then exit do
rst.movenext
loop
rst.close
set rst=nothing
%>
</table></tr>
</table></TD>
</TR>
</TABLE> <TABLE width=255 border=0 cellPadding=0 cellSpacing=0 background="images/013.jpg">
<TR>
<TD background="images/011.jpg"><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://www.lnyyw.com/Downloads/RealOnePlayerV2GOLD.exe"><img src="images/realone.gif"
width=88 height=31 border="0"></a></TD>
</TR>
<TR>
<TD align=center><a href="http://www.lnyyw.com/Downloads/media.exe" target="_blank"><img src="images/media.gif" width="88" height="31" border="0"></a></TD>
</TR>
</TABLE></TD>
</TR>
</TABLE>
</TD>
<TD align=middle vAlign=top bgcolor="#FFFFFF">
<table width="520" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2">
</td>
</tr>
<tr> <td width="99%">
<!--电影分页显示开始！！！ -->
<TD vAlign=top align=middle width=8 bgColor=#ffffff>
<table width="511" 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=10
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -