📄 so.asp
字号:
<!--#Include File="Config.asp"-->
<!--#Include File="So_Do.asp"-->
<%
'==========================================
'文 件 名：So.asp
'文件用途：搜索结果显示
'系统名称：开良狗狗影视搜索小偷
'系统版本：V1.2
'系统开发：开良网络
'技术支持：http://www.klcode.com.cn/
'技 术 QQ：973573137
'联系邮箱：klcde@qq.com
'==========================================
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>搜索“<%=M_Str%>”的结果--<%=SiteName%>--<%=SiteUrl%></title>
<link href="Css/Style.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div id="So_Top">
<div id="So_Logo"><a href="Index.asp" title="<%=SiteName%>"><img src="Images/Logo2.gif" /></a></div>
<form id="Searchs1" name="Searchs1" method="get" action="So.asp">
<div id="So_Search">
<input name="Search_Str" value="<%=M_Str%>" type="text" id="Search_Input" maxlength="30" />
<input type="submit" name="Enter" id="Search_Button" value="搜索视频" />
</div>
</form>
<div class="cal"></div>
</div>
<div id="So_Info">
<span style="text-indent:30px;">共搜索到<%=M_MovieCount%>条记录，共<%=M_PageCount%>页</span>
</div>
<div id="So_List">
<div id="So_VList">
<table width="770" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="475" align="center" class="td1">名称</td>
<td width="101" align="center" class="td1">大小</td>
<td width="99" align="center" class="td1">类型</td>
<td width="85" align="center" class="td1">时长</td>
</tr>
<%
For i=0 To UBound(M_Size)
If Instr(M_MovieUrl(i),"kankan.xunlei.com")=0 Then
%>
<tr>
<td style="text-indent:12px;" class="td2"><a href="<%=M_MovieUrl(i)%>" target="_blank"><%=M_Title(i)%></a></td>
<td align="center" class="td2"><%=M_Size(i)%></td>
<td align="center" class="td2"><%=M_Type(i)%></td>
<td align="center" class="td2"><%=M_Length(i)%></td>
</tr>
<%
End If
Next
%>
</table>
</div>
<div id="So_ListAd">
<div id="So_ListAdTop">赞 助 商 链 接</div>
<script type="text/javascript" src="Js/So.js"></script>
</div>
<div class="cal"></div>
<div id="So_Page">
<%
'生成页码
Dim PageShow1,PageShow2
If M_PageCount<10 Then
PageShow1=1
PageShow2=M_PageCount
End If
If M_PageCount>10 And M_PageNow<6 Then
PageShow1=1
PageShow2=10
End If
If M_PageCount>10 And (M_PageCount-M_PageNow)<5 Then
PageShow1=M_PageCount-10
PageShow2=M_PageCount
End IF
If M_PageCount>10 And (M_PageCount-M_PageNow)>5 And M_PageNow>=6 Then
PageShow1=M_PageNow-5
PageShow2=M_PageNow+4
End IF
If M_PageNow>1 Then
ii=M_PageNow-1
Response.Write(" <a href=""So.asp?Search_Str="&M_Str&"&Page="&ii&""" class=""So_Pages"" title=""上一页"" style=""width:60px;"">上一页</a> ")
End If
For i=PageShow1 To PageShow2
If i=M_PageNow Then
Response.Write(" <span id=""So_PageNow"">"&i&"</span> ")
Else
Response.Write(" <a href=""So.asp?Search_Str="&M_Str&"&Page="&i&""" title=""第"&i&"页"">"&i&"</a> ")
End If
Next
If M_PageNow<M_PageCount Then
ii=M_PageNow+1
Response.Write(" <a href=""So.asp?Search_Str="&M_Str&"&Page="&ii&""" title=""下一页"" style=""width:60px;"">下一页</a> ")
End If
%>
</div>
</div>
<form id="Searchs2" name="Searchs2" method="get" action="So.asp">
<div id="So_Search2">
影视搜索：<input name="Search_Str" value="<%=M_Str%>" type="text" id="Search_Input" maxlength="30" />
<input type="submit" name="Enter" id="Search_Button" value="搜索视频" />
</div>
</form>
<div id="So_Bottom">
本影视搜索结果来源自互联网，本站不对所搜索的内容负任何责任！
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -