<!-- #include file=../../inc/BBSsetup.asp -->
<!-- #include file=../../inc/Board_Popfun.asp -->

<!--#include file="conn.asp"-->
<%
'---------------------
' write by 绿水青山 for 动网6.0
' 本插件经由 gafc 修改适应leadbbs3.14
'---------------------
DEF_BBS_HomeUrl = "../../"
opendatabase

dim stats
stats="<a href=write.asp>我要点歌</a>"
BBS_SiteHead DEF_SiteNameString & " " & DEF_BBS_Name,GBL_board_ID," >> "&stats

'头部信息
If GBL_TableHeadString <> "" Then 
   response.write "<table width="&DEF_BBS_ScreenWidth&" border=0 cellspacing=0 cellpadding=0 align=center><tr><td>"& GBL_TableHeadString &"</td></tr></table>"
End If

dim Errmsg
Errmsg=""

dim rs,sql,points
if GBL_CHK_User<>"" then
   set rs=con.execute("select points from leadbbs_user where username='"&GBL_CHK_User&"'")
   points=rs(0)
   rs.close
   set rs=nothing
end if

if GBL_CHK_User="" then
   errmsg=errmsg&"<li>客人不可以查阅点歌列表。</li>"
   errmsg=errmsg&"<li>请先<a href="&DEF_BBS_HomeUrl&"user/userjoin.asp>注册</a>或<a href="&DEF_BBS_HomeUrl&"user/login.asp>登录</a>。</li>"
   call Errormsg()
elseif Points-minpoints<0 then
   errmsg=errmsg&"<li>允许点歌最低积分为 <font color=red class=redfont>"&minpoints&"</font> ，您只有 <font color=red class=redfont>"&Points&" </font>，不能使用点歌功能。</li>"
   errmsg=errmsg&"<li>请到论坛发贴挣积分吧。</li>"
   call Errormsg()
else
%>
<table width="<%=DEF_BBS_ScreenWidth%>" border=0 cellspacing=1 cellpadding=5 align=center bgcolor=<%=DEF_BBS_DarkColor%> class=TBone>
  <tr bgcolor=<%=DEF_BBS_LightDarkColor%> align=center class=tbhead2>
     <td><a href=listall.asp><font class=headfont><b>所有点歌列表</b></font></a></td>
     <td><a href=listme.asp><font class=headfont><b>我的点歌列表</b></font></a></td>
     <td><a href=write.asp><font class=headfont><b>我要点歌</b></font></a></td>
<%if CheckSupervisorUserName = 1 or instr(DEF_SupervisorUserName,","&GBL_CHK_User&",")>0 then%>
     <td><a href=admin_dg.asp><font class=headfont><b>本地歌曲管理</b></font></a></td>
<%end if%>
  </tr>
  <tr class=tbbg1>
     <td valign=middle colspan="4">
       
        <li>点首歌曲送好朋友！</li>
        <li>每首歌曲显示 <font color=red><b>7</b></font> 天。每首歌曲收费 <font color=red class=redfont><b><%=points1%></b></font> 积分，给全体会员点歌不收费。</li>
        <li>如果你将一首歌曲同时点给2个人，则要收取 <font color=red class=redfont><b><%response.write points1*2%></b></font> 积分，依此类推。</li>
      
</td>
  </tr>
</table>
		
<table width="<%=DEF_BBS_ScreenWidth%>" border=0 cellspacing=1 cellpadding=5 align=center bgcolor=<%=DEF_BBS_DarkColor%> class=TBone>
  <tr bgcolor=<%=DEF_BBS_LightDarkColor%> align=center class=tbhead2> 
	<td colspan="2"><b>请完整输入下列信息</b></td> 
  </tr> 
  <tr class=tbbg1>
	<td colspan="2">&nbsp;</td>
  </tr>		
 <form name=codeform action="save.asp" method=post> 
  <tr class=tbbg1> 
      <td width="12%" valign=middle><b>送给：</b></td>
      <td width="88%" valign=middle> 
         <input name="incept" type=text id="incept" value="<%Trim(Request.QueryString("name"))%>" size=40>
         &nbsp;<font color="#FF0000">*</font> 多用户使用逗号&quot;|&quot;分开，最多5位用户 
         <input name="alluser" type=checkbox id="alluser" value="" onClick="{if(document.codeform.incept.value=='全体会员') {document.codeform.incept.value='';return;} document.codeform.incept.value='全体会员';return;}">
         全体会员
      </td> 
  </tr> 
  <tr class=tbbg1> 
      <td height="24" valign=top ><b>歌曲名字：</b><br></td>
      <td valign=middle> 
          <input name="medianame" type=text id="medianame" size=40 maxlength=50>
             &nbsp;<font color="#FF0000">*</font> 50字以内
      </td>
  </tr> 
  <tr class=tbbg1> 
      <td valign=top><b>音乐地址：</b></td>
      <td valign=middle>
	   <input name="url" type="text" id="url" size="60" maxlength="100">
           &nbsp;<font color="#FF0000">*</font>
	   提示：您可以使用<a href=http://mp3.baidu.com/ target=_blank><font color=#333333><b><u>Baidu</u></b></font></a>搜索歌曲。推荐链接歌曲的格式：wma
<br>
           支持协议：http、rtsp、mms、pnm <br>
           支持格式：mp3、mid、avi、wav、wma、swf、mpg、rm、ra、ram、asf <br>
           <font color=#ff0000>请填写正确的歌曲路径</font> 例：http://www.nocolor.cn/music/***.wma
      </td>
  </tr> 
  <tr class=tbbg1> 
      <td valign=top><b>点歌内容：</b><br><br><br></td>
      <td valign=middle><textarea name="content" cols="80" rows="5" id="content"></textarea>&nbsp;<font color="#FF0000">*</font> 200字以内 </td>
  </tr> 
  <tr class=tbbg1> 
      <td valign=middle colspan=2 align=center>
	   <INPUT TYPE="submit" NAME="Submit" VALUE=" 送出 " class=fmbtn>　　　
	   <INPUT TYPE="reset" NAME="Submit2" VALUE=" 重写 " class=fmbtn>
      </td>
  </tr>
  <tr class=tbbg1>
      <td colspan="2" class=tablebody2>&nbsp;</td>
  </tr>			
 </FORM>
</table>
<table width="<%=DEF_BBS_ScreenWidth%>" border=0 cellspacing=1 cellpadding=5 align=center bgcolor=<%=DEF_BBS_DarkColor%> class=TBone>
  <tr bgcolor=<%=DEF_BBS_LightDarkColor%> align=center class=tbhead2>
	<td><font class=headfont>--== 论坛点歌台-撰写点歌 ==--</font></td>
  </tr>
</table>
<%
end if
'尾部信息
If GBL_TableBottomString <> "" Then %>
 <table width=<%=DEF_BBS_ScreenWidth%> border=0 cellspacing=0 cellpadding=0 align=center>
   <tr><td><%=GBL_TableBottomString%></td></tr>
 </table>
<% End If 
  SiteBottom 
   If GBL_SiteBottomString <> "" Then Response.Write GBL_SiteBottomString	
%>