📄 my_mu.asp

📁 MisCMS源码
💻 ASP
字号:
<!--#include file="config.Asp"-->
<% if session("login")="" then
	response.Redirect"index.asp"
	end if %>
<% if request.QueryString("act")="del" then
	id=request.QueryString("id")
	l=request.QueryString("l")
	conn.execute("delete from favxx where muid="&id&"")
	response.Write"<script language=javascript>alert('删除成功！');location.href('my_mu.asp?l="&l&"');</script>"
	response.End()
	set conn=nothing
	end if %>
<% yhid=session("login")
	l=request.QueryString("l")
	if l=1 then
	t="网址"
	elseif l=2 then
	t="歌曲"
	end if %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="../css/style.css" rel="stylesheet" type="text/css">
</head>

<body>
<table width="90%"  border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#0099CC">
  <tr>
    <td bgcolor="#FFFFFF" align="center"><script type="text/javascript"><!--
google_ad_client = "pub-7234555567241040";
google_ad_width = 728;
google_ad_height = 90;
google_ad_format = "728x90_as";
google_ad_type = "text_image";
google_ad_channel = "";
//--></script>
<script type="text/javascript"
  src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF" height="25" align="center">管理<%= t %></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF">
	<table width="100%"  border="0" cellpadding="2" cellspacing="1" bgcolor="#BFBFBF">
	<% set rs=server.CreateObject("adodb.recordset")
		rs.open"select * from favxx where yhid="&yhid&" and kid="&l&" order by muid desc",conn,1,1
		if rs.eof then %>
	  <tr bgcolor="#FFFFFF"><td align="center" height="30" colspan="5">您还没有收藏的<%= t %></td></tr>
	  <% Else
	  	mypage=request("page")
		if mypage="" then
		mypage=1
		end if %>
      <tr bgcolor="#FFFFFF">
        <td width="22%" align="center"><%= t %>名称</td>
        <td width="58%" align="center"><%= t %>地址</td>
        <td width="20%" align="center">操作</td>
      </tr>
	  <% rs.pagesize=15
	  	 maxpage=cint(rs.pagecount)
		 sum=rs.recordcount
		 rs.absolutepage=mypage
		 i=1
		 do until rs.eof or i=16 %>
      <tr bgcolor="#FFFFFF">
        <td align="center"><%= rs("muname") %></td>
        <td align="center"><%= rs("muurl") %></td>
        <td align="center"><% If l=1 Then %><a href="<%= rs("muurl") %>" target="_blank">打开</a><% elseIf l=2 Then %><a href="#" onClick="window.open('Yxplay_.asp?muid=<%=rs("muid")%>','Lcmusic','scrollbars=no,resizable=no,width=580,height=100')" >试听</a><% End If %> <a href="#" onClick="if(confirm('确实要删除吗？')) href='my_mu.asp?act=del&l=<%= l %>&id=<%= rs("muid") %>'">删除</a> </td>
      </tr>
	  <% rs.movenext
	  	 i=i+1
		 loop
		 scriptname=request.ServerVariables("SCRIPT_NAME")
		 end if
		 rs.close
		 set rs=nothing %>
		 <% if maxpage>1 then %>
		<tr bgcolor="#FFFFFF"><td align="center" colspan="3">共[<font color="#FF0000"><%= sum %></font>]条信息&nbsp;&nbsp;页次[<font color="#FF0000"><%= mypage %></font>/<%= maxpage %>]&nbsp;&nbsp;
                    <% if cint(mypage)<>1 then %><a href="<%=scriptname%>?l=<%= l %>&page=1"><% end if %>首页<% if cint(mypage)<>1 then %></a><% end if %>&nbsp;&nbsp;
                    <% if cint(mypage)>1 then %><a href="<%=scriptname%>?l=<%= l %>&page=<%= cint(mypage)-1 %>"><% end if %>上页<% if cint(mypage)>1 then %></a><% end if %>&nbsp;&nbsp;
                    <% if cint(mypage)<maxpage then %><a href="<%=scriptname%>?l=<%= l %>&page=<%= cint(mypage)+1 %>"><% end if %>下页<% if cint(mypage)<maxpage then %></a><% end if %>&nbsp;&nbsp;
                    <% if cint(mypage)<>maxpage then %><a href="<%=scriptname%>?l=<%= l %>&page=<%= maxpage %>"><% end if %>尾页<% if cint(mypage)<>maxpage then %></a><% end if %></td></tr>
    	<% End If %>
	</table></td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -