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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
Search.Asp
资源名称：utifulstyleatmosphereFLASH.rar　[点击查看]
上传用户：mtjhgs
上传日期：2021-12-08
资源大小：3755k
文件大小：12k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

HTML/CSS

Search.Asp：源码内容
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
  2. <!--#include file="../Include/Const.asp" -->
  3. <!--#include file="../Include/NoHackSql.Asp" -->
  4. <!--#include file="../Include/ConnSiteData.asp" -->
  5. <%call SiteInfo
  6. headid=3
  7. %>
  8. <!--#include file="Head.Asp" -->
  9. <div class="clear"></div>
  10. <div id="contant">
  11.   <div class="cleft">
  13. <div class="news">
  14.       <div class="title">
  15.   &nbsp;<b>产品列表</b>
  16.   </div>
  17.   <div>
  18.   <ul>
  19.   <%call CallFolderView()%>
  20.   </ul>
  21.   </div>
  22.     </div>
  23. <div class="news">
  24.       <div class="title">
  25.   &nbsp;<b>热门产品</b>
  26.   </div>
  27.   <div>
  28.   <ul>
  29.   <%=Producthot(10)%>
  30.   </ul>
  31.   </div>
  32.     </div>
  33.   </div>
  34.   <div class="cright">
  35. <div class="crightb">
  36.   <div class="crightbtitle">
  37.     <div class="crightbtitlel">
  38. 当前位置：
  39. </div>
  40. <div class="crightbtitler">
  41. <%=WebLocation()%>
  42. </div>
  43.   </div>
  44.   <div class="crightbcontent">
  45.   <%=WebContent(trim(request("Keyword")),request("Range"))%></div>
  46. </div>
  47.   </div>
  48. </div>
  49. <!--#include file="Foot.Asp"-->
  50. <%
  51. '调用显示节点------------------------------
  52. Function CallFolderView()
  53. %>
  54. <% Folder(0) %>
  55. <%
  56. End Function
  57. '列出所有节点------------------------------
  58. Function Folder(id)
  59.   Dim rs,sql,i,ChildCount,FolderType,FolderName,onMouseUp,ListType,ViewFlag
  60.   Set rs=server.CreateObject("adodb.recordset")
  61.   sql="Select * From Wygkcnflash_ProductSort where ViewFlag"&Language&" and ParentID="&id&" order by id"
  62.   rs.open sql,conn,1,1
  63.   if id=0 and rs.recordcount=0 then
  64.     response.write ("No Information!")
  65.     response.end
  66.   end if  
  67.   i=1
  68.   response.write("<table border='0' cellspacing='0' cellpadding='0' style='margin-left:16px;'>")
  69.   while not rs.eof
  70.     ChildCount=conn.execute("select count(*) from Wygkcnflash_ProductSort where ParentID="&rs("id"))(0)
  71.     if ChildCount=0 then
  72.   if i=rs.recordcount then
  73.     FolderType="SortFileEnd"
  74.   else
  75.     FolderType="SortFile"
  76.   end if
  77.   FolderName=rs("SortNameCh")&"&nbsp;"&ViewFlag
  78.   onMouseUp=""
  79.     else
  80.   if i=rs.recordcount then
  81.   FolderType="SortEndFolderOpen"
  82. ListType="SortEndListline"
  83. onMouseUp="EndSortChange('a"&rs("id")&"','b"&rs("id")&"');"
  84.   else
  85. FolderType="SortFolderOpen"
  86. ListType="SortListline"
  87. onMouseUp="SortChange('a"&rs("id")&"','b"&rs("id")&"');"
  88.   end if
  89.   FolderName=rs("SortNameCh")&"&nbsp;"&ViewFlag
  90.     end if
  91.     response.write("<tr>")
  92.     response.write("<td nowrap id='b"&rs("id")&"' class='"&FolderType&"' onMouseUp="&onMouseUp&"></td><td nowrap><a href=""ProductList.asp?SortID="&rs("ID")&""">"&FolderName&"</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
  93.     response.write("</td></tr>")
  94.     if ChildCount>0 then
  95. %>
  96.       <tr id="a<%= rs("id")%>" style="display:none"><td class="<%= ListType%>" nowrap></td><td ><% Folder(rs("id")) %></td></tr>
  97. <%
  98.     end if
  99.     rs.movenext
  100.     i=i+1
  101.   wend
  102.   response.write("</table>")
  103.   rs.close
  104.   set rs=nothing
  105. end function
  106. function WebMenu(ParentID,i,level)
  107.   if request("Range")="Void" then
  108.  response.write "请选择搜索范围"
  109. exit function
  110. end if
  111.   dim rs,sql
  112.   set rs = server.createobject("adodb.recordset")
  113.   sql="select * from LiangJingCMS_"&request("Range")&"Sort where ViewFlag"&Language&" and ParentID="&ParentID&" order by ID asc"
  114.   rs.open sql,conn,1,1
  115.   if conn.execute("select ID from LiangJingCMS_"&request("Range")&"Sort Where ViewFlag"&Language&" and ParentID=0").eof then
  116.     response.write "暂无相关信息"
  117.   end if
  118.   do while not rs.eof
  119. if ParentID=0 then
  120.   response.write "<a href="""&request("Range")&"List.asp?SortID="&rs("ID")&""">"&rs("SortName"&Language)&"</a><br/>"
  121. else
  122.   response.write string(i,"　")&"<a href="""&request("Range")&"List.asp?SortID="&rs("ID")&""">"&rs("SortName"&Language)&"</a><br/>"
  123. end if
  124.     i=i+1
  125. if i<level then call WebMenu(rs("ID"),i,level)
  126. i=i-1
  127. rs.movenext
  128.   loop 
  129.   rs.close
  130.   set rs=nothing
  131. end function
  134. function WebLocation()
  135.   WebLocation="&nbsp;当前位置：<a href=""index.asp"" class=""agray"">首页</a> - 搜索 - "&VbCrLf
  136.   if request("Range")="Void" then
  137. WebLocation=WebLocation&"<center>请选择搜索范围</center>"
  138.     exit Function
  139.   elseif trim(request("Keyword")) ="" Then
  140.     WebLocation=WebLocation&"<font color=""red"">关键字为空</font>"
  141.   elseif request("Range")="Product" Then
  142.     WebLocation=WebLocation&"产品 - 关键字[<font color=""red"">"&trim(request("Keyword"))&"</font>]"
  143.   elseif request("Range")="News" Then
  144.     WebLocation=WebLocation&"新闻 - 关键字[<font color=""red"">"&trim(request("Keyword"))&"</font>]"
  145.   elseif request("Range")="Down" Then
  146.     WebLocation=WebLocation&"下载 - 关键字[<font color=""red"">"&trim(request("Keyword"))&"</font>]"
  147.   elseif request("Range")="Others" Then
  148.     WebLocation=WebLocation&"其他 - 关键字[<font color=""red"">"&trim(request("Keyword"))&"</font>]"
  149.   end if
  150. end Function
  152. function WebContent(Keyword,Range)
  153.   if Range="Void" then
  154.  response.write "<center>请选择搜索范围</center>"
  155.      exit function
  156.   end if
  157.   dim idCount
  158.   dim pages
  159.       pages=12
  160.   dim pagec
  161.   dim page
  162.       page=clng(request("Page"))
  163.   dim pagenc
  164.       pagenc=5
  165.   dim pagenmax
  166.   dim pagenmin
  167.   dim pageprevious
  168.   dim pagenext
  169.   dim datafrom
  170.   dim datawhere
  171.      select case Range
  172.   case "Product"
  173.         datafrom="Wygkcnflash_Products"
  174.         datawhere="where ViewFlag"&Language&" and ProductName"&Language&" like '%"&KeyWord&"%'"
  175.   case "News"
  176.         datafrom="Wygkcnflash_News"
  177.         datawhere="where ViewFlag"&Language&" and NewsName"&Language&" like '%"&KeyWord&"%'"
  178.   case "Down"
  179.         datafrom="Wygkcnflash_Download"
  180.         datawhere="where ViewFlag"&Language&" and DownName"&Language&" like '%"&KeyWord&"%'"
  181.   case "Others"
  182.         datafrom="Wygkcnflash_Others"
  183.         datawhere="where ViewFlag"&Language&" and OthersName"&Language&" like '%"&KeyWord&"%'"
  184.       end select
  185.   dim sqlid
  186.   dim Myself,PATH_INFO,QUERY_STRING
  187.       PATH_INFO = request.servervariables("PATH_INFO")
  188.   QUERY_STRING = request.ServerVariables("QUERY_STRING")'
  189.       if QUERY_STRING = "" then
  190.     Myself = PATH_INFO & "?"
  191.   elseif Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then
  192.     Myself= PATH_INFO & "?" & QUERY_STRING & "&"
  193.   else
  194.     Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1)
  195.   end if
  196.   dim taxis
  197.       taxis="order by id desc "
  198.   dim i
  199.   dim rs,sql
  200.   set rs = server.createobject("adodb.recordset")
  201.   sql="select count(ID) as idCount from ["& datafrom &"]" & datawhere
  202.   set rs=server.createobject("adodb.recordset")
  203.   rs.open sql,conn,0,1
  204.   idCount=rs("idCount")
  205.   if(idcount>0) then
  206.     if(idcount mod pages=0)then
  207.   pagec=int(idcount/pages)
  208.     else
  209.       pagec=int(idcount/pages)+1
  210.     end if
  211.     sql="select id from ["& datafrom &"] " & datawhere & taxis
  212.     set rs=server.createobject("adodb.recordset")
  213.     rs.open sql,conn,1,1
  214.     rs.pagesize = pages
  215.     if page < 1 then page = 1
  216.     if page > pagec then page = pagec
  217.     if pagec > 0 then rs.absolutepage = page
  218.     for i=1 to rs.pagesize
  219.   if rs.eof then exit for
  220.   if(i=1)then
  221.     sqlid=rs("id")
  222.   else
  223.     sqlid=sqlid &","&rs("id")
  224.   end if
  225.   rs.movenext
  226.     next
  227.   end if
  228.   if(idcount>0 and sqlid<>"") Then
  229.     sql="select * from ["& datafrom &"] where id in("& sqlid &") "&taxis
  230.     set rs=server.createobject("adodb.recordset")
  231.     rs.open sql,conn,0,1
  232. Response.Write "<table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&VbCrLf
  233. Response.Write "  <tr height=""32"">"&VbCrLf
  234. Response.Write "    <td width=""550"" style=""color:#FFFFFF; font-weight:bold; background:url(Images/split.gif) no-repeat right center; background-color:#abacaf"">&nbsp;&nbsp;&nbsp;&nbsp;信息标题</td>"&VbCrLf
  235. Response.Write "    <td align=""center"" bgcolor=""#ABACAF"" style=""color:#FFFFFF; font-weight:bold"">发布日期</td>"&VbCrLf
  236. Response.Write "  </tr>"&VbCrLf
  237.     while not rs.eof
  238.      select case Range
  239.   case "Product"
  240. Response.Write "  <tr height=""28"">"&VbCrLf
  241. Response.Write "    <td style=""background:url(Images/bg2.gif) repeat-x left bottom;"">&nbsp;<img src=""images/arr.gif"" width=""11"" height=""14"" align=""absmiddle"" />&nbsp;&nbsp;<a href=""ProductView.asp?ID="&rs("ID")&""">"&rs("ProductName"&Language)&"</a></td>"&VbCrLf
  242. Response.Write "    <td align=""center"" style=""background:url(Images/bg2.gif) repeat-x left bottom; color:#999999"">"&FormatDate(rs("UpdateTime"),13)&"</td>"&VbCrLf
  243. Response.Write "  </tr>"&VbCrLf
  244.   case "News"
  245. Response.Write "  <tr height=""28"">"&VbCrLf
  246. Response.Write "    <td style=""background:url(Images/bg2.gif) repeat-x left bottom;"">&nbsp;<img src=""images/arr.gif"" width=""11"" height=""14"" align=""absmiddle"" />&nbsp;&nbsp;<a href=""NewsView.asp?ID="&rs("ID")&""">"&rs("NewsName"&Language)&"</a></td>"&VbCrLf
  247. Response.Write "    <td align=""center"" style=""background:url(Images/bg2.gif) repeat-x left bottom; color:#999999"">"&FormatDate(rs("Addtime"),13)&"</td>"&VbCrLf
  248. Response.Write "  </tr>"&VbCrLf
  249.   case "Down"
  250. Response.Write "  <tr height=""28"">"&VbCrLf
  251. Response.Write "    <td style=""background:url(Images/bg2.gif) repeat-x left bottom;"">&nbsp;<img src=""images/arr.gif"" width=""11"" height=""14"" align=""absmiddle"" />&nbsp;&nbsp;<a href=""DownView.asp?ID="&rs("ID")&""">"&rs("DownName"&Language)&"</a>("&rs("FileSize")&")</td>"&VbCrLf
  252. Response.Write "    <td align=""center"" style=""background:url(Images/bg2.gif) repeat-x left bottom; color:#999999"">"&FormatDate(rs("Updatetime"),13)&"</td>"&VbCrLf
  253. Response.Write "  </tr>"&VbCrLf
  254.   case "Others"
  255. Response.Write "  <tr height=""28"">"&VbCrLf
  256. Response.Write "    <td style=""background:url(Images/bg2.gif) repeat-x left bottom;"">&nbsp;<img src=""images/arr.gif"" width=""11"" height=""14"" align=""absmiddle"" />&nbsp;&nbsp;<a href=""OtherView.asp?ID="&rs("ID")&""">"&rs("OthersName"&Language)&"</a></td>"&VbCrLf
  257. Response.Write "    <td align=""center"" style=""background:url(Images/bg2.gif) repeat-x left bottom; color:#999999"">"&FormatDate(rs("UpdateTime"),13)&"</td>"&VbCrLf
  258. Response.Write "  </tr>"&VbCrLf
  259.       end select
  260.   rs.movenext
  261.     wend
  262. Response.Write "</table>"&VbCrLf
  263.   else
  264.     response.write "<center>暂无相关信息</center>"
  265. exit function
  266.   end If
  267.   Response.Write "<table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&VbCrLf
  268.   Response.Write "  <tr height=""35"">"&VbCrLf
  269.   Response.Write "    <td align=""center"">"&VbCrLf
  270.   Response.Write "共<strong style=""color:red"">"&idcount&"</strong>条记录 页次：<strong style=""color:red"">"&page&"</strong>/"&pagec&" 每页：<strong style=""color:red"">"&pages&"</strong>条记录" & vbCrLf
  271.   pagenmin=page-pagenc
  272.   pagenmax=page+pagenc
  273.   if(pagenmin<1) then pagenmin=1
  274.   if(page>1) then response.write ("<a href=""search.asp?Page=1&Range="&request("Range")&"&KeyWord="&Keyword&""" title=""回到第一页""><font face=""webdings"" color=""#000000"">9</font></a> ")
  275.   if page-(pagenc*2+1)<=0 then
  276. pageprevious=1
  277.   else
  278. pageprevious=page-(pagenc*2+1)
  279.   end if
  280.   if(pagenmin>1) then response.write ("<a href=""search.asp?Page="& pageprevious &"&Range="&request("Range")&"&KeyWord="&Keyword&""" title=""第"& pageprevious &"页""><font face=""webdings"" color=""#000000"">3</font></a> ")
  281.   if(pagenmax>pagec) then pagenmax=pagec
  282.   for i = pagenmin to pagenmax
  283. if(i=page) then
  284.   response.write ("&nbsp;<strong style=""color:red"">"& i &"</strong>&nbsp;")
  285. else
  286.   response.write ("[<a href=""search.asp?Page="& i &"&Range="&request("Range")&"&KeyWord="&Keyword&""">"& i &"</a>]")
  287. end if
  288.   next
  289.   if page+(pagenc*2+1)>=pagec then
  290.     pagenext=pagec
  291.   else
  292.     pagenext=page+(pagenc*2+1)
  293.   end if
  294.   if(pagenmax<pagec) then response.write (" <a href=""search.asp?Page="& pagenext &"&Range="&request("Range")&"&KeyWord="&Keyword&""" title=""跳转到第"&pagenext&"页""><font face=""webdings"" color=""#999999"">:</font></a> ")
  295.   if(page<pagec) then response.write (" <a href=""search.asp?Page="& pagec &"&Range="&request("Range")&"&KeyWord="&Keyword&""" title=""跳转到第"&pagec&"页""><font face=""webdings"" color=""#000000"">:</font></a>")
  296.   Response.Write "    </td>"&VbCrLf
  297.   Response.Write "  </tr>"&VbCrLf
  298.   Response.Write "</table>"&VbCrLf
  299.   rs.close
  300.   set rs=nothing
  301. end function
  302. %>