index_body.asp

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

<%
sub index_body()
%>
<TABLE width=760 height="22" border=0 align=center cellPadding=0 cellSpacing=0 borderColor="<%=border%>" bgcolor="#ffffff" frame=vsides rules=none>
  <TR>
    <td width="760" height="20" align="right" background="img/fzw.gif">&nbsp;</TD>
</TR>
</TABLE>
<TABLE align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="<%=border%>" frame=vsides rules=none>
<tr>
<td>

<TABLE width=196 border=0 align=top cellPadding=0 cellSpacing=0>
<tr align=top vlign=top><td align=center height="34" background="img/left.gif"><strong>分 类 菜 单</strong></td></tr></tr></table>
<TABLE width=196 border=0 align=top cellPadding=0 cellSpacing=0>
<TR>
<%
sql="select * from script_type"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
dim aa,aaa
aa=0
aaa=0
do while not rs.eof
%>
&nbsp;<img src=img/none.gif border=0><img src=img/ico.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=3 or aaa=15 then response.write "&nbsp;"
if aa mod 2 =0 then response.write "<br>"
loop

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

<td>
<TABLE width=196 border=0 align=top cellPadding=0 cellSpacing=0>
<TR><td align=center height="34" background="img/left.gif"><strong>最 新 加 入</strong></td></tr></table>
<TABLE width=196 border=0 align=top cellPadding=0 cellSpacing=0>
<TR>
<td>
<%
sql="SELECT top 13 * 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></TABLE>
</td>

<td>
<TABLE width=196 border=0 align=top cellPadding=0 cellSpacing=0>
<TR><td align=center height="34" background="img/left.gif"><strong>热 门 排 行</strong></td></tr></table>
<TABLE width=196 border=0 align=top cellPadding=0 cellSpacing=0>
<TR>
<td>
<%
sql="SELECT top 13 * 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></TABLE>


<TR><TD background=img/xu2.gif colSpan=3 height=1></TD></TR>
<TR><TD colSpan=3 height=20 BGCOLOR=#f4f4f4><marquee><%=gg%></marquee></TD></TR>
<TR><TD background=img/xu2.gif colSpan=3 height=1></TD></TR>
</TD>
</TR>

</td>
</tr>
</TABLE>

<%
end sub
%>