<div id='mytime'>
</div>
<script language="javascript">
var i = 0
var result = ""
function write(){
    i++
    result = ""
    var d = new Date();
    var num = d.getTime()-1167637861250
    var day = num/1000/60/60/24
    var hour = ((day-parseInt(day))*24)
    var min = ((hour-parseInt(hour))*60)
    var sec = ((min-parseInt(min))*60)
    result = parseInt(day) + "天" + parseInt(hour) + "时" + parseInt(min) + "分" + parseInt(sec) + "秒"
    document.getElementById("mytime").innerHTML = result;
    setTimeout("write()",1000)
}
write()
</script>

version = "2008-11-12-0"

'#####################################
diffday = "-60"            
host = "localhost"
user = "root"
passwd = "123456"
databases = ""    
dumpbin = "C:\Program Files\MySQL\MySQL Server 5.0\bin\mysqldump.exe"    'Exmaple: E:\MySQL\bin\mysqldump.exe
disbackdir = "F:\temp\sqltest\"        'Exmaple: F:\temp\sqltest\
'#####################################

mydate = now
disfile = Year(mydate) & Trant(Month(mydate)) & Trant(Day(mydate)) & Trant(Hour(mydate)) & Trant(Minute(mydate)) & Trant(Second(mydate)) & ".sql"

Set sh = Wscript.CreateObject("WSCript.shell")
Set fso=CreateObject("Scripting.FileSystemObject")

'Check Environment Variable
If dumpbin = "" Then
    MsgBox("mysql bin dir no set!")
    wscript.quit
End If

If Not fso.FolderExists(disbackdir) Then
    yesno =  MsgBox("back folder no exist,create it??",1)
    If yesno = 1 Then fso.CreateFolder(disbackdir)
End If

'Change Time Format
Function Trant(mytime)
    If mytime < 10 Then
        mytime = "0" & mytime
    End If
    trant = mytime
End Function

'Let Me Do Mysqldump
Sub DoBack()
    if    databases = "" Then
        databases = " --all-databases "
    Else
        databases = " --database " & databases
    End If
    Call sh.run ("cmd /C """ & dumpbin & """" & " -h " & host & " -u " & user & " -p" & passwd & " --skip-opt " & databases & " > " & disbackdir & disfile,,true)
    getsize = fso.GetFile(disbackdir & disfile).Size
    If getsize < 1000000 Then
        Set writetxt = fso.OpenTextFile("dumperror.txt",8,true)
        writetxt.writeline(disbackdir & disfile & " have a trouble")
        writetxt.close()
        Set writetxt = nothing
    End If
    'clear old file
    Call sh.run ("forfiles /p " & """" & Left(disbackdir,Len(disbackdir)-1) & """" & " /d " & diffday & " /c " & """cmd /c del /q @path""",,True)
End Sub

Call DoBack()

Set sh = Nothing
Set fso = Nothing