Signed-off-by: cenfun <cenfun@gmail.com>

cmp2.1/admin/20to21.asp

@@ -0,0 +1,75 @@
+<!--#include file="conn.asp"-->
+<table width="90%" border="0" align="center" cellpadding="5" cellspacing="3">
+  <tr>
+    <td><strong>CMP v2.0数据转CMP v2.1数据程序：</strong></td>
+  </tr>
+  <form id="form1" name="form1" method="post" action="?action=up">
+    <tr>
+      <td> 您的2.0版数据库文件：
+        <input name="cmp20data" type="text" value="data/cmp20.mdb" size="30" />
+        (请2.0版数据库改名为cmp20.mdb放到data目录下) </td>
+    </tr>
+    <tr>
+      <td><input type="submit" name="Submit" value="提交" />
+        (请转换前做好数据备份,可先删除新版数据库中初始的分类)</td>
+    </tr>
+  </form>
+  <tr>
+    <td><% 
+if request("action")="up" then
+	Dim ConnStr2,conn2,sql2
+		ConnStr2 = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("data/cmp20.mdb")
+	On Error Resume Next
+	Set conn2 = Server.CreateObject("ADODB.Connection")
+	conn2.open ConnStr2
+	If Err Then
+		err.Clear
+		Set Conn2 = Nothing
+		Response.Write "CMP v2.0版数据库连接出错，请检查连接字串。"
+		Response.End
+	End If
+	'----------------------------------------------------------------------
+	dim list_num,rs2
+	dim classid,title,url,lrc,content,pic,a,c,u,scene,addtime,lasttime,sn
+	set rs2=conn2.execute("select * from cfplay_list")
+	do while not rs2.eof
+		'-------------------------------------------
+		list_num=list_num+1
+		classid=rs2("classid")
+		title=rs2("title")
+		url=rs2("url")
+		lrc=rs2("lrc")
+		content=rs2("content")
+		pic=rs2("pic")
+		a=rs2("a")
+		c=rs2("c")
+		u=rs2("u")
+		scene=rs2("scene")
+		addtime=rs2("addtime")
+		lasttime=rs2("lasttime")
+		sn=rs2("sn")
+		sql2="insert into cmp_list (classid,title,url,lrc,content,pic,a,c,u,scene,addtime,lasttime,sn) values("&classid&",'"&title&"','"&url&"','"&lrc&"','"&content&"','"&pic&"','"&a&"','"&c&"','"&u&"','"&scene&"','"&addtime&"','"&lasttime&"',"&sn&")"
+		Conn.execute(sql2)
+		'-------------------------------------------
+		rs2.movenext
+	loop
+	response.Write("成功转换"&list_num&"条音乐数据<br>")
+	rs2.close
+	set rs2=nothing
+	'----------------------------------------------------------
+	set rs2=conn2.execute("select * from cfplay_class")
+	do while not rs2.eof
+		'-------------------------------------------
+		sql2="insert into cmp_class (classid,classname,sn) values("&rs2("classid")&",'"&rs2("classname")&"',"&rs2("sn")&")"
+		Conn.execute(sql2)
+		'-------------------------------------------
+		rs2.movenext
+	loop
+	response.Write("成功转换分类数据")
+	rs2.close
+	set rs2=nothing
+end if
+%></td>
+  </tr>
+</table>
+</body></html>

cmp2.1/admin/conn.asp

@@ -0,0 +1,40 @@
+<%@ LANGUAGE = VBScript CodePage = 936%>
+<%
+Option Explicit
+Response.Buffer = True
+Server.ScriptTimeOut = 90
+Session.CodePage=936
+Session.LCID=2057
+
+Dim Startime
+Dim SqlNowString,SystemTime,Cenfun,template,UserOnline
+Dim Conn,Plus_Conn,Db,MyDbPath
+Dim FoundErr
+FoundErr=False 
+Dim ErrMsg,SucMsg
+Dim Rs,sql,i,jc,jcs
+Startime = Timer()
+'数据库路径
+MyDbPath = ""
+Db = "data/#cmp.mdb"
+SqlNowString = "Now()"
+SystemTime=Now()
+'站点cookies唯一标识
+Const CookieName="cenfun_cmp"
+'数据连接
+Sub ConnectionDatabase
+	Dim ConnStr
+		ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(MyDbPath & db)
+	On Error Resume Next
+	Set conn = Server.CreateObject("ADODB.Connection")
+	conn.open ConnStr
+	If Err Then
+		err.Clear
+		Set Conn = Nothing
+		Response.Write "数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。
+		Response.End
+	End If
+End Sub
+If Not IsObject(Conn) Then ConnectionDatabase
+'head
+%>

cmp2.1/admin/head.asp

@@ -0,0 +1,266 @@
+<%
+dim UserTrueIP
+UserTrueIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
+	If UserTrueIP = "" Then UserTrueIP = Request.ServerVariables("REMOTE_ADDR")
+
+Sub showpage(language,format,sfilename,totalnumber,MaxPerPage,ShowTotal,ShowAllPages,strUnit,CurrentPage)
+	dim zh,en,str
+	zh="共,首页,上一页,下一页,尾页,页次：,页,页,转到："
+	en="Total,First,Previous,Next,Last,Page:,&nbsp;,Page,Turn To:"
+	if language="en" then
+		str=split(en,",")
+	else
+		str=split(zh,",")
+	end if
+	dim n, i,strTemp,strUrl
+	if totalnumber mod MaxPerPage=0 then
+		n= totalnumber \ MaxPerPage
+	else
+		n= totalnumber \ MaxPerPage+1
+	end if
+	strTemp="<table width='100%'>"
+	'strTemp=strTemp &  "<tr><td height='1' colspan='2' bgcolor='#4D8BEB'></td></tr>"
+	strTemp=strTemp &  "<tr align='right'><td>"
+	if ShowTotal=true then 
+		strTemp=strTemp&str(0)&" <b>" & totalnumber & "</b> " & strUnit & "&nbsp;&nbsp;"
+	end if
+	strUrl=JoinChar(sfilename)
+	if CurrentPage<2 then
+			strTemp=strTemp & str(1)&"&nbsp;"&str(2)&"&nbsp;"
+	else
+			strTemp=strTemp & "<a href='" & strUrl & "page=1'>"&str(1)&"</a>&nbsp;"
+			strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage-1) & "'>"&str(2)&"</a>&nbsp;"
+	end if
+	if n-CurrentPage<1 then
+			strTemp=strTemp&str(3)&"&nbsp;"&str(4)
+	else
+			strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage+1) & "'>"&str(3)&"</a>&nbsp;"
+			strTemp=strTemp & "<a href='" & strUrl & "page=" & n & "'>"&str(4)&"</a>"
+	end if
+	strTemp=strTemp & "&nbsp;"&str(5)&"<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>"&str(6)
+	strTemp=strTemp & "&nbsp;<b>"&MaxPerPage&"</b>"&strUnit&"/"&str(7)
+	if ShowAllPages=True then
+		strTemp=strTemp & "&nbsp;"&str(8)&"<select name='page' size='1' onchange=""javascript:window.location='" & strUrl & "page=" & "'+this.options[this.selectedIndex].value;"">"   
+		for i = 1 to n   
+			strTemp=strTemp & "<option value='" & i & "'"
+			if cint(CurrentPage)=cint(i) then strTemp=strTemp & " selected "
+			strTemp=strTemp & ">"&i&"</option>"   
+		next
+		strTemp=strTemp & "</select>"
+	end if
+	strTemp=strTemp & "</td></tr></table>"
+	response.write strTemp
+end sub
+function JoinChar(strUrl)
+	if strUrl="" then
+		JoinChar=""
+		exit function
+	end if
+	if InStr(strUrl,"?")<len(strUrl) then 
+		if InStr(strUrl,"?")>0 then
+			if InStr(strUrl,"&")<len(strUrl) then 
+				JoinChar=strUrl & "&"
+			else
+				JoinChar=strUrl
+			end if
+		else
+			JoinChar=strUrl & "?"
+		end if
+	else
+		JoinChar=strUrl
+	end if
+end function
+Sub Cenfun_suc(url)
+%>
+<br />
+<table cellpadding="3" cellspacing="1" align="center" class="tableBorder" style="width:75%">
+  <tr align="center">
+    <th height="25">成功信息</th>
+  </tr>
+  <tr>
+    <td class="cmsRow"><%=SucMsg%></td>
+  </tr>
+  <tr>
+    <td class="cmsRow"><%if url<>"" then%>
+        <meta http-equiv="Refresh" content="3;URL=<%=url%>" />
+        <li><b><span id="timeout">3</span>秒钟后自动返回...</b>
+            <script type="text/javascript">
+	function countDown(secs){
+		document.getElementById('timeout').innerHTML=secs;
+		if(--secs>0){
+			setTimeout("countDown("+secs+")",1000);
+		}
+	}
+	countDown(3);
+    </script>
+            <%end if%>
+      </li></td>
+  </tr>
+  <tr>
+    <td colspan="2" align="center" class="cmsRow">&lt;&lt;<a href="<%=Request.ServerVariables("HTTP_REFERER")%>">返回上一页</a></td>
+  </tr>
+</table>
+<%
+End Sub
+
+Sub Cenfun_error()
+%>
+<br />
+<table cellpadding="3" cellspacing="1" align="center" class="tableBorder" style="width:75%">
+  <tr align="center">
+    <th height="25" colspan="2">错误信息</th>
+  </tr>
+  <tr>
+    <td class="cmsRow" colspan="2">&nbsp;&nbsp;<strong>您在后台操作的时候发生错误,下面是可能的错误信息</strong> </td>
+  </tr>
+  <tr>
+    <td class="cmsRow" colspan="2" style="color:#0000ff"><%=ErrMsg%></td>
+  </tr>
+  <tr>
+    <td class="cmsRow" colspan="2"><li>请仔细阅读相关帮助文件，确保您有相应的操作权限，或者点击<a href="login.asp"><strong>重新登录</strong></a>! </li></td>
+  </tr>
+  <tr>
+    <td class="cmsRow" valign="middle" colspan="2" align="center"><a href="javascript:history.go(-1)">&lt;&lt; 返回上一页</a></td>
+  </tr>
+</table>
+<%
+	footer()
+	response.End()
+End Sub
+
+Sub footer()
+%>
+<table width="75%" border="0" align="center" cellpadding="2" cellspacing="1" >
+  <tr align="center">
+    <td class="copyright"><a href="http://www.cenfun.com/cmp/" target="_blank" class="copyright">CenFun Music Player</a>, Copyright (c) 2005-2006 <a href="http://www.cenfun.com/" target="_blank"><font color="#708796"><b>CenFun</b></font></a>. All Rights Reserved . </td>
+  </tr>
+</table>
+</body>
+</html>
+<%
+End Sub
+%>
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml">
+<head>
+<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
+<meta name=keywords content="晨风,Cenfun">
+<meta name="description" content="Design By www.Cenfun.com">
+<title>CenFun Music Player Manage</title>
+<style type="text/css">
+body {
+	background:#CAD7F7; font-size: 12px; margin-top:0px;
+	SCROLLBAR-FACE-COLOR: #799AE1; SCROLLBAR-HIGHLIGHT-COLOR: #799AE1; 
+	SCROLLBAR-SHADOW-COLOR: #799AE1; SCROLLBAR-DARKSHADOW-COLOR: #799AE1; 
+	SCROLLBAR-3DLIGHT-COLOR: #799AE1; SCROLLBAR-ARROW-COLOR: #FFFFFF;
+	SCROLLBAR-TRACK-COLOR: #AABFEC;
+}
+td,span,div,input,textarea{
+	font-size:12px;
+}
+input,textarea{
+	border:solid 1px #999999;
+}
+A {
+	COLOR: #000000; TEXT-DECORATION: none;
+}
+A:hover { color:#428EFF;text-decoration:underline; }
+A.highlight {
+	COLOR: red; TEXT-DECORATION: none;
+}
+A.highlight:hover {
+	COLOR: red;
+}
+A.thisclass {
+	FONT-WEIGHT: bold; TEXT-DECORATION: none
+}
+A.thisclass:hover {
+	FONT-WEIGHT: bold;
+}
+A.navlink {
+	COLOR: #000000; TEXT-DECORATION: none;
+}
+A.navlink:hover {
+	COLOR: #003399; TEXT-DECORATION: none;
+}
+.content {
+	FONT-SIZE: 14px; MARGIN: 5px 20px; LINE-HEIGHT: 140%; FONT-FAMILY: Tahoma,宋体
+}
+#TableTitleLink{
+	font-weight:bold;
+	COLOR: #ffffff; 
+}
+#TableTitleLink A:link,#TableTitleLink A:visited,#TableTitleLink A:active{
+	COLOR: #ffffff; TEXT-DECORATION: none
+}
+#TableTitleLink A:hover {
+	COLOR: #ffffff; TEXT-DECORATION: underline
+}
+.cmsRow {
+	PADDING-RIGHT: 3px; PADDING-LEFT: 3px; BACKGROUND: #F1F3F5; PADDING-BOTTOM: 3px; PADDING-TOP: 3px
+}
+.cmsRow01 {
+	PADDING-RIGHT: 3px; PADDING-LEFT: 3px; BACKGROUND: #F1F1F1; PADDING-BOTTOM: 3px; PADDING-TOP: 3px
+}
+.cmsRow02 {
+	PADDING-RIGHT: 3px; PADDING-LEFT: 3px; BACKGROUND: #FFFFFF; PADDING-BOTTOM: 3px; PADDING-TOP: 3px
+}
+TH {
+	FONT-WEIGHT: bold; FONT-SIZE: 12px; BACKGROUND-IMAGE: url(images/admin_bg_1.gif); COLOR: white; BACKGROUND-COLOR: #4455aa
+}
+.tableBorder {
+	BORDER-RIGHT: #183789 1px solid; BORDER-TOP: #183789 1px solid; BORDER-LEFT: #183789 1px solid; WIDTH: 98%; BORDER-BOTTOM: #183789 1px solid; BACKGROUND-COLOR: #ffffff
+}
+.tableBorder1 {WIDTH: 98%; }
+.copyright {
+	PADDING-RIGHT: 1px; BORDER-TOP: #6595d6 1px dashed; PADDING-LEFT: 1px; PADDING-BOTTOM: 1px; FONT: 12px verdana,arial,helvetica,sans-serif; COLOR: #4455aa; PADDING-TOP: 1px; TEXT-DECORATION: none
+}
+</style>
+<script language="JavaScript" type="text/javascript">
+function unselectall()
+{
+    if(document.myform.chkAll.checked){
+	document.myform.chkAll.checked = document.myform.chkAll.checked&0;
+    } 	
+}
+function CheckAll(form)
+  {
+  for (var i=0;i<form.elements.length;i++)
+    {
+    var e = form.elements[i];
+    if (e.Name != "chkAll"&&e.disabled==false)
+       e.checked = form.chkAll.checked;
+    }
+  }
+function CheckForm()
+{
+  if (document.myform.ID.value=="")
+  {
+    alert("文章所属栏目不能指定为含有子栏目的栏目！");
+	document.myform.ID.focus();
+	return false;
+  }
+  return true;  
+}
+
+function test()
+{
+  if(!confirm('确认删除吗？')) return false;
+}
+</script>
+</head>
+<body leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
+<%
+If Session(CookieName & "_flag")<>"" then
+	if request("nomenu")<>"1" then
+%>
+<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" id="TableTitleLink">
+  <tr>
+    <td background="images/top_bg.gif">&nbsp;■ <a href="manage.asp">播放器管理</a> | <a href="user.asp">管理密码修改</a> | <a href="login.asp?action=out">退出</a></td>
+    <td align="right" background="images/top_bg.gif"><a href="http://www.cenfun.com/cmp/" target="_blank"><img src="images/top_logo.gif" width="46" height="32" border="0" /></a></td>
+  </tr>
+</table>
+<%
+	end if
+end if
+%>