📄 top.asp

📁 疯狂DJ联盟-v2.0 1.修改了V1.0的几个错误. 2.首页生成HTM 大大加快了访问速度 3.歌曲播放页面全部调用HTM播放器.减轻了服务器的负担. 4.增加了站内统计,全部访问次数

💻 ASP

字号:

<%Response.Expires=0%>
<%
if request("checked")<>"" then
%>
<script>
<!--
window.open("playsong.asp?checked=<%=server.URLEncode(request("checked"))%>","ConListen","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=yes,copyhistory=yes,top=10,left=10,width=250,height=100")
window.open("<%=PageName%>.asp<%if (request("Classid")<>"" or request("Page")<>"" or request("Specialid")<>"" or request("action")<>"") then%>?<%if request("Classid")<>"" then%>ClassId=<%=request("ClassId")%>&<%end if%><%if request("Page")<>"" then%>Page=<%=request("Page")%>&<%end if%><%if request("Specialid")<>"" then%>Specialid=<%=request("Specialid")%><%end if%><%if request("action")<>"" then%>action=<%=request("action")%><%end if%><%end if%>","_self","")
//-->
</script>
<%end if%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>疯狂DJ==联盟=精选舞曲,粗口舞曲,中文单曲,英文舞曲,慢摇舞曲,现场舞曲</title>
<META name="keywords" content="疯狂DJ站,精选舞曲,粗口舞曲,中文单曲,英文舞曲,慢摇舞曲,现场舞曲">
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<script src=JS/Js.js></script>
<body bgcolor="#10597C" leftmargin=0 topmargin=0 >
<div align="center">
  <center>
<table width="773" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
<td width="773"><img src="images1/top4.gif" width="773" height="138"></td>
</table></center></div>
<table width="773" border="0" align="center" cellpadding="0" cellspacing="0" class="top" background="images1/bg_1.gif">
  <tr>
    <td height="29" align="center"><a href="index.asp"><font color=#ffffff><b>网站首页</a>&nbsp;</b></font> 
      <%   
      set rs=server.createobject("adodb.recordset")  
set rs=conn.execute("SELECT * FROM class order by classid")   
if not Rs.eof then  
		do while not rs.eof  
%>
      &nbsp;<a href="speciallist.asp?Classid=<%=rs("Classid")%>"><font color=#ffffff><b><%=rs("Class")%></a> </b></font> 
      <%                       
		rs.movenext                      
		loop                      
	end if                      
rs.close                      
%>
      &nbsp;&nbsp;</td>                    
  </tr>                    
</table>                    
<table width="773" height="5" border="0" align="center" cellpadding="0" cellspacing="0">                    
  <tr>                    
    <td height="1" bgcolor="#FCAE4F"></td>                    
  </tr>                    
</table>                    
<table width="773" border="0" align="center" cellpadding="0" cellspacing="0">                    
  <tr>                    
    <td height="10" bgcolor="#30393D"></td>                    
  </tr>                    
</table>                    
<%                    
set rs=conn.execute("select * from message where (delS=0 or delS is null) and flag=0 and incept='"&trim(session("DJ58User"))&"' order by sendtime desc")                    
if not rs.eof then                    
response.write"<script language=JavaScript>javascript:open_window('Messager.asp?action=newmsg','messager','width=420,height=300'); </script>"                    
end if                    
rs.close                    
%>                    
<!--#include file="inc/gg.inc"-->

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -