<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="INC/CHAR.INC"-->
<!--#include file="top01.asp"-->
<%
if not isempty(request("page")) then
	currentPage=cint(request("page"))
else
	currentPage=1
end if
%>


<%
Specialid=request.QueryString("Specialid")
set rs=server.createobject("adodb.recordset")
sql="select * from Special where Specialid="&cstr(Specialid)
rs.open sql,conn,1,3
if rs.EOF then
	errmsg= "<li>רɾ</li>"
	call error()
	Response.End 
else
	rs("hits")=rs("hits")+1
	rs.update
	hits=rs("hits")
	Classid=rs("Classid")
	name=rs("name")
	pic=rs("pic")
	intro=rs("intro")
	dateandtime=DateValue(rs("dateandtime"))
	pollot=rs("pollot")
	pollots=rs("pollots")
end if
rs.close
%>
<div align="center">
<TABLE cellSpacing=0 cellPadding=0 width=770 
border=0>
<TBODY>
<TR>
<TD colSpan=3>
<table width="770" height="100%" 
              border=0 align="center" cellpadding=0 cellspacing=0>
        <tbody>
          <tr> 
            <td colspan=2 height=18> <table width="770"  border="1" cellpadding="0" cellspacing="0" bordercolor="#999900">
                <tr bgcolor="#d6dbef"> 
                  
              <td height="25" colspan="2" > 
                <div align="left"><strong><font color="#000000"> ǰ  </font></strong>:<font color="#660099"><%=name%></font> 
                  <font color="#660099"> <strong><font color="#FF0000"></font><a href="782.asp">߶</a><font color="#FF0000"></font> 
                  <font color="#0000FF"></font><a href="dj1.asp">ҡͷ</a><font color="#0000FF"></font></strong> 
                  </font></div></td>
                </tr>
                <tr> 
                  
              <td width="90" height="90" valign="top" bgcolor="#FFFFFF"> 
                <%if isNull(Pic) then%>
                <div align="left"><img border="0" src="<%=NoPic%>" width="90" height="90" /> 
                  <%else%>
                  <img src="<%=pic%>" alt="<%=name%>" width="90" height="90" /> 
                  <%end if%>
                </div></td>
                  
              <td width="669" valign="top" bgcolor="#FFFFFF"><strong></strong> 
                <strong><font color="#0000FF">ר   </font></font></strong>:<font color="#34689a"><strong>ר</strong></font>:<strong><font color="#ff0000">10<%=hits%></font></strong><strong><font color="#9900CC">ϼʱ䣺<%=dateandtime%></font></strong> 
                <strong><a href="news3.asp">ר</a></strong><br>
                <%if intro="" then%>
                <%else%>
                <%=htmlencode3(intro)%> 
                <%end if%>
              </td>
                </tr>
              </table></td>
          </tr>
          <tr align="center"> 
            <td class=bkdown width="992" bgcolor=#d6dbef> 
              <%
set rs=server.createobject("adodb.recordset")
if mysearch="" then mysearch=" where "
if request("classid")<>"" then mysearch=mysearch & "and classid="&request("classid")&" "
if request("musicname")<>"" then mysearch=mysearch & "and musicname like '%"&request("musicname")&"%' "
mysearch=replace(mysearch,"where and","where")
if trim(mysearch)="where" then mysearch=""
sql="select * from MusicList where Specialid="+cstr(Specialid)+" order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then 
	response.write "δ¼"
else
	MaxPerPage=400
	PageUrl="showspecial.asp"
	totalPut=rs.recordcount 
	if currentpage<1 then currentpage=1
	if (currentpage-1)*MaxPerPage>totalput then 
		if (totalPut mod MaxPerPage)=0 then 
			currentpage= totalPut \ MaxPerPage 
		else 
			currentpage= totalPut \ MaxPerPage + 1 
		end if 
	end if 
	if currentPage=1 then 
		showContent 
		showpage totalput,MaxPerPage,PageUrl
	else 
		if (currentPage-1)*MaxPerPage<totalPut then 
			rs.move  (currentPage-1)*MaxPerPage 
			dim bookmark 
			bookmark=rs.bookmark 
			showContent 
			showpage totalput,MaxPerPage,PageUrl
		else 
			currentPage=1 
			showContent 
			showpage totalput,MaxPerPage,PageUrl
		end if 
	end if 
end if 
rs.close 
			
sub showContent 

%>
              <font color="#FF0000"><strong>רַ</strong></font> 
              <script language="javascript">
url1=document.location.href ;
document.write("<input onmouseover=this.focus() style='font-size: 14px; width: 290px; color: #000000; line-height: 10px; font-family: MS Shell Dlg; border: 0px inset #444444; padding-left: 5px; padding-top: 4px; background-color: #f4fdf2' onfocus=this.select() size='40' value="+url1+" name='2260'>")
</script> <font color="#990000"><strong>CTRL+Cַĺһɣ</strong></font> 
 <table cellspacing=0 cellpadding=0 width="770" border=0>
                <tbody>
                  <tr> 
                    <td width="992"> 
                      <table class=zt00 cellpadding="0" cellspacing="0" border="1" width="770" style="border-collapse: collapse" bordercolor="#666699">
                        <form name="form2" onSubmit="javascript:window_open;" action=RAM.asp target=Listen>
                          <tr> 
                            <%
i=0
do while not rs.eof
	i=i+1
%>
                            <TD width="4" height="25" align="center" bgcolor="#d6dbef" class=zt00> 
                              <input type=checkbox name=songid value=<%=rs(0)%>> 
                            </TD>
                            <TD width="180" height="25" bgcolor="#d6dbef" class=zt00><%=i%><a href=javascript:window_open('<%if rs("musictype")="1" then%>RM.asp<%elseif rs("musicType")="2" then%>WMA.asp<%else%>FLASH.asp<%end if%>?songid=<%=rs(0)%>','Listen','width=770,height=630') title='<font color="#0000FF">11<%=rs("hits")%>Ρ</font>ϼʱ䣺<font color="#ff0000"><%=year(rs("dateandtime"))%><%=month(rs("dateandtime"))%><%=day(rs("dateandtime"))%>ա</font>'><%=left(rs("MusicName"),45)%> 
                              <% if len(rs("MusicName"))>45 then Response.Write " " %>
                              </a></TD>
                            <TD width="24" height="25" bgcolor="#FFDDDD"><div align="center"><a href="UserCollect.asp?action=add&id=<%=rs("id")%>" target="Collect">ղ</a></div></td>
                            <%if (i mod 3)=0 and i>=3 then%>
                          </TR>
                          <%
end if
	if i>=MaxPerPage then exit do
rs.movenext
loop
%>
                          <tr> 
                            <td colspan=8 align=center> <input name="button" type="button" style="border-style:solid; border-width:0px; padding:0; font-size:9pt; color:#000000; background-color:#FFDCB9" title="ѡʾи" onClick="CheckOthers(this.form)" value="ȫ ѡ"> 
                              &nbsp;&nbsp;&nbsp;&nbsp; <input name="button" type="button" style="border-style:solid; border-width:0px; padding:0; font-size:9pt; color:#000000; background-color:#FFDCB9" title="ѡ" onClick="CheckOthers(this.form)" value=" ѡ"> 
                              &nbsp;&nbsp;&nbsp;&nbsp; <input name="submit2" type="submit" style="border-style:solid; border-width:0px; padding:0; font-size:9pt; color:#000000; background-color:#FFDCB9" title="ѡĸٵ" value=" "> 
                            </td>
                          </tr>
                        </form>
                      </table></td>
                  </tr>
                </tbody>
              </table></td>
          </tr>
          <%
end sub 
function showpage(totalnumber,MaxSpecialList,filename)
if totalnumber mod MaxSpecialList=0 then
	n= totalnumber \ MaxSpecialList
else
	n= totalnumber \ MaxSpecialList+1
end if
if Classid<>"" then
	linkto="classid="&Classid
else
	linkto=""
end if
%>
          <tr> 
            
        <td 
              height=25 colspan=2 bgcolor="#d6dbef" class=zt00> 
          <div align="center"><font color="#FF0000"><strong><font color="#34689a"><%=totalnumber%></font> 
            Ϊվ ѱվܸ HttP://WwW.YL78.CoM עԱղظжɡ&nbsp;</strong></font> 
          </div></td>
          </tr>
          <%end function%>
          <tr> 
            <td colspan=2><img height=7 src="images/240.gif" 
                width="100%"></td>
          </tr>
        </tbody>
      </table>
<!--#include file="tv5.asp"-->
<!--#include file="foot.asp"-->
