admin_music.asp

不错的个人网站

<!--#include file="inc/HZC.asp"-->
<!--#include file="inc/mdb.asp"-->
<!--#include file="inc/FORMAT.asp"-->
<LINK 
href="inc/admin.css" type=text/css rel=StyleSheet>

<br><center>
<p></p>
<%
dim founderr,errmsg
founderr=false
errmsg=""
if session("adminlogin")<>sessionvar then
  founderr=true
Response.Write("<LINK href=inc/admin.css type=text/css rel=StyleSheet><p align=center><font color=#FFFFFF><br><br>您还没有登录或者登录已超时，请重新登录！</font></p>")
  response.end
else
select case Request("menu")

case ""
list

case "list"
list
case "ok"
ok
end select
end if
sub list
%>

<LINK href="inc/admin.css" type=text/css rel=StyleSheet>

<font color="#FFFFFF">编辑音乐播放列表</font>

<font color="#FFFFFF"><br>注意！样式应为<br> <b> mkList("音乐地址","音乐名称");</b></font>

<form method="post" action="?menu=ok">
	<p><textarea rows="9" name="list1" style="width:100%; height:368"><!--#include file="music/exobudpl.js"--></textarea></p>
	<p align="center"><input type="submit" value="提交" name="B1">&nbsp; <input type="reset" value="重置" name="B2"></p>
</form>
<%
end sub
Sub ADODB_SaveToFile(ByVal strBody,ByVal File)

	On Error Resume Next
	Dim objStream,FSFlag,fs,WriteFile
	FSFlag = 1
	If DEF_FSOString <> "" Then
		Set fs = Server.CreateObject(DEF_FSOString)
		If Err Then
			FSFlag = 0
			Err.Clear
			Set fs = Nothing
		End If
	Else
		FSFlag = 0
	End If
	
	If FSFlag = 1 Then
		Set WriteFile = fs.CreateTextFile(Server.MapPath(File),True)
		WriteFile.Write strBody
		WriteFile.Close
		Set Fs = Nothing
	Else
		Set objStream = Server.CreateObject("ADODB.Stream")
		If Err.Number=-2147221005 Then 
			GBL_CHK_TempStr = "<div align='center'>您的主机不支持ADODB.Stream，无法完成操作，请手工进行</div>"
			Err.Clear
			Set objStream = Noting
			Exit Sub
		End If
		With objStream
			.Type = 2
			.Open
			.Charset = "GB2312"
			.Position = objStream.Size
			.WriteText = strBody
			.SaveToFile Server.MapPath(File),2
			.Close
		End With
		Set objStream = Nothing
	End If
End Sub

sub ok

list1 = Trim(Request.Form("list1"))

Dim n,TempStr
	TempStr = ""
	TempStr = TempStr &  list1 & VbCrLf
	
	
	ADODB_SaveToFile TempStr,"music/exobudpl.js"
	If GBL_CHK_TempStr = "" Then
		Response.Write "<br><font color=white class=GreenFont>播放列表保存成功！</font>"
	Else
		%><%=GBL_CHK_TempStr%><br>服务器不支持在线写入文件功能，请使用FTP等功能，手工改写<p>
		<textarea name="fileContent" cols="80" rows="30" class=fmtxtra><%=Server.htmlencode(TempStr)%></textarea><%
		GBL_CHK_TempStr = ""
	End If
	end sub%>