开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 家庭/个人应用 > 查看源码
search.asp
资源名称：qnmov30.rar　[点击查看]
上传用户：qyswxdl
上传日期：2013-06-01
资源大小：1373k
文件大小：19k
源码类别：

家庭/个人应用

开发平台：

ASP/ASPX

search.asp：源码内容
  1. <!--#include file="articleconn.asp"-->
  2. <HTML><HEAD>
  3. <%set rs=conn.execute("select * from [home]")%>
  4. <TITLE><%=rs("homes")%></TITLE>
  5. <META http-equiv=Content-Type content="text/html; charset=gb2312">
  6. <LINK href="img/style.css" type=text/css rel=stylesheet>
  7. <META content="MSHTML 6.00.2800.1505" name=GENERATOR>
  8. <script language="JavaScript">
  9. <!--
  10. function checkinput()
  11. {
  12. if (document.search.keyword.value=="")
  13.  {
  14. alert("请输入想查询的内容！");
  15. document.search.keyword.focus();
  16. return false;
  17.  }
  18.  return true;
  19. }
  20. -->
  21. </script>
  22. <SCRIPT language=javascript>
  23. <!--
  24. function MM_openBrWindow(theURL,winName,features) { //v2.0
  25.   mediaWindow = window.open(theURL,winName,features);
  26.   mediaWindow.focus();
  27. }
  28. //-->
  29. </SCRIPT>
  30. <script language="javascript">kstatus();function kstatus(){self.status="<%=rs("Description")%>";setTimeout("kstatus()",0);}</script>
  32. <SCRIPT language=JavaScript1.2> 
  33. <!-- 
  34. function Show(divid) { 
  35. divid.filters.revealTrans.apply(); 
  36. divid.style.visibility = "visible"; 
  37. divid.filters.revealTrans.play(); 
  38. } 
  39. function Hide(divid) { 
  40. divid.filters.revealTrans.apply(); 
  41. divid.style.visibility = "hidden"; 
  42. divid.filters.revealTrans.play(); 
  43. } 
  44. //--> 
  45. </SCRIPT>
  46. <script>
  47. function OpenWindow(htmurl,widths,heights)
  48. {
  49.    var paramet = 'toolbar=no,resizable=no,scrollbars=no,width='+ widths + ',height=' + heights;
  50.    newWindow = window.open(htmurl,"yule21",paramet);
  51.    newWindow.focus();
  52. }
  53. </script>
  54.  <script>
  55. IEver=navigator.appVersion.substring(navigator.appVersion.indexOf('MSIE')+5,navigator.appVersion.indexOf(';',17));
  56. if(IEver=="6.0")
  57.     {
  58.       ie6 = true;
  59.       width_add = 10; 
  60.       height_add = 29;
  61.       hand_add = -14;
  62.     }
  63. else
  64.     {
  65.       ie6 = false;
  66.       width_add = 10;
  67.       height_add = 29;
  68.       hand_add = 14;
  69.     }
  70. function OpenWindow(PlayerURL)
  71. {
  72.   if (ie6)
  73. newwindow=window.open('','','fullscreen=0,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=-1');
  74.   else
  75. newwindow=window.open('','','fullscreen=0,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=-1');
  76. newwindow.moveTo(100,100);
  77. newwindow.resizeTo(440+width_add,428+height_add+hand_add);
  78. newwindow.focus();
  79. newwindow.location=PlayerURL;
  80. }
  81. function play(id)
  82. {
  83.     OpenWindow('look.asp?id1='+id);
  84. }
  86. </script></HEAD>
  87. <BODY >
  88. <!--#include file=top.asp-->
  89. <TABLE cellSpacing=0 cellPadding=0 width=993 border=0>
  90. <TBODY>
  91. <TR>
  92. <TD bgColor=#7d7d7d height=1></TD></TR></TBODY></TABLE>
  93. <TABLE cellSpacing=0 cellPadding=0 width=993 border=0>
  94. <TBODY>
  95. <TR>
  96. <TD bgColor=#ffffff height=2></TD></TR></TBODY></TABLE>
  97. <TABLE cellSpacing=0 cellPadding=0 width=993 bgColor=#ffffff border=0>
  98. <TBODY>
  99. <TR>
  100. <TD vAlign=top align=middle>
  101. <TABLE cellSpacing=0 cellPadding=0 width=977 border=0>
  102. <TBODY>
  103. <TR>
  104. <TD background=img/2.gif height=8></TD></TR></TBODY></TABLE>
  105. <TABLE cellSpacing=1 cellPadding=0 width=977 bgColor=#b7b7b7 border=0>
  106. <TBODY>
  107. <TR>
  108. <TD bgColor=#ffffff>
  109. <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  110. <TBODY>
  111. <TR>
  112. <TD>
  113. <TABLE height=94 cellSpacing=0 cellPadding=1 width="100%" border=0>
  114. <TBODY>
  115. <TR>
  116. <TD align=right width=189><IMG height=90 src="img/channel_title_movie.gif" width=188></TD>
  117. <TD>
  118. <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>
  119. <PARAM NAME="movie" VALUE="img/banner_780x90.swf">
  120. <PARAM NAME="quality" VALUE="High">
  121.  
  122. <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>
  123. <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  124. <TBODY>
  125. <TR>
  126. <TD background=img/1.jpg height=12></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
  127. <TABLE cellSpacing=0 cellPadding=0 width=977 border=0>
  128. <TBODY>
  129. <TR>
  130. <TD height=2></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
  131. <TABLE cellSpacing=0 cellPadding=0 width=993 bgColor=#ffffff border=0>
  132. <TBODY>
  133. <TR>
  134. <TD vAlign=top align=middle height=173>
  135. <TABLE height=36 cellSpacing=0 cellPadding=0 width=977 border=0>
  136. <TBODY>
  137. <TR>
  138. <TD vAlign=top width=191 height=25>
  139. <!--#include file=left.asp--></TD>
  140. <TD width=2 valign="top"></TD>
  141. <TD width=1 bgColor=#c6c6c6 valign="top"></TD>
  142. <TD vAlign=top width=783>
  143. <TABLE cellSpacing=0 cellPadding=0 width=783 border=0>
  144. <TBODY>
  145. <TR>
  146. <TD><A href="/bfqxz/RealPlayer.exe"><IMG height=60 src="img/dl_01.jpg" width=179 border=0></A></TD>
  147. <TD><A href="/bfqxz/Windows Media Player.exe"><IMG height=60 src="img/dl_02.jpg" width=171 border=0></A></TD>
  148. <TD><A href="/bfqxz/ffdshow.exe"><IMG height=60 src="img/dl_03.jpg" width=168 border=0></A></TD>
  149. <TD><A href="/bfqxz/ie6setup.exe"><IMG height=60 src="img/dl_04.jpg" width=160 border=0></A></TD>
  150. <TD><A href="#"><IMG height=60 src="img/dl_05.jpg" width=105 border=0></A></TD></TR></TBODY></TABLE>
  151. <TABLE height=40 cellSpacing=0 cellPadding=0 width="100%" background=img/5.gif border=0>
  152. <TBODY>
  153. <TR>
  154. <TD width=116 valign="top">
  155. <img border="0" src="img/19.gif" width="116" height="32"></TD>
  156. <TD align=right><TABLE height=24 cellSpacing=0 cellPadding=0 border=0>
  157. <TBODY>
  158. <TR>
  159. <TD width=2><img src height=1 width=2></TD>
  160. </TR></TBODY></TABLE></TD>
  161. <TD align=right valign="top"><IMG height=31 src="img/7.gif" width=83></TD></TR></TBODY></TABLE>
  162. <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0><TBODY><TR align=right>
  163. <TD><table border="0" cellspacing="0" width="100%" cellpadding="0" id="table8">
  164.   <tr bordercolor="#111111">
  165.     <TD vAlign=top align=left><table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
  166.         <tr>
  167.           <td colspan="2"><%
  168.    dim rstype
  169.    dim typesql
  170.    dim okname,typename1
  171.    '---------------------------search----------------------
  172. name=trim(request("keyword"))
  173. name=replace(name,"'","''")
  174. 'Response.Write name
  175. if request("typeid")="片名" then
  176.     sql="select * from learning where title Like '%"& name &"%' or title like title Like '%"& name &"%' or title Like '%"& name &"%'order by articleid desc"
  177. else
  178.    sql="select * from learning where name Like '%"& name &"%' or name like name Like '%"& name &"%' or name Like '%"& name &"%'order by articleid desc"
  179. end if   
  180. set rs=conn.execute(sql)
  181. 'Rsponse.Write  rs.RecordCount 
  182. if name="" then
  183.    'response.redirect"index.asp"
  184.    response.write"<script>alert('查找字符不能为空格，请重输入查找的内容！请您返回重查');</Script><script Language=Javascript>location.href = '';</script>"
  185.    response.end
  186.  elseif rs.eof then
  187.    response.write"<script>alert('对不起，暂时还没有你要查找的演员或影片! 请您返回重查');</Script><script Language=Javascript>location.href = '';</script>"
  188.    response.end
  189. else   
  190.   Set rs= Server.CreateObject("ADODB.Recordset")
  191.   rs.open sql,conn,1,1
  192.    'set rs=server.createobject("ADODB.recordset")
  193.    'rs.open sql,conn
  194.   'searchsub rs
  195. end if  
  196. %>
  197.               <%
  198.    const MaxPerPage=6
  199.    dim totalPut   
  200.    dim CurrentPage
  201.    dim TotalPages
  202.    dim i,j
  203.    dim typename
  204.       typename="软件搜索结果"
  205.    if not isempty(request("page")) then
  206.       currentPage=cint(request("page"))
  207.    else
  208.       currentPage=1
  209.    end if
  210.        set rst=server.CreateObject("ADODB.RecordSet") 
  211.    %>
  212.               <%      
  213.        '  dim sql
  214. 'dim rs
  215. 'if request("hits")="1" then
  216.   ' sql="select * from learning order by hits desc"     
  217. 'else
  218.   ' sql="select * from learning order by articleid desc"
  219. 'end if   
  220. 'Set rs= Server.CreateObject("ADODB.Recordset")
  221. 'rs.open sql,conn,1,1
  222.   if rs.eof and rs.bof then
  223.        response.write "<script>alert('暂时还没有您要找的影片，请与管理员联系！')</Script>"
  224.    response.end
  225.    else
  226.   totalPut=rs.recordcount
  227.       totalPut=rs.recordcount
  228.       if currentpage<1 then
  229.           currentpage=1
  230.       end if
  231.       if (currentpage-1)*MaxPerPage>totalput then
  232.    if (totalPut mod MaxPerPage)=0 then
  233.      currentpage= totalPut  MaxPerPage
  234.    else
  235.       currentpage= totalPut  MaxPerPage + 1
  236.    end if
  237.       end if
  238.        if currentPage=1 then
  239.            showpage totalput,MaxPerPage,"search.asp"
  240.             showContent
  241.             showpage totalput,MaxPerPage,"search.asp"
  242.        else
  243.           if (currentPage-1)*MaxPerPage<totalPut then
  244.             rs.move  (currentPage-1)*MaxPerPage
  245.             dim bookmark
  246.             bookmark=rs.bookmark
  247.            showpage totalput,MaxPerPage,"search.asp"
  248.             showContent
  249.             showpage totalput,MaxPerPage,"search.asp"
  250.         else
  251.         currentPage=1
  252.           showpage totalput,MaxPerPage,"search.asp"
  253.            showContent
  254.            showpage totalput,MaxPerPage,"search.asp"
  255.       end if
  256.    end if
  257.    end if
  258.    sub showContent
  261. 'Split("Sun,Mon,Tue,Wed,Thu,Fri,Sat",",")
  262. BgImg1 = "06,04,08,09"
  263. BgImg2 = "12,11,14,15"
  265.        dim i
  266.    i=0
  267.                     %>
  268.               <%i=0
  269.           do while not rs.eof
  270. If i mod 2 = 0 Then MyBgImg = BgImg1 Else MyBgImg = BgImg2
  271. MyBgImg = Split(MyBgImg,",")
  272. %>
  273.           </td>
  274.         </tr>
  275.         <tr>
  276.           <td width="374" valign="top"><table width="295" height="100%" border="0" cellspacing="1" cellpadding="5" bgcolor="#DBDBDB">
  277.               <tr>
  278.                 <td bgcolor="#ffffff" width="110"><a target="_blank" title="影片名称:<%=rs("title")%>
  279. 主演：<%content=rs("name")
  280.                           if len(content)>8 then content=left(content,8)&"?-"
  281.                           response.write content
  282.                             %>
  283. 上传时间：<%=rs("dateandtime")%>
  284. 观看次数：<%=rs("hits")%>′?
  285. 站长：<%=webname%>
  286. " href="movie.asp?id=<%=rs("articleid")%>"><img border="0" height="152" src="<%if rs("domurl")="" then%>img/w.gif<%else%><%=rs("domurl")%><%end if%>" width="110"></a></td>
  287.                 <td bgcolor="#ffffff" valign="top"><table width="100%" height="100%" border="0" cellspacing="0" cellpadding="2">
  288.                     <tr>
  289.                       <td align="center" bgcolor="#E9E9E9"><span class="style2"></span></td>
  290.                       <td colspan="2" align="center" bgcolor="#E9E9E9"><div align="left"><span class="style2"> <strong> <span class="3dfont2"></span></strong><strong><span class="3dfont2"><a target="_blank" title="影片名称:<%=rs("title")%>
  291. 主演：<%content=rs("name")
  292.                           if len(content)>8 then content=left(content,8)&"?-"
  293.                           response.write content
  294.                             %>
  295. 上传时间：<%=rs("dateandtime")%>
  296. 观看次数：<%=rs("hits")%>′?
  297. 站长：<%=webname%>" href="movie.asp?id=<%=rs("articleid")%>"><strong>
  298.                           <%content=rs("title")
  299.                           if len(content)>13 then content=left(content,13)&""
  300.                           response.write content
  301.                             %>
  302.                       </strong></a></span> </strong></span></div></td>
  303.                     </tr>
  304.                     <tr>
  305.                       <td colspan="3">类别： <%=rs("typeid")%></td>
  306.                     </tr>
  307.                     <tr>
  308.                       <td colspan="3">主演：
  309.                           <%content=rs("name")
  310.                           if len(content)>5 then content=left(content,5)&"?-"
  311.                           response.write content
  312.                             %></td>
  313.                     </tr>
  314.                     <tr>
  315.                       <td colspan="3">级别：
  316.                           <% if rs("canlook")=1 then%>
  317.                       普通电影
  318.                       <%elseif rs("canlook")=3 then%>
  319.                       黄金电影
  320.                       <%elseif rs("canlook")=0 then%>
  321.                       免费电影
  322.                       <%end if%></td>
  323.                     </tr>
  324.                     <tr>
  325.                       <td colspan="3">观看：<%=rs("hits")%>次</td>
  326.                     </tr>
  327.                     <tr>
  328.                       <td width="10%" align="center">　</td>
  329.                       <td width="45%" align="center"><div align="left"><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank"><img src="images/online.gif" width="82" height="23" border="0"></a> </div></td>
  330.                       <td width="45%" align="center"><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank"><img src="images/download.gif" width="82" height="23" border="0"></a></td>
  331.                     </tr>
  332.                 </table></td>
  333.             </table>
  334.               <%rs.movenext%></td>
  335.           <td width="396"><% If not rs.eof Then %>
  336.               <table width="295" height="100%" border="0" cellspacing="1" cellpadding="5" bgcolor="#DBDBDB">
  337.                 <tr>
  338.                   <td bgcolor="#ffffff" width="110"><a target="_blank" title="影片名称:<%=rs("title")%>
  339. 主演：<%content=rs("name")
  340.                           if len(content)>8 then content=left(content,8)&"?-"
  341.                           response.write content
  342.                             %>
  343. 上传时间：<%=rs("dateandtime")%>
  344. 观看次数：<%=rs("hits")%>′?
  345. 站长：<%=webname%>
  346. " href="movie.asp?id=<%=rs("articleid")%>"><img border="0" height="152" src="<%if rs("domurl")="" then%>img/w.gif<%else%><%=rs("domurl")%><%end if%>" width="110"></a></td>
  347.                   <td bgcolor="#ffffff" valign="top"><table width="100%" height="100%" border="0" cellspacing="0" cellpadding="2">
  348.                       <tr>
  349.                         <td align="center" bgcolor="#E9E9E9"><span class="style2"></span></td>
  350.                         <td colspan="2" align="center" bgcolor="#E9E9E9"><div align="left"><span class="style2"> <strong> <span class="3dfont2"></span></strong><strong><span class="3dfont2"><a target="_blank" title="影片名称:<%=rs("title")%>
  351. 主演：<%content=rs("name")
  352.                           if len(content)>8 then content=left(content,8)&"?-"
  353.                           response.write content
  354.                             %>
  355. 上传时间：<%=rs("dateandtime")%>
  356. 观看次数：<%=rs("hits")%>′?
  357. 站长：<%=webname%>" href="movie.asp?id=<%=rs("articleid")%>"><strong>
  358.                             <%content=rs("title")
  359.                           if len(content)>13 then content=left(content,13)&""
  360.                           response.write content
  361.                             %>
  362.                         </strong></a></span> </strong></span></div></td>
  363.                       </tr>
  364.                       <tr>
  365.                         <td colspan="3">类别： <%=rs("typeid")%></td>
  366.                       </tr>
  367.                       <tr>
  368.                         <td colspan="3">主演：
  369.                             <%content=rs("name")
  370.                           if len(content)>5 then content=left(content,5)&"?-"
  371.                           response.write content
  372.                             %></td>
  373.                       </tr>
  374.                       <tr>
  375.                         <td colspan="3">级别：
  376.                             <% if rs("canlook")=1 then%>
  377.                       普通电影
  378.                       <%elseif rs("canlook")=3 then%>
  379.                       黄金电影
  380.                       <%elseif rs("canlook")=0 then%>
  381.                       免费电影
  382.                       <%end if%></td>
  383.                       </tr>
  384.                       <tr>
  385.                         <td colspan="3">观看：<%=rs("hits")%>次</td>
  386.                       </tr>
  387.                       <tr>
  388.                         <td width="10%" align="center">　</td>
  389.                         <td width="45%" align="center"><div align="left"><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank"><img src="images/online.gif" width="82" height="23" border="0"></a> </div></td>
  390.                         <td width="45%" align="center"><a href="movie.asp?id=<%=rs("articleid")%>" target="_blank"><img src="images/download.gif" width="82" height="23" border="0"></a></td>
  391.                       </tr>
  392.                   </table></td>
  393.               </table>
  394.               <%rs.movenext%>
  395.           </td>
  396.         </tr>
  397.         <tr>
  398.           <% End If %>
  399.         </tr>
  400.         <tr>
  401.           <td colspan="2"><% i=i+2
  402.       if i>=MaxPerPage then exit do
  403.    loop
  404.               %>
  405.           </td>
  406.         </tr>
  407.       </table>
  408.         <%
  409. end sub 
  411. function showpage(totalnumber,maxperpage,filename)
  412. dim n
  413. if totalnumber mod maxperpage=0 then
  414. n= totalnumber  maxperpage
  415. else
  416. n= totalnumber  maxperpage+1
  417. end if
  418. %>
  419.         <table border="0" cellspacing="0" height="25" width="591" background="images/top-bg3.gif">
  420.           <form method=Post action="<%=filename%>?typeid=<%=typeid%>">
  421.             <tr>
  422.               <td>&nbsp;&nbsp;     
  423.               <font color="000000" class="fontshadow">〓 <%=typeid%> 〓&nbsp;&nbsp;共有<font color="ff0000"><b><%=totalnumber%></b></font>部&nbsp;&nbsp;&nbsp;当前:第<font color="ff0000"><strong><%=CurrentPage%></strong></font>页/共<font color="ff0000"><strong><%=n%></strong></font>页
  424.               <td><div align="right">
  425.                   <%if CurrentPage<2 then%>
  426.                   <font color="888888">首页&nbsp;上一页&nbsp;&nbsp;&nbsp;
  427.                   <%else%>
  428.                   <a class=left href="<%=filename%>?typeid=<%=typeid%>&page=1&"><font color="000000">首页</font></a><font color="000000">&nbsp; <a class=left href="<%=filename%>?typeid=<%=typeid%>&page=<%=CurrentPage-1%>"><font color="000000">上一页</font></a><font color="000000">&nbsp;&nbsp;&nbsp;
  429.                   <%
  430. end if
  431. if n-currentpage<1 then
  432. %>
  433.                   <font color="888888">下一页&nbsp;尾页&nbsp;&nbsp;&nbsp;
  434.                   <%else%>
  435.                   <a class=left href="<%=filename%>?typeid=<%=typeid%>&page=<%=(CurrentPage+1)%>"><font color="000000">下一页</font></a><font color="000000">&nbsp; <a class=left href="<%=filename%>?typeid=<%=typeid%>&page=<%=n%>"><font color="000000">尾页</font></a><font color="000000">&nbsp;
  436.                   <%end if%>
  437.                 </font></font></font></font></font></font></div>
  438.               <font color="888888"><font color="000000"><font color="000000"><font color="888888"><font color="000000"><font color="000000">
  439.               <td align="center"><select name="page" style="color:#000000;font-size: 9pt" onchange="javascript:submit()">
  440.                   <%for i = 1 to n%>
  441.                   <option value="<%=i%>" <%if cint(CurrentPage)=cint(i) then%> selected <%end if%>>第<%=i%>页</option>
  442.                   <%next%>
  443.               </select></td>
  444.             </font></font></font></font></font></font></font></tr>
  445.           </form>
  446.         </table>
  447.         <% 
  448. end function
  449. %>
  450.         <%
  451. sub gotopage
  452. end sub
  453. %>
  454.     
  455. <tr>
  456. <td>&nbsp; </td>
  457. </tr>
  458. </table>
  462. </TD>
  463. </TR></TBODY></TABLE>
  464. </TD>
  465. </TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
  466. <!--#include file=bottom.asp-->
  467. </BODY></HTML>