authorlist.asp

3000首FLASH源程序

<%PageName="authorlist.asp"%>
<!--#include file=function.asp-->
<!--#include file=top.asp-->
<script src=js.js></script>
<%
founderr=false
if request("id")="" then
	founderr=true
	errmsg=errmsg+"<li>请选择作者！</li>"
else
	sql="select * from author where authorid="&request("id")
	rs.open sql,conn,1,3
	if rs.eof and rs.bof then
		founderr=true
		errmsg=errmsg+ "<li>没有找到相关作者信息，可能已经被管理员删除！</p>"
	else
		rs("hits")=rs("hits")+1
		rs.update
		call showcontent()
	end if
end if
if founderr=true then call error()

sub showcontent()%>
<table align=center border=0 cellpadding=2 cellspacing=1 width=770 bgcolor="<%=Tablebackcolor%>">
  <tr> 
    <td align=center height=18 valign=top width=313 bgcolor="<%=Tabletitlecolor%>"><a href=javascript:readopen("show.asp?url=<%=rs("images")%>&author=<%=rs("author")%>","picshow","width=400,height=300")><img src=<%=rs("images")%> border="0" onLoad="javascript:if(this.height>200)this.height=200;else if(this.width>200)this.width=200;"></a></td>
    <td align=center height=18 valign=top width=467 bgcolor="<%=Tablebodycolor%>"> 
      <table border=0 cellpadding=0 cellspacing=0 width="99%">
        <tr> 
          <td align=middle colspan=4 height=25><b>查看作者 <font color="#FF0000"><%=rs("author")%></font> 
            详细信息</b></td>
        </tr>
        <tr align="center"> 
          <td colspan=4 height=0>---------------------------------------------------------------------</td>
        </tr>
        <tr> 
          <td align=right width="20%"><b>性别：</b></td>
          <td width="27%">
            <%if rs("sex")=1 then response.write "男" else response.write "女" end if%>
          </td>
          <td align=right width="19%"><b>所在省份:</b></td>
          <td width="34%"><%=rs("address")%></td>
        </tr>
        <tr align="center"> 
          <td colspan=4 height=0>---------------------------------------------------------------------</td>
        </tr>
        <tr> 
          <td align=right width="20%"><b>出生日期：</b></td>
          <td width="27%"><%=rs("birthday")%></td>
          <td align=right width="19%"><b>浏览：</b></td>
          <td width="34%"><%=rs("hits")%></td>
        </tr>
        <tr align="center"> 
          <td colspan=4>---------------------------------------------------------------------</td>
        </tr>
        <tr> 
          <td align=right width="20%" valign="top"><b>简介：</b></td>
          <td colspan=3><%=rs("content")%></td>
        </tr>
        <tr align="center"> 
          <td colspan=4>---------------------------------------------------------------------</td>
        </tr>
      </table>
	<%if rs("tv")<>"" then%><input type=button value="查看该作者视频剪辑" onclick=javascript:readopen('<%=rs("tv")%>','','')><%end if%>
      <table width="90%" border="0" cellspacing="1" cellpadding="3" bgcolor="#FFFFFF">
        <tr>
          <td align="center" bgcolor="<%=aTabletitlecolor%>"><font color="#FF0000"><%=rs("author")%></font>的作品列表(共<font color="#FF0000"><%
rs.close
sql="select id,title,special from pic where authorid="&request("id")&" order by special"
rs.open sql,conn,1,1
response.write rs.recordcount%></font>个)</td>
        </tr>
        <tr>
          <td bgcolor="<%=aTablebodycolor%>">
<%
	do while not rs.eof
		response.write "&nbsp;<img src=images/ico1.gif>&nbsp;<a href=piclist.asp?id="&rs("id")&" target=_blank>"&rs("title")&"</a>--["&rs("special")&"]<br>"
	rs.movenext
	loop
rs.close
%>
		  </td>
        </tr>
      </table>
    </td>
  </tr>
   
</table>
<%end sub

set rs=nothing   
conn.close   
set conn=nothing
%>
<!--#include file=copyright.asp-->