<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
if session("admin")="" then
  response.redirect "admin_login.asp"
end if

'08 友情链接管理
if not checkflag("08") then
  call mb("对不起，您没有管理网友点播的权限！","",0)
end if

dim action
dim totalpage,maxperpage,totalrecords,i,currentpage
action=request("action")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网友点播管理相关</title>
<script language=javascript src="mouse_up.js"></script>
<link href="admin.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="5" topmargin="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#000000" vspace="0" hspace="0">
  <tr bgcolor="#EFEBEF"> 
    <td height="27"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="86%"><font color="#FF3000">.:: 您可以在这里进行[网友点播管理]相关操作</font></td>
          <td width="14%" height="20" align="center"><a href="javascript:this.location.reload()"><img src="images/refresh.gif" alt="刷新" width="40" height="12" border="0"></a></td>
        </tr>
      </table></td>
  </tr>
  <tr > 
    <td height="1" bgcolor="#000000"></td>
  </tr>
</table>
<%
select case action
  case "del"
    call del()
  case "passed"
    call passed()
  case "hidden"
    call hidden()
  case else
    call main()
end select

sub main()

response.expires=0
currentpage=request("page")
if not isinteger(currentpage) then
  currentpage=1
else
  currentpage=clng(currentpage)
end if

maxperpage=15
totalrecords=0
totalpage=1
i=1

set rs=server.createobject("adodb.recordset")
sql="select * from wish order by id desc"
rs.open sql,conn,1,1

if not(rs.bof and rs.eof) then
  rs.pagesize=maxperpage
  rs.absolutepage=currentpage
  totalpage=rs.pagecount
  totalrecords=rs.recordcount
end if
%>
<br>
<br>

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
  <tr align="center" bgcolor="#EFEBEF"> 
    <td width="4%" height="23"><font color="#000000">ID</font></td>
    <td width="20%" height="23"><font color="#000000">Flash名称</font></td>
    <td width="12%" height="23"><font color="#000000">点播人</font></td>
    <td width="13%" height="23"><font color="#000000">接收方</font></td>
    <td width="21%"><font color="#000000">祝福短语</font></td>
    <td width="16%" height="23"><font color="#000000">操作日期</font></td>
    <td width="14%" height="23"><font color="#000000">删 除</font></td>
  </tr>
  <%do until rs.eof or i>maxperpage%>
  <tr bgcolor="#FFFFFF"> 
    <td height="23">&nbsp;<%=rs("id")%></td>
    <td height="23">&nbsp;<a href="flash_play.asp?id=<%=rs("flash_id")%>" title="观看Flash..." target=_blank><%=rs("flash_name")%></a></td>
    <td height="23">&nbsp;<a href="mailto:<%=rs("from_email")%>" title="发邮件给 <%=rs("from_name")%>..."><%=rs("from_name")%></a></td>
    <td height="23">&nbsp;<a href="mailto:<%=rs("to_email")%>" title="发邮件给 <%=rs("to_name")%>..."><%=rs("to_name")%></a></td>
    <td>&nbsp;<a href="#" onclick="javascript:window.open('showwish.asp?id=<%=rs("id")%>','showwish','top=0,left=0,width=280,height=420');" title="查看祝福..."><%=rs("wish_title")%></a></td>
    <td height="23">&nbsp;<%=formatdatetime(rs("dateandtime"),1)%></td>
    <td height="23" align="center">&nbsp; 
      <%if rs("ispassed") then
	   response.write "<a href='?action=passed&id="&rs("id")&"' title='关闭审核该条信息...'>已审</a>"
	  else
	   response.write "<a href='?action=passed&id="&rs("id")&"' title='审核该条信息...'>未审</a>"
	  end if
	 
	 if rs("ishidden") then
	   response.write "&nbsp;<a href='?action=hidden&id="&rs("id")&"' title='显示该条信息...'>隐藏</a>"
	 else
	   response.write "&nbsp;<a href='?action=hidden&id="&rs("id")&"' title='隐藏该条信息...'>显示</a>"
	 end if
	 %>
      <a href="?action=del&id=<%=rs("id")%>" title="删除该条信息.." onclick="javascript:if(confirm('真的要删除该条祝福信息吗？')){return true;}else{return false;}">删除</a></td>
  </tr>
  <%rs.movenext
   i=i+1
   loop
   if totalrecords>0 then
  %>
  <tr bgcolor="#FFFFFF"> 
    <td height="23" colspan="7"> 
      <% call showpage("admin_link.asp",totalrecords,maxperpage,true,true,"条祝福信息")%>
    </td>
  </tr>
 <%end if%>
</table>
<%
rs.close
set rs=nothing
end sub

sub del()

dim id:id=request("id")

if not isinteger(id) then
 call mb("请指定要删除的祝福信息！","",0)
end if

conn.execute("delete from wish where id="&id)

call mb("删除网友祝福信息！","admin_wish.asp",1)

end sub

sub passed()

dim id:id=request("id")

if not isinteger(id) then
 call mb("请指定要操作的祝福信息！","",0)
end if

conn.execute("update wish set ispassed=not(ispassed) where id="&id)

call mb("操作成功！","admin_wish.asp",1)

end sub

sub hidden()

dim id:id=request("id")

if not isinteger(id) then
 call mb("请指定要操作的祝福信息！","",0)
end if

conn.execute("update wish set ishidden=not(ishidden) where id="&id)

call mb("操作成功！","admin_wish.asp",1)

end sub
%>
</body>
</html>
