|
-
Feb 26th, 2007, 05:46 PM
#1
Thread Starter
Fanatic Member
Mongrel
Hello World
Ooh this upgrade is a bit fancy!
Hey where's DejaVu Sans? Oh wait, that's linux 
vb Code:
Private Sub vbf
Dim vbforums as New PHP.Forum
Do
Spam vbforums
Loop
End Sub
Private Sub Spam(forum as PHP.Forum)
Dim i as Integer
For i = 1 to 100
vbforums.SendMessage "Spam! :lol:","I am a n00b"
Next i
End Sub
Last edited by kregg; Feb 26th, 2007 at 06:11 PM.
-
Feb 26th, 2007, 05:49 PM
#2
Thread Starter
Fanatic Member
Re: Mongrel
Hello World
Ooh this upgrade is a bit fancy!
Hey where's DejaVu Sans? Oh wait, that's linux
php Code:
<?php
include ($_SERVER['DOCUMENT_ROOT']."/classes/upload/upload_class.php"); //classes is the map where the class file is stored (one above the root)
$max_size = 1024*250; // the max. size for uploading
$my_upload = new file_upload;
$my_upload->upload_dir = $_SERVER['DOCUMENT_ROOT']."/files/new/"; // "files" is the folder for the uploaded files (you have to create this folder)
$my_upload->extensions = array(".png", ".zip", ".pdf"); // specify the allowed extensions here
// $my_upload->extensions = "de"; // use this to switch the messages into an other language (translate first!!!)
$my_upload->max_length_filename = 50; // change this value to fit your field length in your database (standard 100)
$my_upload->rename_file = true;
if(isset($_POST['Submit'])) {
$my_upload->the_temp_file = $_FILES['upload']['tmp_name'];
$my_upload->the_file = $_FILES['upload']['name'];
$my_upload->http_error = $_FILES['upload']['error'];
$my_upload->replace = (isset($_POST['replace'])) ? $_POST['replace'] : "n"; // because only a checked checkboxes is true
$my_upload->do_filename_check = (isset($_POST['check'])) ? $_POST['check'] : "n"; // use this boolean to check for a valid filename
$new_name = (isset($_POST['name'])) ? $_POST['name'] : "";
if ($my_upload->upload($new_name)) { // new name is an additional filename information, use this to rename the uploaded file
$full_path = $my_upload->upload_dir.$my_upload->file_copy;
$info = $my_upload->get_uploaded_file_info($full_path);
// ... or do something like insert the filename to the database
}
}
?>
<?php if (isset($info)) echo "<blockquote>".nl2br($info)."</blockquote>"; ?>
Last edited by kregg; Feb 26th, 2007 at 06:14 PM.
-
Feb 26th, 2007, 05:50 PM
#3
Thread Starter
Fanatic Member
-
Feb 26th, 2007, 06:17 PM
#4
Thread Starter
Fanatic Member
Re: Mongrel
html Code:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Upload example</title>
<style type="text/css">
<!--
label {
float:left;
display:block;
width:120px;
}
input {
float:left;
}
-->
</style>
</head>
<body>
<h3>File upload script:</h3>
<p>Max. filesize = <?php echo $max_size; ?> bytes.</p>
<form name="form1" enctype="multipart/form-data" method="post">
<input type="hidden" name="MAX_FILE_SIZE" value=""/><br>
<label for="upload">Select a file...</label><input type="file" name="upload" size="30"><br clear="all">
<label for="name">New name?</label><input type="text" name="name" size="20">
(without extension!) <br clear="all">
<label for="replace">Replace ?</label><input type="checkbox" name="replace" value="y"><br clear="all">
<label for="check">Validate filename ?</label><input name="check" type="checkbox" value="y" checked><br clear="all">
<input style="margin-left:120px;" type="submit" name="Submit" value="Submit">
</form>
<br clear="all">
<p>
</body>
</html>
-
Feb 26th, 2007, 06:18 PM
#5
Thread Starter
Fanatic Member
Re: Mongrel
sql Code:
Select *
From tblVBF
Where member="kregg"
And rating>10;
-
Feb 26th, 2007, 06:19 PM
#6
Thread Starter
Fanatic Member
Re: Mongrel
c Code:
#include <stdio.h>
main()
{
for(;;)
{
printf ("Hello World!\n");
}
}
-
Feb 26th, 2007, 06:20 PM
#7
Thread Starter
Fanatic Member
Re: Mongrel
c++ Code:
#include <iostream>
int main()
{
std::cout << "Hello, world!\n";
}
#include <iostream.h>
main()
{
for(;;)
{
cout << "Hello World! ";
}}
-
Feb 26th, 2007, 06:21 PM
#8
Thread Starter
Fanatic Member
Re: Mongrel
python Code:
>>> def hello():
...print "Hello, World!"
...
-
Feb 26th, 2007, 06:21 PM
#9
Thread Starter
Fanatic Member
Re: Mongrel
delphi Code:
procedure TForm1.FormCreate(Sender: TObject);
begin
Caption := 'Hello Delphi! ' + DateTimeToStr(Now);
end
-
Feb 26th, 2007, 06:22 PM
#10
Thread Starter
Fanatic Member
Re: Mongrel
pascal Code:
program HelloWorld;
begin
writeln('Hello World');
end.
-
Feb 26th, 2007, 06:23 PM
#11
Thread Starter
Fanatic Member
Re: Mongrel
cobol Code:
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. HELLOWORLD.
000300
000400*
000500 ENVIRONMENT DIVISION.
000600 CONFIGURATION SECTION.
000700 SOURCE-COMPUTER. RM-COBOL.
000800 OBJECT-COMPUTER. RM-COBOL.
000900
001000 DATA DIVISION.
001100 FILE SECTION.
001200
100000 PROCEDURE DIVISION.
100100
100200 MAIN-LOGIC SECTION.
100300 BEGIN.
100400 DISPLAY " " LINE 1 POSITION 1 ERASE EOS.
100500 DISPLAY "Hello world!" LINE 15 POSITION 10.
100600 STOP RUN.
100700 MAIN-LOGIC-EXIT.
100800 EXIT.
-
Feb 26th, 2007, 06:23 PM
#12
Thread Starter
Fanatic Member
Re: Mongrel
fortran Code:
PROGRAM HELLO
DO 10, I=1,10
PRINT *,'Hello World'
10 CONTINUE
STOP
END
-
Feb 26th, 2007, 06:25 PM
#13
Thread Starter
Fanatic Member
Re: Mongrel
kregg Code:
llama new nanimal
blox "erg"
llama=egg
-
Feb 26th, 2007, 06:34 PM
#14
Last edited by RhinoBull; Feb 26th, 2007 at 06:38 PM.
-
Feb 26th, 2007, 06:56 PM
#15
Re: Mongrel
Id like to try too!
Code:
Dim this As New Code
VB Code:
Dim a as string = "hey"
Private Sub Death
'Death
End Sub
Last edited by Atheist; Feb 26th, 2007 at 08:33 PM.
-
Feb 26th, 2007, 08:40 PM
#16
My usual boring signature: Something
-
Feb 27th, 2007, 01:36 AM
#17
VB/Office Guru™ (AKA: Gangsta Yoda™  ®)
I dont answer coding questions via PM. Please post a thread in the appropriate forum. 
Microsoft MVP 2006-2011
Office Development FAQ (C#, VB.NET, VB 6, VBA)
Senior Jedi Software Engineer MCP (VB 6 & .NET), BSEE, CET
If a post has helped you then Please Rate it! 
• Reps & Rating Posts • VS.NET on Vista • Multiple .NET Framework Versions • Office Primary Interop Assemblies • VB/Office Guru™ Word SpellChecker™.NET • VB/Office Guru™ Word SpellChecker™ VB6 • VB.NET Attributes Ex. • Outlook Global Address List • API Viewer utility • .NET API Viewer Utility •
System: Intel i7 6850K, Geforce GTX1060, Samsung M.2 1 TB & SATA 500 GB, 32 GBs DDR4 3300 Quad Channel RAM, 2 Viewsonic 24" LCDs, Windows 10, Office 2016, VS 2019, VB6 SP6
-
Feb 27th, 2007, 04:42 AM
#18
Thread Starter
Fanatic Member
Re: Mongrel
Chit Chat Code:
RobDog888: Blah, blah, blah....
kregg: Roffle Roffle Roffle
Marty: Ban Ban Ban
Where's the highlighting syntax?
O.o
-
Feb 27th, 2007, 06:27 AM
#19
Thread Starter
Fanatic Member
Re: Mongrel
Is it going to be 269? No 
-
Feb 27th, 2007, 06:45 PM
#20
Re: Mongrel
Dylan Code:
if (miss_old_syntax=="yes")
blow_up_vbf=>True
}
My usual boring signature: Something
-
Feb 27th, 2007, 07:52 PM
#21
Re: Mongrel
m,opwejfhieruaweiorueropijwerkjllthweropigtjser[]lwe
r]poitupw9ser8gtujerkl;agtmjweruopthwo;ersklgnmlxcvknjbkljdfhgposekrgtjgseriopghpsejko;rgnpserjkghwpei rugnau9gnhqa[eriogtnjwal;rtmknjpsioruthgwil;ek Aerklpgjsoperuhtgwo[er gszszszszopsdrnj[jyw49[-uitjqperai0j
-
Feb 27th, 2007, 07:53 PM
#22
Re: Mongrel
this is really bogus and I hate it Code:
"bnmcghjjhhyukuyikfuyidt6uydrtysrtyeyseaytsrty"]
what kind of nonsense is that? it's not even bogus - it's just insane.
-
Mar 3rd, 2007, 04:58 PM
#23
Thread Starter
Fanatic Member
Re: Mongrel
vb Code:
Dim colRandom As New CollectionDim intTry As Integer Randomize On Error Resume Next Do Until colRandom.Count = 6 ' Generate the random number intTry = Int(Rnd * 16 + 1) ' Attempt To add it To the collection along with a matching key colRandom.Add intTry, CStr(intTry) If Err.Number = 457 Then ' The key is already In the collection so it isn't added again End IfLoop For intTry = 1 To 6 Debug.Print colRandom(intTry)Next
-
Mar 4th, 2007, 08:36 AM
#24
Thread Starter
Fanatic Member
Re: Mongrel
[vbcode]
Dim hello as string
[/vbcode]
[b]Hello[/b]
[noparse][/noparse]
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|
Reply With Quote
