
<object runat=server id=connpic progid="adodb.connection"></object>
<%application.Lock
connpic.Open Application("p_pic")
Application.UnLock
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY bgcolor=#FFFBE7><LINK 
href="css/default.css" rel=stylesheet>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
'sql="select * from sound where user_name='www'"
sql="select * from sound where checked=0"
rs.open sql,connpic,3,2
%>
<BR>
<p align=center><font size=4  color=#ff9933>还未通过检查的声音文件</font></p>
<BR>
<table bgColor="#FFCC33" cellPadding="3" cellSpacing="1" width="80%" align="center">
  <tbody> 
  <tr bgcolor="#FFE28C"> 
    <td align="center" class="sp" ><b>编号</b></td>
                            
    <td align="center" class="sp" ><b>声音试听</b></td>
                            
    <td align="center" class="sp" ><b>通过检查</b></td>
                             
    <td align="middle" class="sp" ><b>操作</b></td>
  </tr>
      <%if rs.recordcount<>0 then
      
      for i=1 to rs.recordcount
		Response.Write "<SCRIPT LANGUAGE=javascript>"&vbcr
		Response.Write "function openwindow(){"&vbcr
		Response.Write "var url;"&vbcr
		Response.Write "url=""show_mysound.asp?id="&rs("id")&""";"&vbcr
		Response.Write "newwin=window.open("""",""WebICQ"",""fullscreen=0,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0"");"&vbcr
		Response.Write "if(document.all){"&vbcr
		Response.Write "newwin.moveTo(0,0 );"&vbcr
		Response.Write "newwin.resizeTo(400,300 );"&vbcr
		Response.Write "}"&vbcr
		'Response.Write ""&vbcr
	
		Response.Write "newwin.location=url;"&vbcr
		Response.Write "newwin.focus();"&vbcr
	    Response.Write "}"&vbcr
		Response.Write "</SCRIPT>"&vbcr
      
      %> 
                         
                          
  <tr bgColor="#FFFBE7" > 
    <td class="p1" align="center"> <font color="#333333">第<%=i%>张</font></td>
                           
    <td align=center><a href=javascript:openwindow()>请您试听声音</a> 
      <%'Response.Write "url=""show_mysound.asp?id="&rs("id")&""";"%>
    </td> 
                           
    <td class="p1" align="center"><a href="check_sound.asp?id=<%=rs("id")%>" >通过检查</a></td>
                            
    <td class="p1" align="center"><a href="delsound.asp?id=<%=rs("id")%>" >删除</a></td>
  </tr>
      
        
  <%
     rs.movenext
       next
  else
  
       
       %>    
     
                         <tr bgcolor=#FFFBE7>
                            
    <td class="p1" colspan=4 align=center bgcolor="#FFFBE7">&nbsp; 没有未通过检查的声音文件 
    </td> 
                         </tr>
 <%end if%>            
                       <tr bgcolor=#FFFBE7>
                            <td class="p1">&nbsp;
                           <%'=session("Current_user")%>
                            <td></td> <td></td><td></td>
                         </tr>  
                         </tbody></table>

</BODY>
</HTML>
