index.asp

一个完整的flash 教程 很不错 适合初学者~

<!-- #include file="top.asp"-->
<center>
<%
dim totalcs,Currentpage,totalpages,i
fl1=request("fl1")
fl2=request("fl2")
if  fl1<>"" then 
sql="select * from pic where fl1="&fl1&" order by id DESC"
if fl2<>"" then 
sql="select * from pic where fl1="&fl1&" and fl2="&fl2&" order by id DESC"
end if
else
sql="select * from pic order by id DESC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
%>
<%
perpage=200
if not rs.eof then
rs.movefirst
rs.pagesize=perpage
if trim(request("page"))<>"" then
   currentpage=clng(request("page"))
   if currentpage>rs.pagecount then
      currentpage=rs.pagecount
   end if
else
   currentpage=3
end if
   if currentpage<>1 then
       if (currentpage-1)*perpage<totalcs then
	       rs.move(currentpage-1)*perpage
		   dim bookmark
		   bookmark=rs.bookmark
	   end if
   end if
   if (totalcs mod perpage)=0 then
      totalpages=totalcs\perpage
   else
      totalpages=totalcs\perpage+1
   end if
i=0%>

<div align="center">

<TABLE cellSpacing=0 cellPadding=0 width="777" border=0 bgcolor=#FF9933>
<TBODY>
<form name="form1" method="post" action="index.asp?id=<%=request.querystring("id")%>&fl2="&request.querystring("fl2")&"">
<TR> 
<TD align=middle width="21%" height=25> <font color="#FFFFFF">有[<%=totalcs%>]个作品</font></TD>
<TD width="79%" align=middle >
<%
if CurrentPage<2 then
response.write "<font color='999966'> 首 页   上 一 页   </font> "
else
response.write "<a href=index.asp?page=1&fl1="&request.querystring("fl1")&"&fl2="&request.querystring("fl2")&"> 首 页 </a> "
response.write "<a href=index.asp?page="&CurrentPage-1&"&fl1="&request.querystring("fl1")&"&fl2="&request.querystring("fl2")&"> 上 一 页 </a> "
end if
if totalpages-currentpage<1 then
response.write "<font color='999966'> 下 一 页   尾 页 </font>"
else
response.write "<a href=index.asp?page="&CurrentPage+1&"&fl1="&request.querystring("fl1")&"&fl2="&request.querystring("fl2")&""
response.write "> 下 一 页 </a> <a href=index.asp?page="&totalpages&"&fl1="&request.querystring("fl1")&"&fl2="&request.querystring("fl2")&"> 尾 页 </a>"
end if
%>
</TD>
</TR>
</FORM></table>
</div>
<table width="777"  bgColor=#ffffff border=1 borderColor=#cccccc cellPadding=0 
      cellSpacing=0 style="BORDER-COLLAPSE: collapse" >
        <TBODY>
<tr height="24" align="center" bgcolor="#2985d3">
<td width="20%" align="left" bgcolor="#3399FF">&nbsp;<font color="#FF0000">&nbsp;</font><font color="#FFFFFF"><b>FLASH排行榜</b></font><td width="80%" colspan="4" style="padding-left:10px;padding-right:10px" bgcolor="#3399FF"><font color=#ffffff><b>本站需要大家帮忙宣传，请把本站地址发给你QQ上的5位好友！！</b></td>
</tr>
<tr height='24' align='center'>
<%
do while not rs.eof and i<perpage
i=i+1
j=j+1
%> 
<%
if j mod 5=0 then%>
<td width=20%><a  href=javascript:mmok('<%=rs("id")%>')><%=rs("biaoti")%></a></td></tr><tr height=24 align=center>
<%else%>
<td width=20%><a  href=javascript:mmok('<%=rs("id")%>')><%=rs("biaoti")%></a></td>
<%end if%>

<%

rs.movenext
loop
else
if rs.eof and rs.bof then%>
            谢谢您的支持，当前还没这类作品
<%
end if
%>
<%end if%>
</td></tr></table>
<%if request("id")<>"" then%>
<%set rs1=server.CreateObject("adodb.recordset")
	sql1="select * from pic where id="&request("id")&""
	rs1.open sql1,conn,1,1
if not rs1.bof and not rs1.eof then%>
<table><tr><td><%=rs1("shuzi")%></td><td align=center>
<%=rs1("biaoti")%></td></tr><tr>
<td colspan=2 align=center><%=rs1("content")%></td></tr></table>
<%end if%>
<%end if%>
</center>