📄 albumsc1.asp
字号:
<%PageName="albumBox"%>
<!--#include file="conn.asp"-->
<!--#include file="functionuser.asp"-->
<!--#include file="const.asp"-->
<!--#include file="bzmtvconst.asp"-->
<%
action=request("action")
set rs=server.createobject("adodb.recordset")
if action="add" then
albumid=request.QueryString("id")
sql="select * from albumBox where UserName='"&membername&"' and albumid="&albumid
rs.open sql,conn,1,3
if not rs.EOF then
response.Redirect "albumsc.asp?action=show"
response.end
else
set rs2=server.createobject("adodb.recordset")
sql2="select * from special where specialid="&albumid
rs2.open sql2,conn,1,1
if (rs2.EOF and rs2.BOF) then
errmsg=errmsg+"<SCRIPT language=JavaScript>alert(' 请正确选择MTV! ');javascript:top.window.close();</SCRIPT>"
call error()
response.end
else
Name=rs2("Name")
NClass=rs2("NClass")
NClassid=rs2("NClassid")
pic=rs2("pic")
info=rs2("intro")
end if
rs2.close
set rs2=nothing
rs.AddNew
rs("UserName")=membername
rs("albumid")=albumid
rs("albumName")=name
rs("Singer")=NClass
rs("NClassid")=NClassid
rs("pic")=pic
rs("info")=info
rs.Update
end if
rs.Close
Response.Redirect "albumsc.asp?action=show"
elseif action="del" then
id=request("id")
set rs=conn.execute("delete FROM albumBox where UserName='"&membername&"' and id="&id)
Response.Redirect "albumsc1.asp?action=show"
elseif action<>"del" and action<>"add" then
%>
<LINK href="../images/index.css" rel=stylesheet type=text/css>
<body topmargin="0" leftmargin="0">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="285" height="107">
<tr>
<td width="285" valign="top" height="64" align="center">
<table border="0" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="1">
<%
sql="select * from albumBox where UserName='"&membername&"'"
rs.open sql,conn,1,1
if rs.EOF and rs.BOF then
%>
你尚未收藏任何MTV
<%
else
do while not rs.EOF
i=i+1
%>
<tr>
<td width="35%" height="1">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="110" height="110">
<tr>
<td width="100%" background="../images/bg_88.gif">
<p align="center">
<img src="../<%=rs("pic")%>" width="85" height="85" border="0"></td>
</tr>
</table>
</td>
<td width="65%" height="1">
<table border="0" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="100%"><font face="Arial" color="#FFCC00">NO.<%=i%></font></td>
</tr>
<tr>
<td width="100%">MTV：<a target="_blank" href="../Html/MtvPlay_<%=rs("albumid")%>.htm"><%=rs("albumName")%></a></td>
</tr>
<tr>
<td width="100%">歌手：<a target="_blank" href="../Html/Mtv_<%=rs("NClassid")%>.htm"><%=rs("Singer")%></a></td>
</tr>
<tr>
<td width="100%">操作：<a href="albumsc1.asp?action=del&id=<%=rs("id")%>">删除</a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" colspan="2" height="12">
<p align="center">
<textarea rows="3" cols="33" name="tt" style="border: 1px solid #C0C0C0; ; font-size:10.8pt">MTV介绍：<%=rs("info")%></textarea></td>
</tr>
<%
rs.MoveNext
loop
%>
<%
end if
rs.Close
else
errmsg=errmsg+"<SCRIPT language=JavaScript>alert(' 操作错误! 请联系管理员. ');javascript:top.window.close();</SCRIPT>"
founderr=true
end if
set rs=nothing
conn.close
set conn=nothing
if founderr=true then
call error()
end if
%>
</table>
</td>
</tr>
<tr>
<td width="285" valign="top" height="48" align="center">
<table border="0" cellpadding="6" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="100%">
<table border="0" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="100%" bgcolor="#EEEEEE">
为了保证您的在线视听速度，减轻服务器负担，请您定期删除MTV收藏内的多余MTV！感谢您的配合，本站在日后将提供更优质的服务。</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="285" valign="top" height="24" align="center">
<font class="txt" face="Verdana," color="#111111" size="1">Copyright (c)
2003 - 2004 </font><u><font class="txt" face="Verdana," color="#111111">
<font size="1"><%=weburl%></font></font></u><font class="txt" color="#111111"><font size="1">
</font></font>
</td>
</tr>
</table>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -