jesse1981

Option Explicit

Public Function GetXmlData(url As String) As Object
    'http://msdn.microsoft.com/ja-jp/library/aa468547.aspx
    Dim dom As Object
    Set dom = CreateObject("MSXML2.DOMDocument")
    
    dom.async = False
    
    'http://support.microsoft.com/kb/281142/ja

jesse1981

$.fn.closest_descendent = function(filter) {
    var $found = $(),
        $currentSet = this; // Current place
    while ($currentSet.length) {
        $found = $currentSet.filter(filter);
        if ($found.length) break;  // At least one match: break loop
        // Get all children of the current set
        $currentSet = $currentSet.children();
    }
    return $found.first(); // Return first match of the collection

jesse1981

$(window).scroll(function(){
	var $window = $(this);
	if($window.scrollTop() == $(document).height() - $window.height()) $('#more').click()
});

jesse1981

function includeFile (fSpec)
  On Error Resume Next
  dim fileSys, file, fileData
  set fileSys = createObject ("Scripting.FileSystemObject")
	  
  set file = fileSys.openTextFile (fSpec,ForReading)
  fileData = file.readAll ()
    
  file.close
  set file = nothing

jesse1981

function checkExists (filepath)
  dim fs, result
  set fs = createObject("Scripting.FileSystemObject")
  result = fs.fileExists(filepath)
  
  set fs=nothing

  checkExists = result
end function

jesse1981

document.getElementById( 'signup' ).addEventListener( 'click', function( event ) {
    
    event.preventDefault();
    document.getElementById( 'side-2' ).className = 'flip flip-side-1';
    document.getElementById( 'side-1' ).className = 'flip flip-side-2';
    
}, false );

document.getElementById( 'create' ).addEventListener( 'click', function( event ) {
    

jesse1981

function curPageURL()
  dim s, protocol, port

  if Request.ServerVariables("HTTPS") = "on" then
    s = "s"
  else
    s = ""
  end if  

  protocol = strleft(LCase(Request.ServerVariables("SERVER_PROTOCOL")), "/") & s 

jesse1981

Set xmlDoc = CreateObject("Msxml2.DOMDocument")
xmlDoc.async = false
xmlDoc.load("filename.xml")

' See if given id exists
Dim idExists, currParentNode
idExists = false
Set objNodeList = xmlDoc.selectNodes("/events/event/id")
  		
For each x in objNodeList

jesse1981

<?php
function inverse($num,$max) {
    for ($i=0;$i<=$max;$i++) {
        if ($num == ($max-$i)) return $i;
    }
}
?>

jesse1981

window.fbAsyncInit = function() {
  FB.init({ 
		appId: 'Your_APP_ID',
		status: true,
		cookie: true,
		xfbml: true,
		oauth: true
	});

	showLoader(true);