find.asp

视频源代码 视频源代码

<%response.expires=0%>
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/vip.asp"-->
<!--#include file="../inc/category.asp"-->
<!--#include file="category.asp"-->
<!--#include file="path.asp"-->
<!--#include file="../inc/head.asp"-->
<%
find	= request("find")
id	= strFilter(request("id"),8)
title	= strFilter(request("title"),50)
source	= strFilter(request("source"),50)
content	= strFilter(request("content"),50)
size	= strFilter(request("size"),10)
if not isnumeric(size) then size=""
oneyear	= strFilter(request("onedateyear"),4)
onemonth= strFilter(request("onedatemonth"),2)
oneday	= strFilter(request("onedateday"),2)
twoyear	= strFilter(request("twodateyear"),4)
twomonth= strFilter(request("twodatemonth"),2)
twoday	= strFilter(request("twodateday"),2)
if not isnumeric(oneyear) then oneyear=""
if not isnumeric(onemonth) then onemonth=""
if not isnumeric(oneday) then oneday=""
if not isnumeric(twoyear) then twoyear=""
if not isnumeric(twomonth) then twomonth=""
if not isnumeric(twoday) then twoday=""
if Session("findoneyear")="" then
  Session("findoneyear")=2002
  Session("findonemonth")=1
  Session("findoneday")=1
  Session("findtwoyear")=year(now)
  Session("findtwomonth")=month(now)
  Session("findtwoday")=day(now)
end if
if oneyear<>"" and onemonth<>"" and oneday<>"" then
  starttime	= formatdatetime(oneyear & "-" & onemonth & "-" & oneday,2)
  starttime	= year(starttime)*365+month(starttime)*30+day(starttime)
  Session("findoneyear")=oneyear
  Session("findonemonth")=onemonth
  Session("findoneday")=oneday
end if
if twoyear<>"" and twomonth<>"" and twoday<>"" then
  endtime	= formatdatetime(twoyear & "-" & twomonth & "-" & twoday,2)
  endtime	= year(endtime)*365+month(endtime)*30+day(endtime)
  Session("findtwoyear")=twoyear
  Session("findtwomonth")=twomonth
  Session("findtwoday")=twoday
end if
pic	= len(strFilter(request("pic"),1))
cate	= len(strFilter(request("cate"),1))
key	= strFilter(request("key"),8)
if find="" then
%>

<script src="../js/position.js"></script>
<script src="../js/date.js"></script>
<script src="../js/datescope.js"></script>
<table border="0" align="center" width="50%" cellpadding="1" cellspacing="1">
  <tr bgcolor="EFEFEF"><th colspan="2" height="20">超　级　搜　索　器</th></tr>
<form method="POST" action="find.asp" autocomplete="off">
  <tr bgcolor="FFFFFF"><th width="20%" bgcolor="f7f7f7"><input type="radio" name="key" value="id" title="按编号排列"<%if Session("findkey")="id" then%> checked<%end if%>>栏　目</th><td width="70%"><input type="hidden" name="id" value="<%=categoryid%>"><%=cname%></td></tr>
  <tr bgcolor="FFFFFF"><th bgcolor="f7f7f7">&nbsp;　下　级</th><td><select name=subject><option>共 <%=categoryselectitemnum&" 下级"&categoryselect%></select></td></tr>
  <tr bgcolor="FFFFFF"><th bgcolor="f7f7f7"><input type="radio" name="key" value="title" title="按主题排列"<%if Session("findkey")="title" then%> checked<%end if%>>主　题</th><td><input class="text" type="text" name="title" value="<%=Session("findtitle")%>">　多条件用"<font color=red>,</font>"分隔</td></tr>
  <tr bgcolor="FFFFFF"><th bgcolor="f7f7f7"><input type="radio" name="key" value="source" title="按来源排列"<%if Session("findkey")="source" then%> checked<%end if%>>来　源</th><td><input class="text" type="text" name="source" value="<%=Session("findsource")%>">　多条件用"<font color=red>,</font>"分隔</td></tr>
  <tr bgcolor="FFFFFF"><th bgcolor="f7f7f7">&nbsp;　内　容</th><td><input class="text" type="text" name="content" value="<%=Session("findcontent")%>">　多条件用"<font color=red>,</font>"分隔</td></tr>
  <tr bgcolor="FFFFFF"><th bgcolor="f7f7f7"><input type="radio" name="key" value="source" title="按时间排列"<%if Session("findkey")="otime" then%> checked<%end if%>>时　间</th><td nowrap>
<iframe name=daysOfMonth scrolling="no" frameborder="0" style="position:absolute;visibility:hidden;background:eaeaea;width:180;height:130;z-index:10000"></iframe>
<span id=one name=one onmouseup="setbirthday('daysOfMonth','one',2,22)"><input type="text" name="onedateyear" style="width:26;border-left:1 solid buttonface; border-top:1 solid buttonface; border-bottom:1 solid buttonface; border-right:1 none; cursor:hand" value="<%=Session("findoneyear")%>" readonly><input type="text" style="width:5;border-top:1 solid buttonface; border-bottom:1 solid buttonface; border-left:1 none; border-right:1 none" value="-" readonly><input type="text" name="onedatemonth" style="width:16;border-top:1 solid buttonface; border-bottom:1 solid buttonface; border-left:1 none; border-right:1 none; text-align:right; cursor:hand" value="<%=Session("findonemonth")%>" readonly><input type="text" style="width:5;border-top:1 solid buttonface; border-bottom:1 solid buttonface; border-left:1 none; border-right:1 none" value="-" readonly><input type="text" name="onedateday" style="width:18;border-right:1 solid buttonface; border-top:1 solid buttonface; border-bottom:1 solid buttonface; border-left:1 none; text-align:right; cursor:hand" value="<%=Session("findoneday")%>" readonly></span>
<b>～</b>
<span id=two name=two onmouseup="setbirthday('daysOfMonth','two',2,22)"><input type="text" name="twodateyear" style="width:26;border-left:1 solid buttonface; border-top:1 solid buttonface; border-bottom:1 solid buttonface; border-right:1 none; cursor:hand" value="<%=Session("findtwoyear")%>" readonly><input type="text" style="width:5;border-top:1 solid buttonface; border-bottom:1 solid buttonface; border-left:1 none; border-right:1 none" value="-" readonly><input type="text" name="twodatemonth" style="width:16;border-top:1 solid buttonface; border-bottom:1 solid buttonface; border-left:1 none; border-right:1 none; text-align:right; cursor:hand" value="<%=Session("findtwomonth")%>" readonly><input type="text" style="width:5;border-top:1 solid buttonface; border-bottom:1 solid buttonface; border-left:1 none; border-right:1 none" value="-" readonly><input type="text" name="twodateday" style="width:18;border-right:1 solid buttonface; border-top:1 solid buttonface; border-bottom:1 solid buttonface; border-left:1 none; text-align:right; cursor:hand" value="<%=Session("findtwoday")%>" readonly></span>
  </td></tr>
  <tr bgcolor="FFFFFF"><th bgcolor="f7f7f7"><input type="radio" name="key" value="source" title="按字节排列"<%if Session("findkey")="size" then%> checked<%end if%>>字　节</th><td><input class="text" type="text" name="size" size="16" value="<%=Session("findsize")%>">　数字</td></tr>
  <tr bgcolor="FFFFFF"><th bgcolor="f7f7f7">&nbsp;　图　片</th><td><input type="checkbox" name="pic" value="1"<%if Session("findpic")=true then%> checked<%end if%>>含图片　　　　　　　　<input class=button type=submit name="find" value="　搜　索　"></td></tr>
  <tr bgcolor="FFFFFF"><th bgcolor="f7f7f7">&nbsp;　范　围</th><td><input type="checkbox" name="cate" value="1"<%if Session("findcate")=true then%> checked<%end if%><%if categoryselectitemnum=0 then%> disabled<%end if%>>含下级　　　　　　　　<input class=button type=button value="　返　回　" onclick="history.go(-1);"></td></tr>
  <tr bgcolor="FFFFFF"><td colspan="2" align="right"><font style="color:888888">Copyright ZWCITY.COM</a></td></tr>
</form>
</table>

<%
  response.end
end if

if cate=1 then
  Session("findcate")=true
  sqlcategory=" categoryid like '%."&categoryid&".%' "
  sql="select categoryid,categoryname from category where categoryindex like '"&nindex&".%' order by categoryid ASC"
  rs.open sql,conn,1,1
  if not rs.eof then
    categoryselectitem=rs.getrows
  end if
  rs.close
  if isarray(categoryselectitem) then
    for i=0 to ubound(categoryselectitem,2)
      if categoryselectitem(0,i)><categoryid then
        sqlcategory=sqlcategory&" and categoryid like '%."&categoryselectitem(0,i)&".%' "
      end if
    next
    Set categoryselectitem = nothing
  end if
else
  Session("findcate")=false
  sqlcategory=" categoryid like '%."&categoryid&".%' "
end if
if title<>"" then
  Session("findtitle")=title
  title=split(titlearr,",")
  if isarray(titlearr) then
    titlenum=ubound(titlearr,1)
    if titlenum>0 then
      for i=0 to titlenum
        sqltitle=sqltitle&" or title like '%"&titlearr(i)&"%' "
      next
      sqltitle=" and ( " & sqltitle & " ) "
    else
      sqltitle=" and title like '%"&titlearr(0)&"%' "
    end if
  end if
  Set titlearr=nothing
else
  Session("findtitle")=""
end if
if source<>"" then
  Session("findsource")=source
  source=split(sourcearr,",")
  if isarray(sourcearr) then
    sourcenum=ubound(sourcearr,1)
    if sourcenum>0 then
      for i=0 to sourcenum
        sqlsource=sqlsource&" or source like '%"&sourcearr(i)&"%' "
      next
      sqlsource=" and ( " & sqlsource & " ) "
    else
      sqlsource=" and source like '%"&sourcearr(0)&"%' "
    end if
  end if
  Set sourcearr=nothing
else
  Session("findsource")=""
end if
if content<>"" then
  Session("findcontent")=content
  content=split(contentarr,",")
  if isarray(contentarr) then
    contentnum=ubound(contentarr,1)
    if contentnum>0 then
      for i=0 to contentnum
        sqlcontent=sqlcontent&" or content like '%"&contentarr(i)&"%' "
      next
      sqlcontent=" and ( " & sqlcontent & " ) "
    else
      sqlcontent=" and content like '%"&contentarr(0)&"%' "
    end if
  end if
  Set contentarr=nothing
else
  Session("findcontent")=""
end if
if starttime<>"" then
  if endtime="" then
    sqlotime=" and year(otime)*365+month(otime)*30+day(otime) = "&starttime&" "
  else
    sqlotime=" and year(otime)*365+month(otime)*30+day(otime) < "&endtime&" and year(otime)*365+month(otime)*30+day(otime) > "&starttime&" "
  end if
end if
if size<>"" then
  Session("findsize")=size
  if size>0 then sqlsize=" and csize > "&size&" "
else
  Session("findsize")=""
end if
if pic=1 then
  Session("findpic")=true
  if db="" then
    if pic>0 then sqlpic=" and pic = 1 "
  else
    if pic>0 then sqlpic=" and pic = true "
  end if
else
  Session("findpic")=false
end if
if key<>"" then
  Session("findkey")=key
  sqlorder="order by "&key&" DESC"
else
  Session("findkey")=""
  sqlorder="order by id DESC"
end if

findsql="select id,title,pic,source,csize,path,otime,categoryid from news where "
findsql=findsql & sqlcategory & sqltitle & sqlsource & sqlcontent & sqlotime & sqlsize & sqlpic & sqlorder
findsql=replace(findsql,"  "," ")
findsql=replace(findsql,"where and","where ")
findsql=replace(findsql,"( or","(")
findsql=replace(findsql,"where order","order")

page=strFilter(request("page"),10)
if page="" then page=1
if not isnumeric(page) then page=1 else page=CCur(page)
'sql="select id,title,pic,source,csize,path,otime,categoryid from news where categoryid like '%."&categoryid&".%' order by id DESC"
rs.open findsql,conn,1,1
AllNum		=rs.recordcount
rs.pagesize	=18
MaxPage		=rs.pagecount
if not rs.eof then
  if page<=MaxPage then
    rs.absolutepage=page
  else
    rs.absolutepage=MaxPage
    page	=maxpage
  end if
  newslist	=rs.getrows(18)
end if
rs.close
if page>AllNum then page=100

Set rs=nothing
Set conn=nothing
%>

<table border="0" align="center" width="100%" cellpadding="2" cellspacing="1">
  <tr><td colspan="8"><font style="color:FFFFFF"><a href="../category/class.asp" style="color:FFFFFF">分类列表</a>　>>　<%=tophtml%>新闻管理</font></td></tr>
  <tr bgcolor="EFEFEF"><th width="10%">ID</th><th width="40%">主题</th><th width="10%">来源</td><th width="10%">字节</td><th width="15%">时间</td><th colspan="3" nowrap>进行操作</td></tr>
<%
if isarray(newslist) then
  for i=0 to ubound(newslist,2)
%>
  <tr bgcolor="FFFFFF" onmouseover="this.style.background='EFEFEF';" onmouseout="this.style.background='FFFFFF';">
    <th title="所属分类：&#13;&#10;<%
if newslist(7,i)><"" then
  newssort=split(newslist(7,i),".")
  if isarray(newssort) then
    for j=1 to ubound(newssort,1)-1 step 2
response.write "&#13;&#10;　"&newssort(j+1)
    next
  end if
end if%>"><%=newslist(0,i)%></th>
    <td nowrap><a href="../news/id.asp?id=<%=newslist(0,i)%>" target="hidden" title="主题：<%=newslist(1,i)&"&#10;&#10;路径：news/news.asp?id="&newslist(0,i)&"&#13;&#10;　　　"&newslist(5,i)&newslist(0,i)&".htm"%>"><%=newslist(1,i)%></a><%if newslist(2,i)=true then%>[<font color=orange>图</font>]<%end if%></td>
    <td nowrap><%=newslist(3,i)%></td>
    <td align=right nowrap><%=formatnumber(newslist(4,i),0,0)%>&nbsp;</td>
    <td align=right nowrap><%=newslist(6,i)%></td>
    <th nowrap><a href="javascript:openwin('../news/mov.asp?id=<%=newslist(0,i)%>','move',400,150);">关系</a></th>
    <th nowrap><a href="../news/chg.asp?id=<%=newslist(0,i)%>">编辑</a></th>
    <th nowrap><a href="../news/del.asp?id=<%=newslist(0,i)%>">删除</a></th>
  </tr>
<%
  next
  for i=ubound(newslist,2) to 16
    response.write "  <tr bgcolor=""FFFFFF""><td>　</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td></tr>"&vbcrlf
  next
  Set newslist=nothing
else
  for i=0 to 16
    response.write "<tr bgcolor=""FFFFFF""><td>　</td><td></td><td></td><td></td><td></td><td></td><td></td><td></td></tr>"
  next
end if
%>
</table>
<script src="../js/page.js"></script>
<script>page('../news/find.asp?categoryid=<%=categoryid%>&find=yes&id=<%=id%>&title=<%=title%>&source=<%=source%>&size=<%=size%>&onedateyear=<%=oneyear%>&onedatemonth=<%=onemonth%>&onedateday=<%=oneday%>&twodateyear=<%=twoyear%>&twodatemonth=<%=twomonth%>&twodateday=<%=twoday%>&pic=<%=pic%>&cate=<%=cate%>&key=<%=key%>',<%=AllNum%>,<%=MaxPage%>,<%=Page%>,0);</script>
<iframe name="hidden" width="100%" height="0" frameborder="0"></iframe>

<!--#include file="../inc/foot.asp"-->