Pete's QBASIC Site

Re: QB64 Web Server / Scripting Language

2016-01-12T02:22:08-05:00

I have made some improvements to the stability of my software.

My website also demonstrates the features of my server.

I am now running an autosurf traffic exchange where users earn one Dogecoin per ten pages surfed. I also pay users five Dogecoin to log in. All the information is tracked with my scripts.

Users may now edit their profile information on the website.
The log in interface now has a captcha service.
The chat room is now a multi topic image board and Dogecoin faucet.
The forum has more up to date and relevant topics.

I plan on implement these features soon:

add traffic point system
allow users to submit to link directory
popup exchange service to earn Dogecoin and traffic
banner exchange service to earn Dogecoin and traffic

Statistics: Posted by bongomeno — Tue Jan 12, 2016 2:22 am

Re: QB64 Web Server / Scripting Language

2016-01-12T02:13:12-05:00

May you please provide an example of this qb and batch web development method. I am unaware of what this is.

My server depends on QB64 which in my opinion is the perfect tool for developing server side software.

Statistics: Posted by bongomeno — Tue Jan 12, 2016 2:13 am

Re: QB64 Web Server / Scripting Language

2015-11-12T09:00:40-05:00

well in a nut shell, I have been for the last 30yrs trying to program one language to the next pretty much dedicating a year to each language as they came out.. my true love is qb code, I am also pretty fluent in html5 and batch, use win xp will swap over to arch linux if/when xp finally bites the dust for me. but still will use it from oracle VM on the linux OS if/when that happens.

I have been using vm for a while now getting used to it and trying to get the current system i use now into that VM.

some of the things i discussed here is my interest in serving a webpage to host qb nostalgia programming group but would also like to host a old style bbs through vm something i could share qb games or even host online gaming..

for a server I need something that can host qb,dos shell and html pages, I really hate the other languages for many reasons..it be even more awesome if it can run on VM and even more desirable if it can also serve to darkweb like (meshnet) preferred or tor, using wifi for primary connection..

I know i am asking alot from any server software, so my expectations are not to high from any single maker. I realize the difficulty that goes into both programming and web hosting to. I have owned/self hosted 4 dot com's in the past already, so i'm a bit experienced in that to..

see a few years back i wrote a speaking neural aware intelligent compiler in qb, i had ported it to qb64 then suffered a fallout with qb64's owner where i then neglected to program since till now. returning to quickbasic 4.5
i do have a copy of my old websites "written by me" to make setup and testing quicker. as well as getting back into the groove with qb but these are my focus for "desired experience"..

i'm not doing it for profit but for hobby programming and nostalgia so i am willing to put about what you would expect into a season of sponsoring a little league player but really not ready to sponsor a pro's wages for the "hobby" experience..

so i guess let me know if my listed criteria in some way match up with yours? i wouldn't want to waste your time reaching for an impossible goal.

Statistics: Posted by iamdenteddisk — Thu Nov 12, 2015 9:00 am

Re: QB64 Web Server / Scripting Language

2015-11-06T02:26:07-05:00

Thank you for commenting.

I would be glad to assist you with whatever I am able to.
Let me make sure I understand your question. Are you asking if I plan on making a QB45 server?
If so, after looking at your other thread "seeking tcpip info for qb45", I would actually like to try it out!
Until now, I have been planning on using what I learned form this project to create servers in other languages including C++ and python.
I am more likely to stick to modern alternatives, but I may just bust a mission and make one in QB45 as well.

If you would like to use my QB64 server, I should be able to help you set it up and answer any questions.

I am still adding important features and have a to-do list that looks like:
add unique id values to cookies
add file uploading feature
finish dynamic mime handling
dynamic user agent support
optimize code / remove redundancy and fragments
comment out code

Statistics: Posted by bongomeno — Fri Nov 06, 2015 2:26 am

Re: QB64 Web Server / Scripting Language

2015-11-04T22:36:08-05:00

love it and wish the best.. i use html5 and am seeking a server software to host html pages or qb.. but i also went back to quickbasic4.5.
any possibility of these in the future?

Statistics: Posted by iamdenteddisk — Wed Nov 04, 2015 10:36 pm

Re: QB64 Web Server / Scripting Language

2015-11-02T22:52:49-05:00

Scripting language examples taken directly from my website (just a few):

Index file...

Code:

@genericscripts\init.hide@genericscripts\ads.hide@genericscripts\header.hide@genericscripts\body.hide@genericscripts\footer.hidestop@genericscripts\headtags.hide@bodyscripts\checklogin.hide@bodyscripts\main.hide@bodyscripts\register.hide@bodyscripts\login.hide@bodyscripts\changepassword.hide@bodyscripts\news.hide@bodyscripts\forumsmain.hide@bodyscripts\forumssub.hide@bodyscripts\forumsthread.hide@bodyscripts\newthread.hide@bodyscripts\threadreply.hide@bodyscripts\blogs.hide@bodyscripts\downloads.hide@bodyscripts\store.hide@bodyscripts\repairs.hide@bodyscripts\music.hide@bodyscripts\links.hide@bodyscripts\contact.hide@bodyscripts\history.hide@bodyscripts\awards.hide@bodyscripts\logout.hide@bodyscripts\displayquote.hide@bodyscripts\dataspace.hideend

init.hide

Code:

int #check,int #pointer,int #endfile,int #quotecap,500int #infocap,999int #downloadcap,100int #pagepoint,int #quotes,int #htmlpos,int #binary,int #loggedin,int #hits,int #threads,str $page,str $userfile,dynamicdata\userlist.datstr $quotefile,dynamicdata\quotes.datstr $newsfile,dynamicdata\news.datstr $blogsfile,dynamicdata\blogs.datstr $linksfile,dynamicdata\links.datstr $downloadsfile,downloads\downloads.datstr $accountdir,accounts\str $filein,str $fileout,str $namefile,str $name,str $pass,str $confirmpass,str $email,str $finalconfirm,str $category,str $getcategory,str $title,str $description,str $link,str $screenshot,str $col1,lightgraystr $col2,whitestr $outstr,str $cmpname,str $thread,str $linkbase,str $passlink,str $section,str $contents,str $threadsstr,str $getthreadsstr,str $gettitle,str $post,str $popup,str $cr,str $lf,str $crlf,strchr $cr,13strchr $lf,10concat $crlf,$cr,$lfdimstr $quote,#quotecapdimstr $info1,#infocapdimstr $info2,#infocapdimstr $downloadcategory,#downloadcapdimstr $downloadtitle,#downloadcapdimstr $downloaddescription,#downloadcapdimstr $downloadlink,#downloadcapdimstr $downloadscreenshot,#downloadcap

header.hide

Code:

gosub checkloginformget $pageoutput output output gosub headtagsif #loggedin=1:thenstrcmp $page,logout,#checkif #check=1:thenoutput endifendifoutput output output $popupif #loggedin=1:thenoutput output Welcome, output $nameoutput 
endifoutput output output output output output output output output Geek
Basicoutput gosub displayquoteoutput 
output output _{output output output output output output 
output Account

output Register
if #loggedin=1:thenoutput Log Out
endifif #loggedin=0:thenoutput Log In
endifrem output Change Password
output 
output Information

output News
output Blogs
output Links
output 
output Sharing

output Forums
output Data Space
output UnMarkNet
output Share This Page
output 
output Products

rem output Store
rem output Repairs
output Downloads
rem output Music
output 
output About

output Home
output Contact
output History
output Awards
output}

body.hide

Code:

strcmp $page,,#checkif #check=1:thengosub mainendifstrcmp $page,register,#checkif #check=1:thengosub registerendifstrcmp $page,login,#checkif #check=1:thengosub loginendifstrcmp $page,logout,#checkif #check=1:thengosub logoutendifstrcmp $page,changepassword,#checkif #check=1:thenrem gosub changepasswordendifstrcmp $page,news,#checkif #check=1:thengosub newsendifstrcmp $page,forumsmain,#checkif #check=1:thengosub forumsmainendifstrcmp $page,forumssub,#checkif #check=1:thengosub forumssubendifstrcmp $page,forumsthread,#checkif #check=1:thengosub forumsthreadendifstrcmp $page,newthread,#checkif #check=1:thengosub newthreadendifstrcmp $page,threadreply,#checkif #check=1:thengosub threadreplyendifstrcmp $page,blogs,#checkif #check=1:thengosub blogsendifstrcmp $page,downloads,#checkif #check=1:thengosub downloadsendifstrcmp $page,store,#checkif #check=1:thenrem gosub storeendifstrcmp $page,repairs,#checkif #check=1:thenrem gosub repairsendifstrcmp $page,music,#checkif #check=1:thenrem gosub musicendifstrcmp $page,links,#checkif #check=1:thengosub linksendifstrcmp $page,contact,#checkif #check=1:thengosub contactendifstrcmp $page,history,#checkif #check=1:thengosub historyendifstrcmp $page,awards,#checkif #check=1:thengosub awardsendifstrcmp $page,dataspace,#checkif #check=1:thengosub dataspaceendif

footer.hide

Code:

output output 

output 

output 
output _{output output output output output output 
output Account

output Register
if #loggedin=1:thenoutput Log Out
endifif #loggedin=0:thenoutput Log In
endifrem output Change Password
output 
output Information

output News
output Blogs
output Links
output 
output Data

output Forums
output Data Space
output UnMarkNet
output Share This Page

output 
output Products

rem output Store
rem output Repairs
output Downloads
rem output Music
output 
output About

output Home
output Contact
output History
output Awards
output}output output output output output Geek Basic
2007-2015 output 
output output output output output output output 
output 

output

output output output output output login.hide

Code:

sub loginformget $namestrcmp $name,,#checkif #check=1:thengosub outloginformreturnendifformget $passstrcmp $pass,,#checkif #check=1:thengosub outloginformreturnendifloadfile $userfilecheckfile #endfileif #endfile<>0:thenclosefileoutput output Log In
output output The submitted account name doesn't exist.
output Register a new account.
output 
output 
output 
returnendifgetfile $fileinclosefilestrset $cmpname,$namestrlcase $fileinstrlcase $cmpnamestrfind #check,$filein,$cmpnameif #check=0:thengosub nologinreturnendifconcat $namefile,accounts\,$nameconcat $namefile,$namefile,.hideloadfile $namefilegetfile $fileinclosefilestrcmp $filein,$pass,#checkif #check=1:thensetid $nameoutput output Log In
output output You are now logged in.output 
output 
output 
returnendifgosub nologinreturnsub outloginformoutput output Log In
output output output output Name


output Password


output output 
output 
output 
output 
returnsub nologinoutput output Log In
output output The submitted account name and password do not match.

output Return to log in page.
output 
output 
output 
return

Statistics: Posted by bongomeno — Mon Nov 02, 2015 10:52 pm

QB64 Web Server / Scripting Language

2022-11-15T15:13:35-05:00

This project is dead.. for now.. I may return to it.
Hello, QB friends. It has been far too long since I have been a part of this community. Recently, I have continued improving my QB64 web server / scripting language. I use this software to serve my website and it's dynamic features.

Features:

- fast file serving
- scripts are similar to PHP and ASP
- scripts may utilize cookies, forms, subs, if/then blocks, strings, arrays, and more.
- scripts may include sub files
- scrips may access files within the www directory and sub-directories for i/o
- able to neatly log high volumes of requests
- install package includes an IDE

Examples of dynamic pages:

My forum: http://geekbasic.com/index.gbws?$page=forumsmain
A website hosting service: http://geekbasic.com/index.gbws?$page=dataspace
Registration: http://geekbasic.com/index.gbws?$page=register
Chat room: http://geekbasic.com/chatroom/chat.gbws

I have released a new install package (source code included) here: http://geekbasic.com/index.gbws?$page=d ... 3pointer=3

Statistics: Posted by bongomeno — Mon Nov 02, 2015 10:48 pm

Pete's QBASIC Site

Re: QB64 Web Server / Scripting Language

Re: QB64 Web Server / Scripting Language

Re: QB64 Web Server / Scripting Language

Re: QB64 Web Server / Scripting Language

Re: QB64 Web Server / Scripting Language

Re: QB64 Web Server / Scripting Language

GeekBasic

Log In

Log In

Log In

Log In

QB64 Web Server / Scripting Language

Geek
Basic