Update wordpress post_date to random date with SQL

Replace wordpress post_date to random date,
open phpmyadmin, click SQL, run with this code

UPDATE wp_posts SET post_date = '2014-08-02 00:00:00' + interval rand()*120 day + interval rand()*36000 second

update wp_posts set post_date_gmt = post_date;
update wp_posts set post_modified = post_date;
update wp_posts set post_modified_gmt = post_date;

This can be change all post date, start from 2014-08-02 00:00:00 to 120 days later

This ok tested

Optimasi Modem ADSL Speedy

  • 1. Reset Modem terlebih dahulu agar mendapatkan settingan default
  • 2. Setting modem sampai bisa browsing
  • 2. masuk kemenu modem, cari opsi UPNP dan Disable, atau non Ceklist pada point UPnP
  • 3. ADSL Setting menggunakan G.DMT , jangan auto
  • 4. Disable bitswap
  • 5. Disable SRA
  • 6. Reboot/ Restart modem
  • Merge all CSV or TXT files in a folder

    Merge all CSV or TXT files in a folder in
    one worksheet

    Example 1

    Merge all data from the csv files in a folder into a text file

    Note: with a few small changes you can also use this for
    txt files. Replace *.csv for *.txt

    1) Windows Start
    Button | Run
    2) Type cmd
    and hit enter (“command” in Win 98)
    3) Go to the folder
    with the CSV files (for help how to do that enter “help cd”)
    Type copy *.csv all.txt and hit enter to copy
    all data in the files into all.txt.
    5) Type
    exit and hit enter to close the DOS window

    Now we must import the text file all.txt
    into Excel.

    1) Open Excel
    When you use File Open to open all.txt the Text Import Wizard will help you
    import the file
    3) Choose Delimited
    5) Check Comma
    6) Finish


    Example 2

    This code will ask you to browse to the folder with the csv files and
    after you click OK in this dialog
    it merge all data into a txt file and
    then import and save it into a Excel file for you.

    Copy the code
    below into a normal module of a workbook :

    Paste the macro
    Alt q to go back to Excel
    Alt F8 to open your macro
    Select Merge_CSV_Files and press Run

    There is no need to change anything in the code example for csv files to
    test it.
    But read the Tips below the macro if you not get the result you

    Option Explicit
    #If VBA7 Then
        Private Declare PtrSafe Function OpenProcess Lib "kernel32" _
            (ByVal dwDesiredAccess As Long, _
            ByVal bInheritHandle As Long, _
            ByVal dwProcessId As Long) As Long
        Private Declare PtrSafe Function GetExitCodeProcess Lib "kernel32" _
            (ByVal hProcess As Long, _
            lpExitCode As Long) As Long
        Private Declare Function OpenProcess Lib "kernel32" _
            (ByVal dwDesiredAccess As Long, _
            ByVal bInheritHandle As Long, _
            ByVal dwProcessId As Long) As Long
        Private Declare Function GetExitCodeProcess Lib "kernel32" _
            (ByVal hProcess As Long, _
            lpExitCode As Long) As Long
    #End If
    Public Const STILL_ACTIVE = &H103
    Public Sub ShellAndWait(ByVal PathName As String, Optional WindowState)
        Dim hProg As Long
        Dim hProcess As Long, ExitCode As Long
        'fill in the missing parameter and execute the program
        If IsMissing(WindowState) Then WindowState = 1
        hProg = Shell(PathName, WindowState)
        'hProg is a "process ID under Win32. To get the process handle:
        hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, hProg)
            'populate Exitcode variable
            GetExitCodeProcess hProcess, ExitCode
        Loop While ExitCode = STILL_ACTIVE
    End Sub
    Sub Merge_CSV_Files()
        Dim BatFileName As String
        Dim TXTFileName As String
        Dim XLSFileName As String
        Dim FileExtStr As String
        Dim FileFormatNum As Long
        Dim DefPath As String
        Dim Wb As Workbook
        Dim oApp As Object
        Dim oFolder
        Dim foldername
        'Create two temporary file names
        BatFileName = Environ("Temp") & _
                "\CollectCSVData" & Format(Now, "dd-mm-yy-h-mm-ss") & ".bat"
        TXTFileName = Environ("Temp") & _
                "\AllCSV" & Format(Now, "dd-mm-yy-h-mm-ss") & ".txt"
        'Folder where you want to save the Excel file
        DefPath = Application.DefaultFilePath
        If Right(DefPath, 1) <> "\" Then
            DefPath = DefPath & "\"
        End If
        'Set the extension and file format
        If Val(Application.Version) < 12 Then
            'You use Excel 97-2003
            FileExtStr = ".xls": FileFormatNum = -4143
            'You use Excel 2007 or higher
            FileExtStr = ".xlsx": FileFormatNum = 51
            'If you want to save as xls(97-2003 format) in 2007 use
            'FileExtStr = ".xls": FileFormatNum = 56
        End If
        'Name of the Excel file with a date/time stamp
        XLSFileName = DefPath & "MasterCSV " & _
                      Format(Now, "dd-mmm-yyyy h-mm-ss") & FileExtStr
        'Browse to the folder with CSV files
        Set oApp = CreateObject("Shell.Application")
        Set oFolder = oApp.BrowseForFolder(0, "Select folder with CSV files", 512)
        If Not oFolder Is Nothing Then
            foldername = oFolder.Self.Path
            If Right(foldername, 1) <> "\" Then
                foldername = foldername & "\"
            End If
            'Create the bat file
            Open BatFileName For Output As #1
            Print #1, "Copy " & Chr(34) & foldername & "*.csv" _
                    & Chr(34) & " " & TXTFileName
            Close #1
            'Run the Bat file to collect all data from the CSV files into a TXT file
            ShellAndWait BatFileName, 0
            If Dir(TXTFileName) = "" Then
                MsgBox "There are no csv files in this folder"
                Kill BatFileName
                Exit Sub
            End If
            'Open the TXT file in Excel
            Application.ScreenUpdating = False
            Workbooks.OpenText Filename:=TXTFileName, Origin:=xlWindows, StartRow _
                    :=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
                    ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True, _
                    Space:=False, Other:=False
            'Save text file as a Excel file
            Set Wb = ActiveWorkbook
            Application.DisplayAlerts = False
            Wb.SaveAs Filename:=XLSFileName, FileFormat:=FileFormatNum
            Application.DisplayAlerts = True
            Wb.Close savechanges:=False
            MsgBox "You find the Excel file here: " & vbNewLine & XLSFileName
            'Delete the bat and text file you temporary used
            Kill BatFileName
            Kill TXTFileName
            Application.ScreenUpdating = True
        End If
    End Sub

    Format or skip columnsIf you want to format or skip a
    columns then you see you can add FieldInfo in OpenText like
    FieldInfo:=Array(Array(1, 2), Array(3, 4))

    This example change the format of column 1 and 3 (column number, format
    This are the format numbers

    1:          General
    Skip column


    Merge txt files instead of csv files


    Print #1, “Copy ” & Chr(34) &
    foldername & “*.csv” _


    #1, “Copy ” & Chr(34) & foldername & “*.txt” _

    If you use it for txt files then you can change the delimiter or maybe
    you want to use FixedWidth.
    The best thing you can do is to record a
    macro when you import one txt file manual.
    Then look at the recorded code
    and add the code lines to Workbooks.OpenText .


    Source: http://coweb.cc.gatech.edu/ice-gt/339

    Hotlink Images htaccess

    Example: Your site url is www.mysite.com. To stop hotlinking of your images from other sites and display a replacement image called nohotlink.jpe placed in your images directory, place this code in your .htaccess file:

    RewriteEngine On
    RewriteCond %{HTTP_REFERER} !^http://(.+\.)?mysite\.com/ [NC]
    RewriteCond %{HTTP_REFERER} !^$
    RewriteRule .*\.(jpe?g|gif|bmp|png)$ /images/nohotlink.jpe [L]

    The first line of the above code begins the rewrite. The second line matches any requests from your own mysite.com url. The [NC] code means “No Case”, meaning match the url regardless of being in upper or lower case letters. The third line means allow empty referrals. The last line matches any files ending with the extension jpeg, jpg, gif, bmp, or png. This is then replaced by the nohotlink.jpe file in your images directory. This JPEG image is using the extension jpe instead of jpg to prevent blocking your own replacement image.

    To stop hotlinking from specific outside domains only, such as myspace.com, blogspot.com and livejournal.com, but allow any other web site to hotlink images:

    RewriteEngine On
    RewriteCond %{HTTP_REFERER} ^http://(.+\.)?myspace\.com/ [NC,OR]
    RewriteCond %{HTTP_REFERER} ^http://(.+\.)?blogspot\.com/ [NC,OR]
    RewriteCond %{HTTP_REFERER} ^http://(.+\.)?livejournal\.com/ [NC]
    RewriteRule .*\.(jpe?g|gif|bmp|png)$ /images/nohotlink.jpe [L]

    You can add as many different domains as needed. Each RewriteCond line should end with the [NC,OR] code. NC means to ignore upper and lower case. OR means “Or Next”, as in, match this domain or the next line that follows. The last domain listed omits the OR code since you want to stop matching domains after the last RewriteCond line.

    You can display a 403 Forbidden error code instead of an image. Replace the last line of the previous examples with this line:

    RewriteRule .*\.(jpe?g|gif|bmp|png)$ – [F]

    Warning: Do not use .htaccess to redirect image hotlinks to another HTML page or server that isn’t your own (such as this web page). Hotlinked images can only be replaced by other images, not with an HTML page.

    As with any htaccess rewrites, you may block some legitimate traffic (such as users behind proxies or firewalls) using these techniques.

    Disable Post Revisions for WordPress

    WordPress defaults WP_POST_REVISIONS to true (enable post revisions). If you want to disable the awesome revisions feature, use this setting:

    define('WP_POST_REVISIONS', false );

    If you want to specify a maximum number of revisions, change false to an number

    define('WP_POST_REVISIONS', 3);

    Use this setting for wp-config.php

    to Delete post revisions using SQL command, use this code:

    DELETE FROM wp_posts WHERE post_type = "revision";

    Delete Post Revisions using SQL Command

    Login to phpmyadmin, Run a SQL Query for Deleting Post Revision Rows

    Copy paste this code to SQL, and then click go

    DELETE a,b,c
    FROM wp_posts a
    LEFT JOIN wp_term_relationships b ON ( a.ID = b.object_id)
    LEFT JOIN wp_postmeta c ON ( a.ID = c.post_id )
    LEFT JOIN wp_term_taxonomy d ON ( b.term_taxonomy_id = d.term_taxonomy_id)
    WHERE a.post_type = 'revision'
    AND d.taxonomy != 'link_category';

    Search and Replace WordPress using SQL Command

    The format is easy to understand and can of course be used with any MySQL table, not just WordPress:

    UPDATE [your_table_name] SET [your_table_field] = REPLACE([your_table_field], '[string_to_find]' , '[string_to_be_replaced]');


    UPDATE wp_posts SET post_content = REPLACE(post_content, 'string_yg_diganti', 'string_pengganti');

    Replace searches for certain characters in a string and replaces them with other characters. So this statement:

    SELECT Replace('blablabla Rocks!', 'Rocks', 'Rolls');

    will return

    blablabla Rolls!

    SQL Command for Clean up your WordPress Database

    Delete all post revisions and their metadata

    DELETE a,b,c FROM wp_posts a WHERE a.post_type = 'revision' LEFT JOIN wp_term_relationships b ON (a.ID = b.object_id) LEFT JOIN wp_postmeta c ON (a.ID = c.post_id);

    Delete all unused post tags

    DELETE FROM wp_terms WHERE term_id IN (SELECT term_id FROM wp_term_taxonomy WHERE count = 0 );
    DELETE FROM wp_term_taxonomy WHERE term_id not IN (SELECT term_id FROM wp_terms);
    DELETE FROM wp_term_relationships WHERE term_taxonomy_id not IN (SELECT term_taxonomy_id FROM wp_term_taxonomy);

    Delete specific post meta

    DELETE FROM wp_postmeta WHERE meta_key = 'YourMetaKey';

    Clean up wp_commentmeta entries which have no relation to wp_comments

    SELECT * FROM wp_commentmeta WHERE comment_id
    NOT IN (
    SELECT comment_id
    FROM wp_comments
    DELETE FROM wp_commentmeta WHERE comment_id
    NOT IN (
    SELECT comment_id
    FROM wp_comments

    Delete Post without article

    DELETE FROM wp_posts
    WHERE post_type = 'post'
    AND post_content= ''

    Post Tags : delete all post revisions and their metadata wordpress database, delete all post revisions and their metadata in wordpress database.