📄 song.asp
字号:
<!--#include file="head.asp"-->
<script language="javascript">
function wzxylsong(url,width,height,openname)
{
var Win = window.open(url,openname,'width=' + width + ',height=' + height +',left=10,top=10,resizable=1,scrollbars=yes,menubar=no,status=no' );
Win.focus();
}
</script>
<%dim pe,ad,sql,user
pe=request.querystring("pe")
ad=request.querystring("ad")
user=session("wzname")
if pe<>"" then
set rs=conn.execute ("select * from song where id="&ad&" and sender='"&session("wzname")&"'")
IF rs.eof and Session("sitejob")<>3 then
%>
<script language="vbscript">
msgbox "对不起，你没有这个权限!",1+48,"五中校友录"
</script>
<%else
Set rs = Server.CreateObject("ADODB.Recordset")
sql="delete from song where id="&ad&""
rs.open sql,conn,1,3
Response.Redirect "song.asp"
end if
end if%>
<TABLE style="BORDER-RIGHT: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid"
cellSpacing=0 cellPadding=0 width=778 align=center bgColor=#ffffff>
<TBODY>
<TR vAlign=top>
<TD width=200 bgColor=#f4f4f4>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top height=350>
<TABLE id=AutoNumber4 cellSpacing=0 cellPadding=0 width="90%"
align=center border=0>
<TBODY>
<TR>
<TD align=middle width="100%"><IMG height=8 alt=""
src="image/stu.htm" width=1 name=""></TD></TR></TBODY></TABLE>
<TABLE
style="BORDER-RIGHT: #cccccc 1px solid; BORDER-TOP: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid"
cellSpacing=0 cellPadding=0 width="90%" align=center
bgColor=#ffffff>
<TBODY>
<TR>
<TD>
<DIV align=center><STRONG><FONT color=#000000><IMG height=40
src="image/vsong.gif"
width=180></FONT></STRONG></DIV></TD></TR>
<TR>
<TD>
<TABLE id=AutoNumber4 cellSpacing=6 cellPadding=0 width="100%"
align=center bgColor=#ffffff>
<TBODY>
<TR> <%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from bysong order by id desc"
rs.open sql,conn,1,3
%>
<form name="form1" method="post" action="song.asp">
<TD align=left width="100%" bgColor=#ffffff
height=20>送给:
<input name="accept" type="text" id="accept" size="15">
<br>
歌名:
<input name="songname" type="text" id="songname" size="15">
<br>
歌曲地址：
<input name="songaddr" type="text" id="songaddr" value="http://" size="15">
<br>
备选歌曲：
<select name="song" id="song" onChange="document.form1.songaddr.value=this.options[this.selectedIndex].value;document.form1.songname.value=this.options[this.selectedIndex].text">
<option ></option>
<%do while not rs.eof%>
<option value="<%=rs("songhttp")%>"><%=rs("song")%></option>
<%rs.movenext
loop
rs.close
set rs= nothing%>
</select> <br>
保留天数：<select name="passdate" size="1" id="passdate">
<% for i=1 to 15
Response.write "<option value='"&i&"'>"&i&"天</option>"
next%>
</select>
<br>
祝贺语：
<textarea name="meg" rows="8" id="meg"></textarea>
<% If session("wzname")="" Then%><br>
<font color=red>只有登录才能发布!</font>
<%else%>
<input type="submit" name="Submit2" value="提交">
<input type="reset" name="Submit3" value="重置">
<%End If%> </TD>
</form>
</TR></TBODY></TABLE>点给多个人时，请用逗号隔开；歌曲地址，在<a href="http://mp3.baidu.com" target="_blank"><font color="#FF0000">百度</font></a>中搜索，格式必须是<font color="#FF0000">wav,wmv,rm,ram,mp3</font>的一种，如果你不会找到歌曲地址，那就用“备选歌曲”，如果你想点歌不在这里，那请通告我们，我们会添加上</TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD bgColor=#cccccc><IMG height=1 alt="" src="image/stu.htm" width=1
name=""></TD>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center
bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD height=8 bgColor=#f4f4f4></TD></TR>
<TD>
<TABLE id=AutoNumber3 style="BORDER-COLLAPSE: collapse"
cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top height=52>
<TABLE id=AutoNumber5 style="BORDER-COLLAPSE: collapse"
borderColor=#111111 cellSpacing=0 cellPadding=3 width="100%"
border=0>
<TBODY>
<TR>
<TD class=6 width=495 background=image/type_bg.gif
height=30><IMG height=12 src="image/type01.gif" width=12
align=absMiddle> 当前位置: <A
href="index.asp">网站首页</A> - 点歌台 </TD>
<TD width=100 background=image/type_bg.gif>
<DIV align=center></DIV></TD></TR><TR>
<TD colSpan=2><DIV align=center>
<%
dim songname,songaddr,passdate,accept,meg,cur,rowcount,i
songname=request.form("songname")
songaddr=request.form("songaddr")
accept=request.form("accept")
passdate=date()+request.form("passdate")
meg=request.form("meg")
Set rs = Server.CreateObject("ADODB.recordset")
if meg="" then
sql="select song.*,user.name,user.Username from song,user where user.username=song.sender order by date desc"
cur=request.form("cur")
if cur="" then
cur=1
end if
rs.pagesize=10
rs.open sql,conn,1,1
rs.absolutepage=cint(cur)
rowcount=0%>
<TABLE width="99%" border=1 cellPadding=0 cellSpacing=1 bordercolor="#F7EBCE">
<TBODY>
<TR>
<TD width="6%" height=20><IMG height=8
src="image/arrow02.gif" width=8> <span class="?ùê?1"><L>ID</L></span></TD>
<TD colspan="2" align=right>
<DIV align=center>点歌台</DIV></TD>
</TR>
<%do while not rs.eof and rowcount<rs.pagesize%>
<TR>
<TD height=20><div align="center"><span class="?ùê?1"><%=rowcount+1%></span></div></TD>
<TD height=20><l> <a href="datum.asp?username=<%=rs("Username")%>"><font color="#FF0000"><%=rs("name")%></font></a>于<%=rs("date")%>为<font color="#FF0000"><%=rs("accept")%></font>点了一首〖<a href="#" onclick="window.open('songplay.asp?songaddr=<%=rs("songaddr")%>','110','scrollbars=no,resizable=no,width=400,height=190,menubar=no,top=98,left=198')" title="听歌吧"><font color="#FF0000"><%=rs("songname")%></font></a>〗歌</l></TD>
<TD><a href="?pe=del&ad=<%=rs("id")%>"><font color="#FF0000">删除</font></a></TD>
</TR>
<TR>
<TD height=20 colspan="3">
并送上赠言：<%=rs("meg")%></TD>
</TR>
<%rowcount=rowcount+1
rs.movenext
loop %></TBODY></TABLE>
<table width="100%" border="0">
<tr><form name="form2" method="post" action=""><TD align=left bgcolor="#F7EBC6"><span class="style2">共<%=rs.recordcount%>首 分<%=rs.pagecount%>页 当前页次：<%=cur%>/<%=rs.pagecount%>
转到:
<select name="cur" size="1" onchange="javascript:submit()">
<%for i = 1 to rs.pagecount%>
<option value="<%=i%>" <%if i=cint(cur) then%> selected <%end if%>>第<%=i%>页 </option>
<%next%>
</select>
<%
rs.close
set rs=nothing%>
</td>
</form>
</tr>
</table>
<%else
if songname="" or accept="" or songaddr="http://" Then%>
请将内容填全了<br>
<br>
<a href='javascript:history.go(-1)'><font color=red size=4>返回</font></a>
<%else
set rs=Server.CreateObject("Adodb.Recordset")
rs.open "select * from song where 1=2",conn,1,3
Rs.addnew()
rs("accept")=accept
rs("sender")=Session("wzname")
rs("songname")=songname
rs("songaddr")=songaddr
rs("meg")=meg
rs("class")=1
rs("date")=now()
rs("passdate")=passdate
Rs.Update
rs.close
set rs=nothing
Response.Redirect "song.asp"
end if
end if
sub delsong
Set rs = Server.CreateObject("ADODB.recordset")
sql="delete from song where passdate<='"&date()&"'"
rs.open sql,conn,1,3
rs.close
set rs=nothing
end sub%>
</DIV></TR></TBODY></TABLE>
</TD></TR></TBODY></TABLE></TD></TR></TABLE></TD></TR></TBODY></TABLE>
<!--#include file="bottom.asp"-->
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -