authorsort.asp

3000首FLASH源程序

<%PageName="authorsort.asp"%>
<!--#include file=function.asp-->
<!--#include file=top.asp-->
<table align=center border=0 cellpadding=2 cellspacing=1 width=770 bgcolor="<%=Tablebackcolor%>">
  <tr> 
    <td align=center height=96 valign=top width=176 bgcolor="<%=Tabletitlecolor%>">
      <table width="90%" border="0" cellspacing="1" cellpadding="1" bgcolor="<%=Tablebackcolor%>">
        <tr align="center" bgcolor="<%=aTablebodycolor%>"> 
          <td width="14%"><a href="authorsort.asp?Nkey=A">A</a></td>
          <td width="14%"><a href="authorsort.asp?Nkey=B">B</a></td>
          <td width="14%"><a href="authorsort.asp?Nkey=C">C</a></td>
          <td width="14%"><a href="authorsort.asp?Nkey=D">D</a></td>
          <td width="15%"><a href="authorsort.asp?Nkey=E">E</a></td>
          <td width="13%"><a href="authorsort.asp?Nkey=F">F</a></td>
          <td width="16%"><a href="authorsort.asp?Nkey=G">G</a></td>
        </tr>
        <tr align="center" bgcolor="<%=aTablebodycolor%>"> 
          <td width="14%"><a href="authorsort.asp?Nkey=H">H</a></td>
          <td width="14%"><a href="authorsort.asp?Nkey=I">I</a></td>
          <td width="14%"><a href="authorsort.asp?Nkey=J">J</a></td>
          <td width="14%"><a href="authorsort.asp?Nkey=K">K</a></td>
          <td width="15%"><a href="authorsort.asp?Nkey=L">L</a></td>
          <td width="13%"><a href="authorsort.asp?Nkey=M">M</a></td>
          <td width="16%"><a href="authorsort.asp?Nkey=N">N</a></td>
        </tr>
        <tr align="center" bgcolor="<%=aTablebodycolor%>"> 
          <td width="14%"><a href="authorsort.asp?Nkey=O">O</a></td>
          <td width="14%"><a href="authorsort.asp?Nkey=P">P</a></td>
          <td width="14%"><a href="authorsort.asp?Nkey=Q">Q</a></td>
          <td width="14%"><a href="authorsort.asp?Nkey=R">R</a></td>
          <td width="15%"><a href="authorsort.asp?Nkey=S">S</a></td>
          <td width="13%"><a href="authorsort.asp?Nkey=T">T</a></td>
          <td width="16%"><a href="authorsort.asp?Nkey=U">U</a></td>
        </tr>
        <tr align="center" bgcolor="<%=aTablebodycolor%>"> 
          <td width="14%"><a href="authorsort.asp?Nkey=V">V</a></td>
          <td width="14%"><a href="authorsort.asp?Nkey=W">W</a></td>
          <td width="14%"><a href="authorsort.asp?Nkey=X">X</a></td>
          <td width="14%"><a href="authorsort.asp?Nkey=Y">Y</a></td>
          <td width="15%"><a href="authorsort.asp?Nkey=Z">Z</a></td>
          <td colspan="2"><a href="authorsort.asp">全部</a></td>
        </tr>
      </table>
    </td>
    <td height=96 valign=top width=583 bgcolor="<%=Tablebodycolor%>"> 
      <div align=center>作者列表</div>
<%

Nkey=""
if request("Nkey")<>"" then
	autsql=" where Nkey='"&Ucase(request("Nkey"))&"'"
else
	autsql=""
end if
sql="select authorid,author,Nkey from author"&autsql&" order by Nkey"
rs.open sql,conn,1,1
if not rs.eof then
%>
      <table width="90%" align="center" border="0" cellspacing="1" cellpadding="1" bgcolor="#ffffff">
<%
	do while not rs.eof
	if Nkey<>rs("Nkey") then
	i=1
%><tr><td colspan="5" bgcolor=<%=Tabletitlecolor%>><font color=red><b><%=rs("Nkey")%></b></font></td></tr>
<%
	end if
	if i mod 5 =1 then
	%>
	<tr>
	<%
	end if
	if rs("author")<>"" then
%>
          <td width="20%" bgcolor=<%=aTablebodycolor%> onMouseOut=this.style.backgroundColor="" onMouseOver=this.style.backgroundColor="#FFFFFF" align="center"><a href=authorlist.asp?id=<%=rs("authorid")%>><%=rs("author")%></a></td>
<%
else
%>
<td width="20%" bgcolor=<%=aTablebodycolor%>></td>
<%
end if
	if i mod 5 =0 then
	%>
	</tr>
	<%
	end if
	i=i+1
	Nkey=rs("Nkey")
	rs.movenext
	loop
%></table>
<%
else
	response.write "<div align=center><font color=#ff0000><b>暂时没有任何相关纪录</b></font></div>"
end if		
%>
    </td>
  </tr>
</table>
<%
set rs=nothing   
conn.close   
set conn=nothing
%><!--#include file=copyright.asp-->