Mongrel

Printable View

Mongrel

Hello World

Ooh this upgrade is a bit fancy!

Hey where's DejaVu Sans? Oh wait, that's linux :blush:

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

Re: Mongrel

Hello World

Ooh this upgrade is a bit fancy!

Hey where's DejaVu Sans? Oh wait, that's linux :blush:

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>"; ?>

Feb 26th, 2007, 05:50 PM
kregg

Re: Mongrel

Hello World

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>

Re: Mongrel

sql Code:

Select * 
From tblVBF
Where member="kregg"
And rating>10;

Re: Mongrel

c Code:

#include <stdio.h>
 
main()
{
  for(;;)
      { 
          printf ("Hello World!\n");
      }
}

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
kregg

Re: Mongrel
python Code:
```
>>> def hello():
...print "Hello, World!"
...
```

Re: Mongrel

delphi Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := 'Hello Delphi! ' + DateTimeToStr(Now);
end

Re: Mongrel

pascal Code:

program HelloWorld;
 
begin
  writeln('Hello World');
end.

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.

Re: Mongrel

fortran Code:

PROGRAM HELLO
      DO 10, I=1,10
      PRINT *,'Hello World'
   10 CONTINUE
      STOP
      END

Feb 26th, 2007, 06:25 PM
kregg

Re: Mongrel
kregg Code:
```
llama new nanimal
blox "erg"
llama=egg
```
:D
Feb 26th, 2007, 06:34 PM
RhinoBull

Re: Mongrel
Another code tag test
VB Code:
```
Dim a As String
```
Feb 26th, 2007, 06:56 PM
Atheist

Re: Mongrel
Id like to try too!
whats this Code:
```
Hey?
```
Code:

Dim this As New Code

:eek:
VB Code:
```
Dim a as string = "hey"
Private Sub Death
    'Death
End Sub
```
Feb 26th, 2007, 08:40 PM
dclamp

Re: Mongrel

tety
Feb 27th, 2007, 01:36 AM
RobDog888

Re: Mongrel
Chit Chat Code:
```
Blah, blah, blah....
```
Feb 27th, 2007, 04:42 AM
kregg

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
kregg

Re: Mongrel

Is it going to be 269? No :cry:

Re: Mongrel

Dylan Code:

if (miss_old_syntax=="yes")
    blow_up_vbf=>True
}

Feb 27th, 2007, 07:52 PM
RhinoBull

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
RhinoBull

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.

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
kregg

Re: Mongrel

[vbcode]
Dim hello as string
[/vbcode]

[b]Hello[/b]

[noparse][/noparse]