www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > djshow.asp

    <!--#include file="Connkkp.asp"-->
<%
Select Case LCase(Request.QueryString("SenFe"))
	'Case "":
	Case "menu":	SenFe_Menu:SenFe_Message
	Case "news":	SenFe_News
	Case "listtop":	SenFe_ListTop
	Case "link":	SenFe_Link
	Case "play":	SenFe_Play
	Case "special":	SenFe_Special
	Case "specialtop":	SenFe_SpecialTop
	Case "specialgood":	SenFe_SpecialGood
	Case Else:Response.Write "alert(""非法访问!"");"
End Select
Sub SenFe_Message()
	Set Rs = Conn.Execute("Select * From [Message] Where (delS=0 or delS is null) And [Flag]=0 And [Incept]='" & Trim(session("DJUser")) & "' Order By SendTime Desc")
		If Not Rs.Eof Then
			Response.Write "open_window('Messager.asp?action=newmsg','newmsg','width=420,height=300');"
		End If
	Rs.Close
	Set Rs = Nothing
End Sub
Sub SenFe_Special()
	Response.Write "//你想干什么啊？"
	Id = Request("id")
	If Id<>"" And IsNumeric(Id) Then
		Conn.ExeCute("Update [Special] Set Hits=Hits+1 Where [Specialid]=" & CLng(Id))
	End If
End Sub
Sub SenFe_Play()
	id = Request("id")
	Session("auth") = True
	Response.Write "//你想干什么啊？"
	If id<>"" And IsNumeric(Id) Then
		set rs = server.createobject("adodb.recordset")
		rs.open "select * from [MusicList] where id=" & id,conn,1,3
			If (Weekday(Date())=2 Or DateDiff("w",Rs("Hits_Date"),Date())>0) And DateDiff("d",Rs("Hits_Date"),Date())>0 Then
				Rs("Hits_Weekday_1") = Rs("Hits_Weekday")
				Rs("Hits_Weekday") = 0
			End If
			If DateDiff("m",Rs("Hits_Date"),Date())>0 Then
				Rs("Hits_Month_1") = Rs("Hits_Month")
				Rs("Hits_Yesterday") = Rs("Hits_Today")
				Rs("Hits_Month") = 0
				Rs("Hits_Today") = 0
				Rs("Hits_Date") = Date()
			Else
				If DateDiff("d",Rs("Hits_Date"),Date())>0 Then
					Rs("Hits_Yesterday") = Rs("Hits_Today")
					Rs("Hits_Today") = 0
					Rs("Hits_Date") = Date()
				End If
			End If
			Rs("Hits") = Rs("Hits")+1
			Rs("Hits_Today") = Rs("Hits_Today")+1
			Rs("Hits_Weekday") = Rs("Hits_Weekday")+1
			Rs("Hits_Month") = Rs("Hits_Month")+1
			Rs.Update
			Response.Write Rs("Hits")
		rs.Close
		set rs = nothing
	End If
End Sub
Sub SenFe_Menu()
%>
document.write("<TABLE width=760 height=33 cellSpacing=1 cellPadding=2 border=0 background=\"../../images/top_bg1.gif\">");
document.write("<TBODY>");
document.write("<TR>");
document.write("<TD class=zt00>");
document.write("<DIV align=center><a class=typemenu title=\"舞曲首页\" href=\"../../index.html\">舞曲首页</a></DIV></TD>");
<%   
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
%>document.write("<TD class=zt00>");
document.write("<DIV align=center><a class=typemenu title=\"<%=rs("Class")%>\" target=_blank'c' href=\"../../list/djmc_<%=rs("Classid")%>_1.html\"><%=rs("Class")%></a></DIV></TD>");
<%                       
		rs.movenext
		loop
	end if
rs.close
%>
<%
	Response.Write "document.write(""</TBODY></TABLE>"");"
End Sub
Sub SenFe_News()
	Response.Write "document.write(""<table width=\""100%\"" border=\""0\"" cellpadding=\""0\"" cellspacing=\""0\""><tr><td width=\""100%\"" valign=\""top\"">"");" & VbCrlf
	Set Rs=Conn.Execute("SELECT * From Announce where IsChecked=true") 
	If Rs.Eof And Rs.Bof Then
		Response.Write "document.write(""尚无任何重要公告信息!"");" & VbCrlf
	Else
		Response.Write "marquee1();" & VbCrlf
		Dim Content
		Content = Rs("Content")
		Content = Replace(Content,VbCrlf,"<br />")
		Content = Replace(Content,"""","\""")
		Response.Write "document.write(""" & Content & """);" & VbCrlf
		Response.Write "marquee2();" & VbCrlf
		Response.Write "document.write(""</td></tr><tr><td align=left>公告人员:" & Rs("Author") & "<br>公告日期:" & Rs("DateAndtime") & """);" & VbCrlf
	End If
	Response.Write "document.write(""</td></tr></table>"");"
End Sub
Sub SenFe_ListTop()
	Classid   = Request.QueryString("Classid")
	SpecialID = Request.QueryString("Specialid")
	Response.Write "document.write(""<TABLE border=0 width=\""100%\"" cellpadding=0 cellspacing=2 align=right><TBODY>"");" & VbCrlf
	Sql1 = "SELECT top 10 id,ClassID,MusicName,musictype,hits,Downhits,DateAndTime From MusicList"
	If Classid<>"" And IsNumeric(Classid) Then
		Sql1 = Sql1 & " where ClassID=" & CInt(Classid)
	ElseIf SpecialID<>"" And IsNumeric(SpecialID) Then
		Sql1 = Sql1 & " where SpecialID=" & CInt(SpecialID)
	End If
	If Request.QueryString("IsGood")<>"" Then Sql1 = Sql1 & " And [IsGood]"
	Sql1 = Sql1 & " order by "
	If LCase(Request.QueryString("by"))="down" Then
		Sql1 = Sql1 & "Downhits"
	Else
		Sql1 = Sql1 & "hits"
	End If
	Sql1 = Sql1 & " desc"
	Set Rs = Conn.Execute(Sql1) 
	If Not Rs.Eof Then
		Do While Not Rs.Eof And m<10
			M = M+1                        
			Response.Write "document.write(""<TR><TD class=gqgm1>" & Right("0" & M,2) & ".<a target=\""_blank\"" href=\""../p/" & rs(0) & ".html\"" title='舞曲名称:" & Rs("MusicName") & "<br>添加时间:" & DateValue(Rs("DateAndTime")) & "'>" & Left(Rs("MusicName"),13)
			If Len(Rs("MusicName"))>23 Then Response.Write "."
			Response.Write "</a></TD><TD class=gqgm1>"
			If LCase(Request.QueryString("by"))="down" Then
				Response.Write Rs("Downhits")
			Else
				Response.Write Rs("Hits")
			End If
			Response.Write "</TD></TR>"");" & VbCrlf
			Rs.MoveNext
		Loop
	Else
		Response.Write "document.write(""<TR><TD valign=top>尚无收录</TD></TR>"");"
	End If
	Rs.Close
	Set Rs = Nothing
	Response.Write "document.write(""</TBODY></TABLE>"");"
End Sub
Sub SenFe_SpecialTop()
	SenFe_Id  = Request.QueryString("Classid")
	Sql = "Select * From [Special] Order By [specialid] Desc"
	If SenFe_Id<>"" And IsNumeric(SenFe_Id) Then Sql = "Select * From [Special] where [ClassID]=" & CLng(SenFe_Id) & " Order By [specialid] Desc"
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	Rs.Open Sql,Conn,1,1
		If Rs.Eof Then
			Response.Write "document.write(""还没有任何舞曲！"");"
		Else
			Response.Write "document.write(""<table border=\""0\"" cellpadding=\""2\"" cellspacing=\""0\"" style=\""border-collapse: collapse\"" bordercolor=\""#111111\"" width=\""100%\"">"");" & VbCrlf
			M = 0
			Do While Not Rs.Eof And M<100
				M = M+1
				Response.Write "document.write(""<tr><td width=\""162\"" class=\""gqgm1\"">"
				Response.Write "<a href=\""../Zj/djmc_" & Rs("Specialid") & "_1.html\""><font color=\""#000000\"">"
				If Len(Rs("name"))>20 Then
					Response.Write (Left(Rs("name"),14))
				Else
					Response.Write (Rs("name"))
				End If
				Response.Write "</font></a></td></tr>"");" & VbCrlf
				Rs.MoveNext
			Loop
			Response.Write "document.write(""</table>"");"
		End If
  	Rs.Close
	Set Rs = Nothing
End Sub
Sub SenFe_SpecialGood()
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	Rs.Open "Select * From [Special] where [Isgood] Order By [Specialid] Desc",Conn,1,1
		If Rs.Eof Then
			Response.Write "document.write(""还没有任何舞曲！"");"
		Else
			Response.Write "document.write(""<table border=\""0\"" align=\""center\"" cellpadding=\""2\"" cellspacing=\""0\"" style=\""border-collapse: collapse\"" bordercolor=\""#111111\"" width=\""100%\"">"");" & VbCrlf
			M = 0
			Do While Not Rs.Eof And M<1
				M = M+1
				Response.Write "document.write(""<tr><td align=\""center\"" valign=\""top\"">"
				Response.Write "<a target=\""_blank\"" href=\""../Zj/djmc_" & Rs("Specialid") & "_1.html\""><font color=\""#000000\"">"
				If Len(Rs("name"))>11 Then
					Response.Write (Left(Rs("name"),7))
				Else
					Response.Write (Rs("name"))
				End If
				Response.Write "</font></a><br><img width=\""80\"" src=\""../" & rs("pic") & "\"" border=0 style=\""border: 0px solid #000000\""></a></td></tr>"");" & VbCrlf
				Rs.MoveNext
			Loop
			Response.Write "document.write(""</table>"");"
		End If
  	Rs.Close
	Set Rs = Nothing
End Sub
Sub SenFe_Link()
	Response.Write "document.write(""<TABLE cellSpacing=0 cellPadding=0 width=750 border=0 align=center><TBODY>"");" & VbCrlf
	Response.Write "document.write(""<TR class=leftbg align=middle>"");" & VbCrlf
	Response.Write "document.write(""<TD vAlign=top width=760 style=\""border: #fff 1px solid;\"">"");" & VbCrlf
	Response.Write "document.write(""<MARQUEE scrollAmount=5 scrollDelay=4 width=750 align=left onmouseover=\""this.stop()\"" onmouseout=\""this.start()\"">"");" & VbCrlf
	set rs = server.createobject("adodb.recordset")
	rs.open "SELECT * FROM FriendSite where (LogoUrl is not Null) and Isgood=true order by id desc",conn,1,1
		if not Rs.eof then
			do while not rs.eof
				Response.Write "document.write(""<a href=\""" & rs("SiteUrl") & "\"" target=\""_blank\""><img src=\""" & rs("LogoUrl") & "\"" width=86 height=31 border=0 alt=\""名称：" & rs("SiteName") & "&#13;&#10;站长：" & rs("SiteAdmin") & "&#13;&#10;地址：" & rs("SiteUrl") & " &#13;&#10;简介：" & Replace(Replace(rs("SiteIntro"),VbCrlf,""),"/","<br />") & "\""></a>"");" & VbCrlf
				rs.movenext
			loop
		end if
	rs.close
	rs.open "SELECT * FROM FriendSite where (LogoUrl is Null) and Isgood=true order by id desc",conn,1,1
		if not Rs.eof then
			do while not rs.eof
				Response.Write "document.write(""<a href=\""" & rs("SiteUrl") & "\"" target=\""_blank\"" title=\""名称：" & rs("SiteName") & "&#13;&#10;站长：" & rs("SiteAdmin") & "&#13;&#10;地址：" & rs("SiteUrl") & "&#13;&#10;简介：" & Replace(Replace(rs("SiteIntro"),VbCrlf,""),"/","<br />") & "\"">" & rs("SiteName") & "</a>&nbsp;"");" & VbCrlf
                    		rs.movenext
			loop
		end if
	rs.close
	Response.Write "document.write(""</MARQUEE></TD></TR></TBODY></TABLE>"");"
End Sub
%>