<!--#Include File="../Include/CmsDj.Label.asp"-->
<%
'**************************************************************************************************
' 程序名称: 七禧舞曲管理系统
' 程序作者: 花心萝卜
' 官方网站: http://www.cmsdj.com http://www.7xiwl.com
' 编写日期: 2009年8月27日
' 版权所有: 本程序由七禧网络开发，未经同意请勿用于商业用途
'**************************************************************************************************
Dim CMSDJ_ID,CMSDJ_IDA,CMSDJ_IDB,Page,Param,Sel,Rs,Template,ClassName,SpanDj,KeyWord
Param=Params
	CMSDJ_ID=split(GetUrl,"?")
	IF GetUrl=""&InstallDir&"html/" Then:Echo "系统参数错误!":Response.End:End IF
	CMSDJ_IDAA=replace(CMSDJ_ID(1),".html","")
	CMSDJ_IDBB=split(CMSDJ_IDAA,",")
	CMSDJ_IDA=CMSDJ_IDBB(0)
	CMSDJ_IDB=CMSDJ_IDBB(1)
	IF Not IsNum(CMSDJ_IDA) Then:Echo "系统参数错误!":Response.End:End IF
	IF Not IsNum(CMSDJ_IDB) Then:Echo "系统参数错误!":Response.End:End IF
		Select Case CMSDJ_IDA
			Case "0"
				Page=CMSDJ_IDBB(2)
				IF IsNul(Page) Or Not IsNum(Page) Then Page=1
				SpanDj=Label.SpanDjList(CMSDJ_IDB)
				Label.Page_Mark SpanDj,CMSDJ_IDB,KeyWord
				SpanDj=Label.Span_Page(CMSDJ_IDB,Page)
				Echo Label.PageShow(SpanDj,1,Page,CMSDJ_IDB)
			Case "1"
				Echo Label.SpanDjPlay(CMSDJ_IDB)
			Case "2"
				Echo Label.SpanDjSpecial(CMSDJ_IDB)
			Case "3"
				Echo Label.SpanDjNews(CMSDJ_IDB)
			Case "4"
				Page=CMSDJ_IDBB(2)
				IF IsNul(Page) Or Not IsNum(Page) Then Page=1
				SpanNews=Label.SpanNewsList(CMSDJ_IDB)
				Label.Page_Mark SpanNews,CMSDJ_IDB,KeyWord
				SpanNews=Label.Span_Page(CMSDJ_IDB,Page)
				Echo Label.PageShow(SpanNews,0,Page,CMSDJ_IDB)
			Case "5"
				Echo Label.SpanDjPage(CMSDJ_IDB)
		End Select

Private Function GetUrl()
	Dim ScriptAddress, M_ItemUrl, M_item
	ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME")) '取得当前地址
	M_ItemUrl = ""
	If (Request.QueryString <> "") Then
		ScriptAddress = ScriptAddress & "?"
		For Each M_item In Request.QueryString
			If InStr(page,M_Item)=0 Then
				M_ItemUrl = M_ItemUrl & M_Item &""
			End If
		Next
	End If
	GetUrl = ScriptAddress & M_ItemUrl
End Function
%>