📄 js_body.asp
字号:
<%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"> <img src=img/none.gif border=0><img src=img/link2.gif border='0'> <a href="index.asp"><font color=blue> 首 页 </font></a>
<%
dim aa,aaa
aa=0
aaa=0
do while not rs.eof
%>
<img src=img/none.gif border=0><img src=img/link2.gif border='0'> <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 " "
if aa=9 or aa=19 or aa=29 then response.write "<br>"
loop
if rs.bof and rs.eof then%>当前没有分类<%end if%>
</TD>
</TR>
<TR>
<TD width="760" background="img/fzw.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
%> <img src=img/none.gif border=0><img src=img/title.gif border='0'> <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%> <img src=img/none.gif border=0><img src=img/title.gif border='0'> <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%> 本站提供所有的特效来自网络,<%call br%> 版权归原作者所有!如有版权问题<%call br%> 敬请<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>
<%call br%><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%>
<%
dim totalcs,Currentpage,totalpages,i
sql="select * from script_body order by id DESC"
if request.querystring("jscat_id")<>"" then
sql="select * from script_body where type='"&request.querystring("jscat_id")&"' order by id DESC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
%>
<table width='530' height="22" border='0' align="center" cellspacing='0' background="img/menu.gif">
<tr>
<td><img src="img/biao.gif" align="absmiddle">
共有<span><%=totalcs%></span>个特效</td><td>
<form name="form1" method="post" action="jssearch.asp" target=_blank onsubmit="return isok(this)">
<input type="text" name="search">
<input type="submit" name="Submit" value="搜索">
</form></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>
<%
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
%><TR><TD> <img src=img/none.gif border=0><img src=img/i2.gif border='0'> <a href="javascript:openwin('jsshow.asp?js_id=<%=rs("id")%>')"><%=rs("title")%></a></td><TD align="center"><%=rs("click")%></TD><TD align="center"><%=rs("time")%></TD></TR>
<%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then%><tr><td nowrap height="30" colSpan=3>当前没有特效！</td></td></tr>
<%end if
end if
if not request("type")=1 then%>
<form name="form1" method="post" action="js.asp?jscat_id=<%=request.querystring("jscat_id")%>">
<tr>
<td align="right" bgcolor="#ECECEC" colspan="3">
<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/cha.gif" width=14 align=absMiddle> 共[<font color="#FF6666"><%=totalcs%></font>]个特效 分[<font color="#FF6666"><%=totalpages%></font>]页</TD>
<TD width="40%" align=middle bgcolor="#e6e6e6"><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?page=1&jscat_id="&request.querystring("jscat_id")&">首页</a> "
response.write "<a href=js.asp?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?page="&CurrentPage+1&"&jscat_id="&request.querystring("jscat_id")
response.write ">下一页</a> <a href=js.asp?page="&totalpages&"&jscat_id="&request.querystring("jscat_id")&">尾页</a>"
end if
%>
<IMG height=11 src="img/gt.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="转向" class="button"> </TD>
</TR>
</FORM>
</TABLE>
</td>
</tr>
</form>
</table>
<%end if%>
<%call br%><%call br%>
</TD></TR></TBODY></TABLE>
<%
rs.close
set rs=nothing
end sub%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -