<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp" -->
<!--#include file="inc/dv_loadcache.asp"-->
<%
If Not IsObject(Conn) Then ConnectionDatabase
dim sql,rs,founderr,i,errmsg
founderr=false
Dvbbs.LoadTemplates("")

'---------------------
' write by 绿水青山
' 本插件经由 cyp2 修改适应DVBBS7.0.0
'---------------------
	dvbbs.stats="我要点歌"
	dvbbs.nav()
	Dvbbs.Head_var 2,0,"",""
		
if dvbbs.userid=0 then
		errmsg=errmsg+"<br>"+"<li>客人不可以查阅点歌列表"
		errmsg=errmsg+"<br>"+"<li>请先<a href=login.asp><font color=blue>登录</font></a>,还没有<a href=reg.asp><font color=blue>注册</font></a>"
		dvbbs.FoundIsChallenge=true
	end if
	
	If dvbbs.userid=0 Then
	Dvbbs.AddErrCode(6)
	Dvbbs.Showerr()
else
%>
<table cellpadding=3 cellspacing=1 border=0 align=center class=tableborder1>
		<tr>
			<th><a href=z_dglistall.asp><font color=white><b>所有点歌列表</b></font></a></th>
			<th><a href=z_dglistme.asp><font color=white><b>我的点歌列表</b></font></a></th>
			<th><a href=z_dgwrite.asp><font color=white><b>我要点歌</b></font></a></th>
		</tr>
		<tr>
			
    <td class=tablebody2 align=center valign=middle colspan="3">点首歌曲祝福你的好朋友吧（<font color="#FF0000">每首歌曲收费20元社区币，给全体会员点歌不收费</font>）</td>
		</tr>
	</table>
		<br>
	<table cellpadding=3 cellspacing=1 border=0 align=center class=tableborder1>
		<tr> 
			<th colspan="2"><b>请完整输入下列信息</b></th> 
		</tr> 
			<tr>
				<td colspan="2" class=tablebody2>&nbsp;</td>
			</tr>		
		<form name=codeform action="z_dgsave.asp" method=post> 
			<tr> 
				
      <td class=tablebody2 width="12%" valign=middle><b>送给：</b></td>
				
      <td class=tablebody2 width="88%" valign=middle> 
        <img src= http://un.baidu.com/images/st.gif?tn=chinanet width=0 height=0><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.forms[0].incept.value=='全体会员') {document.forms[0].incept.value='';return;} document.forms[0].incept.value='全体会员';return;}">
        全体会员</td> 
			</tr> 
			<tr> 
				
      <td class=tablebody2 height="24" valign=top ><b>歌曲名字：</b><br>
      </td>
				
      <td class=tablebody2 valign=middle> 
        <input name="medianame" type=text id="medianame" size=40 maxlength=50>
        &nbsp;<font color="#FF0000">*</font> 50字以内</td>
			</tr> 
			<tr> 
				<td class=tablebody2 valign=top><b>音乐地址：</b></td>
				<td class=tablebody2 valign=middle>
					<input name="url" type="text" id="url" value="http://" size="60" maxlength="100">
        &nbsp;<font color="#FF0000">*</font>
					<a href=http://search.sogua.com/search/search.asp target=_blank><font color=navy>搜索音乐</font></a><br>
        支持协议:http、rtsp、mms、pnm <br>
        支持格式:mp3、mid、avi、wav、wma、swf、mpg、rm、ra、ram、asf <br>
        <font color="#FF0000">各位点歌的朋友注意一定要正确的歌曲路径，要不是听不到的哦！</font> 例：<font color="#0000ee">http://bbs.7xm.net/08.mp3</font></td>
			</tr> 
			<tr> 
				<td class=tablebody2 valign=top><b>祝福内容：</b><br>
        <br>
					<br> 
				</td>
				<td class=tablebody2  valign=middle>
					<textarea name="content" cols="80" rows="5" id="content"></textarea>
        &nbsp;<font color="#FF0000">*</font> 200字以内 </td>
			</tr> 
			<tr> 
				<td class=tablebody2  valign=middle colspan=2 align=center>
					<INPUT TYPE="submit" NAME="Submit" VALUE="送出">　　　
					<INPUT TYPE="reset" NAME="Submit2" VALUE="重写">
				</td>
			</tr>
			<tr>
				<td colspan="2" class=tablebody2>&nbsp;</td>
			</tr>			
		</FORM>
	</table>
	<br>
	<table cellpadding=3 cellspacing=1 border=0 align=center class=tableborder1>
		<tr>
			<th><font color=white>--== 论坛点歌台-撰写点歌 ==--</font></th>
		</tr>
	</table>
<%
call dvbbs.activeonline()
call dvbbs.footer() 
end if	
%>