Program Dari FoxNet- Windows Version
This topic is built for people that understand Malay language...Saya telah membuat ubahsuai serta mengkompile foxnet connector dengan librarynya sekali.Ianya boleh digunakan
dengan menggunakan library VFP 5.0 sahaja.Semasa saya membuat ujian didapati
kekuatan foxcgi hanya berdaya mencari 170 rekod sahaja,jika lebih ia akan "error - due to HTMLERR-no data".
Sila pastikan semasa mengolah apa-apa program query hendaklah
mempunyai trap data supaya sistem tidak mencari terus tanpa query input kerana menyebabkan
sistem "hang"dan jangan lupa trap program eof()
Apa yang perlu buat ialah hanya meletakan webcon.exe didalam direktori database anda
dan juga meletakan foxcgi.exe di laman web direktori cgi-bin.Kemudian "Run"
webcon.exe.Anda juga dinasihat supaya kompile program anda ".prg" dengan
visual foxpro 5.0 untuk membolehkan ianya berfungsi.Jika anda mengelami
masalah foxnet tidak berfungsi..anda hanya perlu shutdown webcon.exe dan
kemudian "Run" semula.Pastikan juga ada direktori "prgs" untuk menempatkan
program web yang dibuat oleh anda. Selamat berjaya....
1.Hello.prg
Ini adalah asas FoxPro CGI program. Ianya amat mudah, dan boleh
digunakan didalam intranet dan juga internet..
SET PROCEDURE TO htmlpath+"htmllib.fxp"
&&== Load htmllib library
=HtmlBegin()
&&== Html File Header
=HtmlTitle("Ini adalah awalan
FoxPro Net Program")
&&== Title of homepage
=Htmlhtmlfcolor("LightBlue")
&&-- Set Font color
=HtmlSentence("Hi, Apa Khabar
you !")
&&== Write a senterce in homepage
=HtmlEnd()
&&== Html end
return
Taip contoh: http://Your IP/cgi-shl/foxcgi.exe/hello.prg
cuba anda buat.
2.Queryin.prg
Program ini menunjukan cara pengguna query melalui input, jawapan nya
akan dijawab kepada pengguna semula.
SET PROCEDURE TO htmlpath+"htmllib.fxp"
&&== Load htmllib library
query=htmlquery
&&-- Dapatkan User's input query
=HtmlBegin()
&&-- Html File Header
=Htmlhtmlfcolor("LightBlue")
&&-- Set Font color
=HtmlTitle("Ini Demo Page")
&&-- Title of homepage
=HtmlSentence("Hi, Lama benar belum
mendengar khabar dari you !")
&&-- Write a senterce in homepage
=HtmlLine()
&&-- Insert a separate line
=HtmlSentence(" query input
pengguna ialah: "+query)
&&-- Jawap user's input
=HtmlEnd()
return
&&== Html end
Taip data contoh: http://Your IP/cgi-shl/foxcgi.exe/queryin.prg?query anda
- cuba buat.
3.Formin.prg
Program ini menunjukan cara user's form input, kemudian memaparkan jawapannya
kepada pengguna.
SET PROCEDURE TO htmlpath+"htmllib.fxp"
&&-- Load htmllib library
userip=htmlclientip
&&-- User's IP address
number=htmlparlen
&&-- Input parameters number of Form
parname1=htmlin(1,1)
&&-- Name of first input parameters
parvalue1=htmlin(1,2)
&&-- value of first input parameters
parname2=htmlin(2,1)
&&-- Name of first input parameters
parvalue2=htmlin(2,2)
&&-- value of first input parameters
&&..........
=HtmlBegin()
&&-- File Header
=Htmlhtmlbcolor("GREY")
&&-- Backgroundcolor of homepage
=HtmlTitle("This is a Demo Page")
&&-- Title of homepage
=Htmlhtmlfcolor("LightRed")
&&-- Set Font color
=Htmlalign("Center")
&&-- Set object align
=HtmlFontSize("18")
&&-- Set Font Size
=HtmlSentence("Hi, I have heard
from you !") &&-- Write a senterce in homepage
=HtmlLine()
&&-- Insert a separate line
=Htmlalign("Left")
&&-- Set object align
=HtmlFontSize("12")
&&-- Set Font Size
=Htmlhtmlfcolor("Black")
&&-- Set Font color
=HtmlSentence("Your IP is: "+userip)
&&-- Return user's input
=HtmlSentence("Your Form
input is below:")
FOR I=1 TO NUMBER
=HtmlSentence(htmlin(i,1)+"="+htmlin(i,2))
ENDFOR
=HtmlLine()
=Htmlalign("Center")
=HtmlSentence(DTOC(DATE( )))
=HtmlEnd()
&&== Html end
return
Form based CGI program foxpro boleh digubal dengan kaedah style form,Contoh nya adalah dibawah ini :-
Ubah page and tukar IP address didalam submit button bersamaan dengan IP address anda,
kemudian klik butang submit .
4.Libdemo.prg
Program ini menunjukan cara HtmlLib functions berfungsi keatas design FoxPro
CGI program.
SET PROCEDURE TO htmlpath+"htmllib.fxp"
=HtmlBegin()
=Htmlbcolor("White")
=HtmlTitle("HtmlLib Function List")
=Htmlfcolor("Black")
=Htmlalign("Left")
=HtmlFontSize("12")
=HtmlSentence("1.Font size Function
demo")
&& show different font size
=HtmlFontSize("8")
=HtmlWords("8")
=HtmlFontSize("12")
=HtmlWords("12")
=HtmlFontSize("18")
=HtmlWords("18")
=HtmlFontSize("36")
=HtmlSentence("36")
=HtmlFontSize("12")
=HtmlSentence("2.Font Color Function
demo")
&& show different font color
=Htmlfcolor("Red")
=HtmlWords("Red")
=Htmlfcolor("Green")
=HtmlWords("Green")
=HtmlFcolor("Blue")
=HtmlWords("Blue")
=HtmlFcolor("Yellow")
=HtmlSentence("Yellow")
=HtmlFcolor("Black")
=HtmlSentence("3.Object align Function
demo")
&& show different object align
=Htmlalign("Left")
=HtmlWords("Left")
=Htmlalign("Center")
=HtmlSentence("Center")
=Htmlalign("Left")
=HtmlSentence("3.Object insert
function demo")
&& show different object insert function
=HtmlWords("InsertWords")
=HtmlLinkWords("InsertLinkWords","http://www.infoseek.com")
=Htmlreturn()
=Htmlsentence("Insert sentence:
How are you !")
=Htmllinksentence("Insert linked
sentence:Press here to visit Yahoo !","http://www.yahoo.com")
=Htmlline()
=HtmlGraph("http://202.114.6.48/ask.gif")
=HtmlLinkGraph("http://202.114.6.48/search.gif","http://www.yahoo.com")
=Htmlreturn()
=HtmlSentence("4.Table insert function
demo") && show Table insert function
Dimension aa(2,4)
aa(1,1)="Name"
aa(1,2)="Address"
aa(1,3)="Phone"
aa(2,1)="Lingsong He"
aa(2,2)="China"
aa(2,3)="87542079"
=HtmlArrayTable(aa,2,3)
use htmlpath+"datas\articles.dbf"
=HtmlDbfTable()
use
return
Taip contoh : http://Your IP/cgi-shl/foxcgi.exe/Libdem.prg
cuba anda buat.
4.Search.prg
Program ini menunjukan cara mudah membina search engine program cara
FoxNet.
SET PROCEDURE TO htmlpath+"htmllib.fxp"
keywords=htmlin(1,2)
&&------ Get user's search words
=HtmlBegin()
=HtmlTitle("Internet HotFiles Search
Result")
=Htmlfcolor("LightRed")
=Htmlalign("Center")
=HtmlFontSize("24")
=HtmlSentence("Internet HotFiles
Search Result")
=HtmlLine()
=HtmlFontSize("12")
=Htmlalign("Left")
=Htmlfcolor("Black")
use htmlpath+"datas\search.dbf"
&&------ Open hotfile database
SET filter to ATC(keywords,search.content)>0
&&----- Find qualified record
n=1
DO WHILE EOF()=.F.
=HtmlLinksentence(str(n)+">"+search.name,search.url)
&&---- Return search result to user
m.s=search.content
=Htmlsentence(m.s)
SKIP 1
n=n+1
ENDDO
use
=HtmlLine()
=HtmlSentence(DTOC(DATE( )))
=HtmlEnd()
return
Program ini menggunakan form dibawah ini. Tukar IP address didalam submit
button bersamaan IP address anda, kemudian klik submit.
Search
Internet Programs
Foxnet ini adalah hasil rekaan Prof.Heliso.Foxcgi.exe adalah Share Ware
Program dimana harta intelek kepunyaan beliau sahaja.Oleh itu sesiapa yang ini meneruskan
program ini secara penuh,hendaklah mendapatkan lesen dari beliau.