当前位置:Flash原创网 会员管理中心 作品管理
<% dim key dim username,sql,rs,pagesize,page,reccount,i,smsid username=Drip.username pagesize=10 i=0 page=trim(request("page")) key=request("key") 'key=1 为未审核 if page="" then page=1 else page=cint(page) 'sql="SELECT * FROM sms where tname='"&username&"' order by smsid desc" if key=1 then sql="select * from flash where userid="&userid&" and ispassed=0 order by id desc" else sql="select id,flashname,picurl,ishot,isgood,ispassed,dateandtime,commentnum,votenum,folder,serverid from flash where userid="&userid&" and ispassed=1 order by id desc" end if if not isobject(conn) then ConnectionDatabase set rs=Server.CreateObject("ADODB.RecordSet") rs.CursorLocation = 3 rs.CursorType = 3 rs.CacheSize = pagesize rs.PageSize = pagesize Set rs.ActiveConnection=Conn rs.open sql SqlQueryNum = SqlQueryNum+1 reccount=rs.recordcount if reccount=0 then response.write "" else rs.AbsolutePage=page end if dim picbg3 do until rs.eof or i=pagesize %> <% if rs("picurl")="" then picbg3="pic/no.jpg" else picbg3=server_list(rs("serverid"),1)&rs("picurl") end if %> <%end if%> <%if rs("ispassed")=1 then %> <%end if%> <%if rs("ispassed")=0 then %> <%end if%> <%rs.movenext i=i+1 loop rs.close set rs=nothing %>
No Flash名称 性 质 添加日期 操 作
 暂无作品
 <%=((page-1)*pagesize+i+1)%>. /<%=rs("id")%>.html" target="_blank"> 作品
>', '#fffff2','#000000','#000000','20000')" onMouseOut="hideTooltip('dHTMLToolTip')"><%=rs("flashname")%>

<% if rs("ishot") then response.write "热 " end if if rs("isgood") then response.write " " end if if rs("ispassed") then response.write "审" end if if rs("ispassed")=0 then response.write "未审核 " end if %> 

  <%=rs("dateandtime")%> <%if rs("ispassed")=1 then %><%if rs("commentnum")<>0 then%> 评论&fid=<%=rs("id")%>">[<%=rs("commentnum")%>] <%else%> 评论[0] <%end if%> 投票[<%=rs("votenum")%>]