<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="radio.asp" -->
<%
Dim music
Dim music_numRows

Set music = Server.CreateObject("ADODB.Recordset")
music.ActiveConnection = MM_dcrdlyowa_STRING
music.Source = "SELECT * FROM music"
music.CursorType = 0
music.CursorLocation = 2
music.LockType = 1
music.Open()

music_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
music_numRows = music_numRows + Repeat1__numRows
%>
<%
Dim MM_paramName 
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
  MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then 
  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "")  Then
  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="5">
<meta http-equiv="refresh" content="10">
<meta http-equiv="refresh" content="20">
</head>

<body bgcolor="#800000">
<table width="75%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#D9D9D9">
  <tr bgcolor="#C2C2E0"> 
    <td bgcolor="#008000">
<div align="center"><font size="2" color="#FFFFFF">点歌时间</font></div></td>
    <td nowrap bgcolor="#008000">
<div align="center"><font size="2" color="#FFFFFF">点歌听众</font></div></td>
    <td nowrap bgcolor="#008000">
<div align="center"><font size="2" color="#FFFFFF">歌手名</font></div></td>
    <td nowrap bgcolor="#008000">
<div align="center"><font size="2" color="#FFFFFF">歌名</font></div></td>
    <td bgcolor="#008000">
<div align="center"><font size="2" color="#FFFFFF">点歌留言</font></div></td>
    <td nowrap bgcolor="#008000">
<div align="center"><font size="2"></font></div></td>
  </tr>
  <% 
While ((Repeat1__numRows <> 0) AND (NOT music.EOF)) 
%>
  <tr bgcolor="#FFFFFF"> 
    <td bgcolor="#008000"><div align="center"><font size="2"><%=(music.Fields.Item("时间").Value)%></font></div></td>
    <td nowrap bgcolor="#008000"><div align="center"><font size="2"><%=(music.Fields.Item("签名").Value)%></font></div></td>
    <td nowrap bgcolor="#008000"><div align="center"><font size="2"><%=(music.Fields.Item("歌手").Value)%></font></div></td>
    <td nowrap bgcolor="#008000"><div align="center"><font size="2"><a href="http://www.baidu.com/m?rn=&tn=baidump3&ct=134217728&word=<%=(music.Fields.Item("歌名").Value)%>&lm=-1" target="_blank"><%=(music.Fields.Item("歌名").Value)%></a></font></div></td>
    <td bgcolor="#008000"><font size="2"><%=(music.Fields.Item("点歌留言").Value)%></font></td>
    <td nowrap bgcolor="#008000"><div align="center"><font size="2"><A HREF="<%=okurlv42d%>delmusic.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "ID=" & music.Fields.Item("ID").Value %>"><font color="#FFFFFF">删除</font></A></font></div></td>
  </tr>
  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  music.MoveNext()
Wend
%>
</table>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><div align="center"><font color="#FFFF00" size="5">请每天播放完点歌的NJ删了当天节目的点歌！</font></div></td>
  </tr>
</table>
</body>
</html>
<%
music.Close()
Set music = Nothing
%>
