Web Development

var fs = require('fs');

var https = require('https');
var config = require( ".\\config\\config.json");
var folder = __dirname + '\\SSLCERT\\';

var fkey  = folder + 'privatekey.key';
var fcert = folder + 'certificate.crt';


var privateKey  = fs.readFileSync(fkey, 'utf8');
var certificate = fs.readFileSync(fcert, 'utf8');
var credentials = {key: privateKey, cert: certificate};

var express = require('express');
var app = express();


var https_mode = false;

app.get('/', function (req, res) { 
  if (https_mode == false) {
    res.redirect('https://localhost:' + config.port_https);
    https_mode = true;
  }
  else{ 
    res.send('Hello World!!!');
    https_mode = false;
  }
})

app.listen(config.port_http,()=> {
  console.log('listening on ' + config.port_http);
});


var httpsServer = https.createServer(credentials, app);
httpsServer.listen(config.port_https, () => { 
  console.log('listening on ' + config.port_https) });

Dim sqlcom As New SqlCommand("select bookcontent,bookname from books where  bookn=" & Page.RouteData.Values("bookn").ToString & "", conn)
        Dim da As New SqlDataAdapter(sqlcom)
        Dim ds As New DataTable
        da.Fill(ds)
        Dim filename As String = ds.Rows(0)("bookcontent").ToString
        Dim fff As String = ds.Rows(0)("bookname").ToString
        Dim fileInfo As FileInfo = New FileInfo(filename)
        If fileInfo.Exists Then
            Response.Clear()
            Response.Buffer = True
            Response.Charset = ""
            Response.Cache.SetCacheability(HttpCacheability.NoCache)
            Response.ContentType = "Application/pdf"
            Response.ContentType = "application/ms-word"
            Response.AddHeader("Content-Disposition", "inline; filename=""" & ds.Rows(0)("bookname").ToString & ".pdf" & """")
            Response.AddHeader("Content-Length", fileInfo.Length.ToString())
            Response.TransmitFile(filename)
             Response.Flush()
            HttpContext.Current.ApplicationInstance.CompleteRequest()

Dim Client As New WebClient
Dim weburl As String= ....here is some procedure to get url 
Client.DownloadFileAsync(New Uri(weburl), @"c:\myfile.pdf")

$query->set('author', $current_user->ID);

add_action('pre_get_posts', 'filter_posts_list');<br />
<br />
function filter_posts_list($query) {<br />
    //GLOBAL VARIABLES<br />
    global $pagenow, $typenow;<br />
<br />
    //MY VARIABLES<br />
    global $current_user;<br />
    get_currentuserinfo();<br />
<br />
    //FILTERING<br />
    if (current_user_can('formchecker1') && ('edit.php' == $pagenow) &&  $typenow == 'mycustomcpt' ) {<br />
        $query->set('author', 'formusers1');<br />
    }<br />
<br />
    if (current_user_can('formchecker2') && ('edit.php' == $pagenow) &&  $typenow == 'mycustomcpt' ) {<br />
        $query->set('author', 'formusers2');<br />
    }<br />
<br />
    if ((current_user_can('formusers1') || current_user_can('formusers2')) && ('edit.php' == $pagenow) &&  $typenow == 'mycustomcpt') {<br />
        $query->set('author', $current_user->ID);<br />
    }<br />
}