<!--#include file="../Inc/Conn.asp" -->
<%Response.Charset = "GB2312"%>
<!--#include file="../inc/MelyySoft.Update.asp"-->
<%
Dim UpUrl,UpName	
UpUrl = Split(Session("UpUrl"), vbCrLf)
UpName = Split(UpUrl(request.QueryString("Upmun")),"|")
	Call UpWrite(UpDateUrl&Trim(request.QueryString("UpVersion"))&"/"&UpName(0),InstallDir&UpName(1))
if UpUrl(UBound(UpUrl))=1 then
	Response.Write request.QueryString("Upmun")+1&"|"&Round((request.QueryString("Upmun")/UBound(UpUrl))*100)&"|1"
else
	Response.Write request.QueryString("Upmun")+1&"|"&Round((request.QueryString("Upmun")/(UBound(UpUrl)-1))*100)&"|0"
	if UBound(UpUrl)-request.QueryString("Upmun")=1 then
		Call FSOSaveFile(InstallDir&"inc/MelyySoft.Version.asp",UpIncContent)
	end if
end if
%>
   