?? js.asp
字號:
<!--#Include File="Check_hx.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/format.asp"-->
<%
start="網頁特效"
dim founderr
founderr=false
if request.querystring("jscat_id")<>"" then
if not isInteger(request.querystring("jscat_id")) then
founderr=true
Response.Write "<script language=javascript>alert('參數非法');javascript:history.back();</script>"
end if
end if
if request("page")<>"" then
if not isInteger(request("page")) then
founderr=true
Response.Write "<script language=javascript>alert('參數非法');javascript:history.back();</script>"
end if
end if
if request("keyword")<>"" then
if instr(request("keyword"),"'")>0 then
founderr=true
Response.Write "<script language=javascript>alert('搜索參數非法');javascript:history.back();</script>"
end if
end if
call head()
call menu()
sql="select jscat_id,jscat_name from jscat"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
response.write "<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s""><TBODY><TR>" & vbCrLf
response.write "<TD height=""10"" align=""right"">"
do while not rs.eof
if request("jscat_id")=cstr(rs("jscat_id")) then
response.write "<font color=""#FF0000"">·"&rs("jscat_name")&"</font> "
else
response.write "<a href='?jscat_id="&rs("jscat_id")&"'>·"&rs("jscat_name")&"</a> "
end if
rs.movenext
loop
if rs.bof and rs.eof then
response.write "當前沒有分類 "
rs.close
end if%>←特效分類
</TD></TR></TBODY></TABLE>
<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class="table-hx66s">
<TBODY>
<TR vAlign=top align=left>
<TD width=188>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
<tr>
<td height="23" class="a1"> 總 量 排 行</td>
</tr>
</table>
<div style="padding-top:5px;padding-bottom:5px;" class="table-right">
<table width="100%" border=0 cellspacing="0" cellpadding="0">
<%
sql="SELECT top "&topjsnum&" js_id,js_name,js_count,js_date FROM js where js_id ORDER by js_count DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%><tr><td width="6"></td><td height=22 class=table-xia><font color=#FF0000>·</font><a href='showjs.asp?js_id=<%=rs("js_id")%>' Title='特效名稱：<%=rs("js_name")%>
查看次數：<%=rs("js_count")%>
上傳時間：<%=rs("js_date")%>'><%=left(rs("js_name"),13)%></a></td><td width="6"></td></tr>
<%rs.movenext
loop
if rs.eof and rs.bof then%><div align=center><br>當前還沒有特效<br><br></div>
<%
rs.close
end if%></table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
<tr>
<td height="23" class="a1"> 站 長 推 薦</td>
</tr>
</table>
<table width="100%" border=0 cellspacing="0" cellpadding="0">
<%
sql="SELECT top "&bestjs&" js_id,js_name,js_count,js_date FROM js where isbest = 1 order by js_id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof%><tr><td width="6"></td><td height=22 class=table-xia><font color=#FF0000>·</font><a href='showjs.asp?js_id=<%=rs("js_id")%>' Title='特效名稱：<%=rs("js_name")%>
查看次數：<%=rs("js_count")%>
上傳時間：<%=rs("js_date")%>'><%=left(rs("js_name"),13)%></a></td><td width="6"></td></tr>
<%rs.movenext
loop
if rs.eof and rs.bof then%><div align=center><br>當前還沒有特效<br><br></div>
<%rs.close
end if%></table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
<tr>
<td height="23" class="a1"> 特 效 查 找</td>
</tr>
</table>
<form name="form2" method="post" action="js.asp"><div align=center><input type='radio' name='select' value='js_name' checked>名稱 <input type='radio' name='select' value='js_desc'>內容 <input type='radio' name='select' value='review'>評論<br><input type='text' name='keyword' size='15' value='搜索關鍵字' maxlength='50' onfocus="this.value=''" class="input"> <input type='submit' name='search' value='搜索' onmouseover="this.className='boton'" onmouseout="this.className='botoff'">
</div></form>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
<tr>
<td height="23" class="a1"> 本 站 聲 明</td>
</tr>
</table>
<div style="LINE-HEIGHT: 180%"> 1.本站部分特效來自網絡，版權歸原作者所有！如有版權問題敬請<a href="book.asp">留言</a>指明。<br> 2.更多特效請查看：<a href="http://hx66.net/wytx/wytx.htm" target="_blank">花香盈路網頁特效</a>。
<%
dim totalcs,Currentpage,totalpages,i
sql="select * from js order by istop desc,js_id DESC"
if request.querystring("jscat_id")<>"" then
sql="select * from js where jscat_id="&request.querystring("jscat_id")&" order by istop desc,js_id DESC"
elseif request("keyword")<>"" then
sql="select * from js where "&request("select")&" like '%"&request("keyword")&"%'order by istop desc,js_id DESC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
%>
</TD><TD>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="table-shangxia">
<tr>
<td height="23" class="a1"> <%if request("jscat_id")<> "" then%>本分類共有<%elseif request("keyword")<>"" then%>共搜索到<%else%>當前共有<%end if%><span><%=totalcs%></span>個特效</SPAN></td>
</tr>
</table>
<table width="99%" border="1" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" style="border-collapse: collapse" class="table-left" align="right" frame=lhs>
<TR bgColor=#FFFFFF><TD width="6%" align=Center height="26">狀態</TD><TD width="62%" align=Center>主題</TD><TD width="10%" align=Center>人氣</TD><TD align="center">發表時間</TD></TR>
<%
if not rs.eof then
rs.movefirst
rs.pagesize=jsperpage
if trim(request("page"))<>"" then
currentpage=clng(request("page"))
if currentpage>rs.pagecount then
currentpage=rs.pagecount
end if
else
currentpage=1
end if
if currentpage<>1 then
if (currentpage-1)*jsperpage<totalcs then
rs.move(currentpage-1)*jsperpage
dim bookmark
bookmark=rs.bookmark
end if
end if
if (totalcs mod jsperpage)=0 then
totalpages=totalcs\jsperpage
else
totalpages=totalcs\jsperpage+1
end if
i=0
do while not rs.eof and i<jsperpage
%>
<%
if rs("istop")="1" then
folder="<img src=""img/1.gif"" title=固頂特效>"
else
folder="<img src=""img/4.gif"" title=普通特效>"
end if
if rs("istop")="0" then
if rs("isbest")=1 then
folder="<img src=""img/2.gif"" title=推薦特效>"
elseif rs("js_count")>300 then
folder="<img src=""img/3.gif"" title=熱門特效>"
else
folder="<img src=""img/4.gif"" title=普通特效>"
end if
end if
%>
<TR bgColor=#FFFFFF><TD width="6%" align=Center height="26"><%=folder%></TD><TD width="62%"> <a href='showjs.asp?js_id=<%=rs("js_id")%>' Title='特效名稱：<%=rs("js_name")%>
查看次數：<%=rs("js_count")%>
上傳時間：<%=rs("js_date")%>'><%=rs("js_name")%></a></TD><TD width="10%" align=Center><%=rs("js_count")%></TD><TD align="center"><%=rs("js_date")%></TD></TR>
<%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then%><tr><td align=middle height="60" colSpan=4><%if request("jscat_id")<> "" then%>該分類暫時沒有特效<%elseif request("keyword")<>"" then%>沒有找到包含[<b><font color=red><%=request("keyword")%></font></b>]的特效！<%else%>沒有任何特效，請管理員到后臺添加！<%end if%></td></td></tr>
<%end if
end if
%>
<form name="form1" method="post" action="js.asp?select=<%=request("select")%>&keyword=<%=request("keyword")%>&jscat_id=<%=request.querystring("jscat_id")%>">
<tr>
<td align="right" colspan="4">
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD align=middle width="35%" height=25><IMG height=14 src="img/so.gif" width=14 align=absMiddle> 共[<font color="#FF6666"><%=totalcs%></font>]個特效 分[<font color="#FF6666"><%=totalpages%></font>]頁</TD>
<TD width="40%" align=middle><IMG height=11 src="img/lt.gif" width=11 align=absMiddle>
<%
if CurrentPage<2 then
response.write "<font color='999966'>首頁 上一頁</font> "
else
response.write "<a href=js.asp?select="&request("select")&"&keyword="&request("keyword")&"&page=1&jscat_id="&request.querystring("jscat_id")&">首頁</a> "
response.write "<a href=js.asp?select="&request("select")&"&keyword="&request("keyword")&"&page="&CurrentPage-1&"&jscat_id="&request.querystring("jscat_id")&">上一頁</a> "
end if
if totalpages-currentpage<1 then
response.write "<font color='999966'>下一頁 尾頁</font>"
else
response.write "<a href=js.asp?select="&request("select")&"&keyword="&request("keyword")&"&page="&CurrentPage+1&"&jscat_id="&request.querystring("jscat_id")
response.write ">下一頁</a> <a href=js.asp?select="&request("select")&"&keyword="&request("keyword")&"&page="&totalpages&"&jscat_id="&request.querystring("jscat_id")&">尾頁</a>"
end if
%> <IMG height=11 src="img/rt.gif" width=11 align=absMiddle></TD>
<TD align=middle width="25%">
<select name="page" class="lanyu">
<%
i=1
for i=1 to totalpages
if i=currentpage then
%>
<option value=<%=i%> selected>第<%=i%>頁</option>
<%else%>
<option value=<%=i%>>第<%=i%>頁</option>
<%end if
next%>
</select><input type="submit" name="Submit2" value="轉向" onmouseover="this.className='boton'" onmouseout="this.className='botoff'" class="botoff"> </TD>
</TR>
</FORM>
</TABLE> </td></tr>
<tr align="center"><td height="10" colspan="4"></td></tr></table><br>
</DIV></TD></TR>
</TBODY></TABLE>
<%
rs.close
set rs=nothing
call footer()
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -