z_dgwrite.asp

此文件为一个电子同学录

<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/Char.asp" -->
<!--#include file="inc/ubbcode.asp"-->

<%
dim abgcolor
stats="我要点歌"

		
     if not  founduser 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>"
	founderr=true
     end if

	if founderr then
	   call head()
	   call head_var("错误信息",Request.ServerVariables("HTTP_REFERER"))
	   call txl_error()
        else
	   call head()
	   call head_var("班级点歌","Z_dgwrite.asp")
        if founderr then
		call txl_error()
	 else
		call main()
		if founderr then call txl_error()
	        end if
       end if
       call foot()

       sub main()
       abgcolor="tablebody2"


%>
	<table cellpadding=3 cellspacing=1 border=0 align=center class=tableborder1 width=<%=txl_body(19)%>>
		<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 width=<%=txl_body(19)%>>
		<tr> 
			<th colspan="2"><b>请完整输入下列信息</b></th> 
		</tr> 
			<tr>
				<td colspan="2" class=tablebody2>　</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> 
        <input name="incept" type=text id="incept" value="<%=request("touser")%>" size=40>
        <SELECT name=font onchange=DoTitle(this.options[this.selectedIndex].value)>
          <OPTION selected value="">选择</OPTION>
          <%
set rs=server.createobject("adodb.recordset")
sql="select realname from [user] where usergroupid<=3 order by userid desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
          <OPTION value="<%=rs(0)%>"><%=rs(0)%></OPTION>
          <%
rs.movenext
loop
rs.close
set rs=nothing
%>
        </SELECT>
        &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://www.821cn.com/search/?key=music 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.821cn.com/data/04.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>　</td>
			</tr>			
		</FORM>
	</table>
	<br>
	<table cellpadding=3 cellspacing=1 border=0 align=center class=tableborder1 width=<%=txl_body(19)%>>
		<tr>
			<th><font color=white>--== 昆工潮汕人点歌台-撰写点歌 ==--</font></th>
		</tr>
	</table>
<%
'call dvbbs.activeonline()
'end if	
%>
<%
end sub
%>

<script language="javascript"> 
function DoTitle(addTitle) {  
 var revisedTitle;  
 var currentTitle = document.codeform.incept.value; 

 if(currentTitle=="") revisedTitle = addTitle; 
 else { 
  var arr = currentTitle.split("|"); 
  for (var i=0; i < arr.length; i++) { 
   if( addTitle.indexOf(arr[i]) >=0 && arr[i].length==addTitle.length ) return; 
  } 
  revisedTitle = currentTitle+"|"+addTitle; 
 } 

 document.codeform.incept.value=revisedTitle;  
 document.codeform.incept.focus(); 
 return; 
} 
</script>