<!--#include file="UserManageClass.asp" -->
<!--#include FILE="UpLoadClass.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFF6" leftmargin="0" topmargin="0">
<script language="javascript">
<!--
function ShowProgress() {
	var ProgressID = (new Date()).getTime() % 1000000000;
	var Form = document.form1;
	if (Form.strFile1.value != "") {
		var Ver = navigator.appVersion;
		if (Ver.indexOf("MSIE") > -1 && Ver.substr(Ver.indexOf("MSIE") + 5, 1) > 4) {
			window.showModelessDialog("Progress.asp?userid=<%=session("UserID")%>" , null, "dialogWidth=410px; dialogHeight:100px; help:no; status:no");
		} 
		else 
		{
			window.open("Progress.asp?userid=<%=session("UserID")%>" ,"_blank", "left=240,top=240,width=410,height=100,scrollbars=no");
		}
		return true;
	} 
	else
	{
		return false;
	}
}
//-->
</script>
<%
Application.Lock
	Application.Contents.Remove("Count"&Session("UserID")&"")
Application.unLock
UserTrue=True
IF CBlogObj.IsFolder(Session("UserID"),Session("UpFileSize")) Then
if request("Action")="ok" then
	UserTrue=True
	Server.ScriptTimeOut=5000
	response.Buffer=true
	dim request2,path,F_FileType
	set request2=New UpLoadClass
	request2.TotalSize= UserUpFileSize*1024
	request2.MaxSize  = UserUpFileSize*1024
	request2.FileType = "wma/mp3/wmv"
	Path=CblogObj.GetUpLoadDir(Session("UserID")) & "/"
	request2.SavePath=Path
	request2.UserID = Session("UserID")
	request2.open()
	Path=Path&Request2.Form("strFile1")
	F_FileType=LCase(mid(Path,instr(Path,".")+1))
	if request2.Error>0 then
		Response.write "你的文件格式不正确或上传文件过大(mp3/wma/wmv)10M以内"
		Response.End
	End IF
		Application.Lock
			Application.Contents.Remove("Count"&Session("UserID")&"")
		Application.unLock
		if F_FileType<>"" Then
			Response.Write("<SCRIPT>parent.input.mp3.value+='|"&Path&"'</SCRIPT>")
		Else
			Response.Write("错误：请选择您需要上传的文件!")
			Response.Write("<meta http-equiv='refresh' content='2;url=Mp3_UpFile.asp'>")
			Response.end
		End IF
	Response.Write("<a href='Mp3_UpFile.asp'>文件上传成功，请返回继续上传</a><meta http-equiv='refresh' content='4;url=Mp3_UpFile.asp'>")
	set request2=nothing
	response.end
End If
%>
<form action="?Action=ok" method="post" enctype="multipart/form-data" name="form1">
  <input name="strFile1" type="FILE" size="10">
  <input type="submit" name="Submit" value="上传(MP3/WMV)" onClick="return ShowProgress();">
</form>
<%
else
Response.write("对不起,您的上传空间已满!!")
End if
%>
</body>
</html>
<%set cblogobj=nothing%>