piclist.asp

3000首FLASH源程序

<%PageName="piclist.asp"%>
<!--#include file=function.asp-->
<script src=js.js></script>
<!--#include file=top.asp-->
<%
founderr=false
if request("id")="" then
	founderr=true
	errmsg=errmsg+"<li>请选择图片！</li>"
else
	id=request("id")
	sql="select pic.hits,pic.no,pic.best,pic.key,pic.title,pic.size,pic.sign,pic.creattime,pic.collecttime,pic.updatetime,pic.content,pic.images,pic.authorid,author.author from pic,author where pic.authorid=author.authorid and pic.id="&id
	rs.open sql,conn,1,3
	if rs.eof and rs.bof then
		founderr=true
		errmsg=errmsg+ "<li>没有找到相关图片，可能已经被管理员删除！</p>"
	else
		conn.execute "update pic set hits=hits+1 where id="&id
		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=37 valign=top rowspan="2" bgcolor="<%=Tabletitlecolor%>">
    </td>
    <td align=center height=18 valign=top width=405 bgcolor="<%=Tablebodycolor%>">                        <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0" width="400" height="320">
                          <param name="movie" value="<%=rs("sign")%>">
                          <param name="quality" value="high"><embed src="<%=rs("sign")%>" quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="400" height="320"></object><br>
      <br>
      <input type=button value="作者介绍" onClick="javascript:window.open('authorlist.asp?id=<%=rs("authorid")%>','author')" name="button">
      <input type=button value="全屏欣赏" onClick="javascript:window.open('<%=rs("sign")%>','')" name="button2">
      <input type=button value="告诉好友" onClick="javascript:window.open('sendmail.asp?id=<%=id%>&typeor=pic','')" name="button3">
      <input type=button value="发表评论" onClick="javascript:window.open('http://www.heishan.org/bbs','')" name="button4">
    </td>
    <td height=18 valign=top width=190 bgcolor="<%=Tablebodycolor%>"> 
      <div align=center><b><%=rs("title")%></b></div><br>
      <b>编　　号：</b><%=rs("no")%><br><br>
      <b>作　　者：</b><%=rs("author")%><br><br>
      <b>大　　小：</b><%=rs("size")%> <br><br>
      <b>创作时间：</b><%=rs("creattime")%><br><br>
      <b>收藏时间：</b><%=rs("collecttime")%><br><br>
      <b>上传时间：</b><%=rs("updatetime")%><br><br>
      <b>浏览次数：</b><%=rs("hits")%><br><br>
      <b>推荐等级：</b><%=rs("best")%><br><br>
      <b>内容简介：</b><%=rs("content")%><br>
	  <div align=center></div>
    </td>
  </tr>
  <tr> 
    <td align=center height=18 valign=top colspan="2" bgcolor="<%=Tablebodycolor%>"> 
      <table width="98%" border="0" cellspacing="1" cellpadding="1" bgcolor="#FFFFFF">
        <tr> 
          <td bgcolor="<%=Tabletitlecolor%>" align="center"><b>相关作品</b></td>
        </tr>
        <tr> 
          <td bgcolor="<%=atablebodycolor%>"> 
            <%
if rs("key")<>"" then
key=rs("key")
rs.close
sql="select id,title from pic where key='"&key&"' order by id desc"
rs.open sql,conn,1,1
do while not rs.eof
	if cstr(rs("id"))<>cstr(id) then
		response.write "&nbsp;<img src=images/ico1.gif><a href=piclist.asp?id="&rs("id")&" target=_blank>"&rs("title")&"</a><br>"
	end if
rs.movenext
loop
rs.close
end if
%>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<%end sub

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