jssearch.asp

这是一个asp的“www.vqqq.com网页特效”系统

<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/format.asp"-->
<!--#include file="inc/error.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/js_body.asp"-->


<%
call head()
call menu()
'sub js_body()
sql="select * from script_type"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<TABLE bgcolor="#ffffff" align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="<%=border%>" frame=vsides rules=none>
<TBODY>
<TR>
<td height="30" align="left" background="img/fzw.gif">&nbsp;<img src=img/none.gif border=0><img src=img/link2.gif border='0'>&nbsp;<a href="index.asp"><font color=blue>&nbsp;首&nbsp;&nbsp;页&nbsp;</font></a>
<%
dim aa,aaa
aa=0
aaa=0
do while not rs.eof
%>
&nbsp;<img src=img/none.gif border=0><img src=img/link2.gif border='0'>&nbsp;<a href="js.asp?jscat_id=<%=rs("id")%>"><%=rs("type")%>
</a>
<%
rs.movenext
aa=aa+1
aaa=aaa+1
if aaa=1 or aaa=2 or aaa=3 or aaa=3 or aaa=12 or aaa=15 then response.write "&nbsp;"
if aa=9 or aa=19 or aa=29 then response.write "<br>"
loop

if rs.bof and rs.eof then%>当前没有分类<%end if%>
&nbsp;</TD>

</TR>
<TR>
<TD width="760" background="img/menu_bg2.gif" height="4"></TD>
</TR>
</TBODY>
</TABLE>
<TABLE align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="<%=border%>" frame=vsides rules=none>
<TBODY>
<TR>
<td width=204 align=left vAlign=top background=img/left_bg.gif>
<TABLE width=196 border=0 align=left cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<td align=center height="34" background="img/left.gif"><strong>点 击 排 行</strong></td>
</tr>
<TR>
<td>
<%
sql="SELECT top 10 * FROM script_body ORDER by click DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>&nbsp;<img src=img/none.gif border=0><img src=img/title.gif border='0'>&nbsp;<a title="8c7.com点击次数：<%=rs("click")%><br>更新时间：<%=rs("time")%>" href="javascript:openwin('jsshow.asp?js_id=<%=rs("id")%>')"><%if len(rs("title"))>14 then
response.write left(rs("title"),12)&"..."
else
response.write rs("title")
end if%></a><br><%rs.movenext
loop
if rs.eof and rs.bof then%>当前还没有特效
<%end if%>
</td>
</tr>

<script language="JavaScript">
<!--
function isok(theform)
{
if (theform.search.value=="")
  {
    alert("请输入要查询的内容！");
    theform.search.focus();
    return (false);
  }

return (true);
}
-->
</script>
<TR>
<td align=center height="34" background="img/left.gif"><strong>最 新 加 入</strong></td>
</tr>
<TR>
<td>
<%
sql="SELECT top 10 * FROM script_body where isbest = 1 order by time desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof%>&nbsp;<img src=img/none.gif border=0><img src=img/title.gif border='0'>&nbsp;<a title="8c7.com点击次数：<%=rs("click")%><br>更新时间：<%=rs("time")%>" href="javascript:openwin('jsshow.asp?js_id=<%=rs("id")%>')"><%if len(rs("title"))>14 then
response.write left(rs("title"),12)&"..."
else
response.write rs("title")
end if%></a><br>
<%rs.movenext
loop
if rs.eof and rs.bof then%>当前还没有特效
<%end if%>
</td>
</tr>
<TR>
<td align=center height="34" background="img/left.gif"><strong>本 站 声 明</strong></td>
</tr>
<TR>
<td><%call br%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;本站提供所有的特效来自网络,<%call br%>&nbsp;版权归原作者所有!如有版权问题<%call br%>&nbsp;敬请<a href="http://qooh.net/guest/qq/book.asp">留言</a>指明!<%call br%><center><a href="http://www.87q.com" target="_blank">www.vqqq.com</a> </center></td>
</tr>
</table>
</TD>
<td width=1 height="190" background="img/xu.gif"></TD>
<td width=553 align=left vAlign=top bgcolor="#ffffff"><%call br%>
<table border="0"><tr><td height="5">
<%
on error resume next

dim search
search=trim(request("search"))

%>
<script language="JavaScript">
<!--
function isok(theform)
{
if (theform.search.value=="")
  {
    alert("请输入要查询的内容！");
    theform.search.focus();
    return (false);
  }

return (true);
}
-->
</script>

<%

Set rs= Server.CreateObject("ADODB.Recordset")
sql="select title,id,click,time from script_body where title like '%" &search& "%' order by id asc"
rs.open sql,conn,1,1

%>
<%

count=0
if rs.eof and rs.bof then
%><table width="530" border="1" align="center" cellspacing="0" cellpadding="3" bgcolor="#FFFFFF" bordercolor="#C0C0C0" style="border-collapse: collapse">

<tr> 
          <td bgcolor="#ECECEC" width="63%" align="center" height="22">没有你要查询的<font color='red'><%=search%></font>,请填写主要的内容以便查询!如：<font color=red>下拉菜单</font>，直接搜索“<font color=red>菜单</font>”即可</td>
		  </tr><tr><td>
<form name="form1" method="post" action="jssearch.asp" target=_blank onsubmit="return isok(this)">
              &nbsp;&nbsp;&nbsp;&nbsp;再搜一次
              <input type="text" name="search">
			  <input type="submit" name="Submit" value="搜索">
            </form></td></tr></table>


<%
else
%>
<table width="530" border="1" align="center" cellspacing="0" cellpadding="3" bgcolor="#FFFFFF" bordercolor="#C0C0C0" style="border-collapse: collapse">

<tr> 
          <td bgcolor="#ECECEC" width="63%" align="center" height="22">以下是包含<font color='red'><%=search%></font>内容的查询结果</td>
		  </tr></table>
<table width="530" border="1" align="center" cellspacing="0" cellpadding="3" bgcolor="#FFFFFF" bordercolor="#C0C0C0" style="border-collapse: collapse">

<tr> 
          <td bgcolor="#ECECEC" width="63%" align="center" height="22">特效列表</td>
          <td bgcolor="#ECECEC" width="10%" align="center">8c7.com点击</td>
          <td bgcolor="#ECECEC" width="27%" align="center">更新时间</td></tr>
<%
while not rs.eof 

response.write "<TR><TD>&nbsp;<img src=img/none.gif border=0><img src=img/i2.gif border='0'>&nbsp;&nbsp;&nbsp;<a href=javascript:popw("&rs("id")&")>"& Replace(rs(0),search,"<font color=red>"&search&"</font>")&"</a></td>"
%>
<TD align="center"><%=rs("click")%></TD><TD align="center"><%=rs("time")%></TD></TR>
<%
count=count+1
rs.movenext
wend
end if
response.write "&nbsp;&nbsp;&nbsp;&nbsp;共找到"&count&"条记录"

%>
</table></center>


<script language="javascript">


<!--

function popw(id,path)
{		window.open("disp.asp?id="+id+"&ppath="+path,"","height=400,width=600,resizable=yes,scrollbars=no,status=no,toolbar=no,menubar=no,location=no");
}
//-->
</script>



</td></tr></table>


</td></tr></table>
<%
call footer()

%>
<script language="JavaScript">
<!--
function isok(theform)
{
if (theform.search.value=="")
  {
    alert("请输入要查询的内容！");
    theform.search.focus();
    return (false);
  }

return (true);
}
-->
</script>


<%
rs.close
set rs=nothing
%>