26824 total geeks with 3505 solutions
Recent challengers:
  • vera level 4 - 03:10AM
  • vera level 3 - 02:59AM
  • vera level 2 - 02:12AM
 Welcome, you are an anonymous user! [register] [login] Get a yourname@osix.net email address 

Articles

GEEK

User's box
Username:
Password:

Forgot password?
New account

Shoutbox
MaxMouse
It's Friday... That's good enough for me!
CodeX
non stop lolz here but thats soon to end thanks to uni, surely the rest of the world is going good?
stabat
how things are going guys? Here... boring...
CodeX
I must be going wrong on the password lengths then, as long as it was done on ECB
MaxMouse
lol... the key is in hex (MD5: of the string "doit" without the "'s) and is in lower case. Maybe i should have submitted this as a challenge!

Donate
Donate and help us fund new challenges
Donate!
Due Date: Apr 30
April Goal: $40.00
Gross: $0.00
Net Balance: $0.00
Left to go: $40.00
Contributors


News Feeds
The Register
Enterprise storage
will DIE just like
TAPE did, say chaps
with graphs
EE & Vodafone
will let you BONK
on the TUBE - with
Boris" blessing
Think-tank to
infosec: you"re
doing it wrong
Last call: Getting
Started with
Microsoft Azure ?
TODAY at 9.30am
Japanese boffin
EYES up big bucks
with strap-on
digi-glasses
So, just how
do you say
"the mutt"s nuts"
in French?
Japan airport staff
dash to replace
passcodes after
security cock-up
Cisco kicks off
security
kit/software/cloud
combo
Kill dodgy RNG says
NIST
Algorithm ramps up
genetic computation
Slashdot
WRT54G Successor
Falls Flat On
Promises
Google"s Project
Ara Could Bring
PC-Like Hardware
Ecosystem To Phones
BioWare Announces
Dragon Age
Inquisition
For October 7th
How Silk Road
Bounced Back From
Its
Multimillion-Dollar
Hack
How Apple"s Billion
Dollar Sapphire Bet
Will Pay Off
The US Public"s
Erratic Acceptance
of Science
Groove Basin: Quest
For the Ultimate
Music Player
Parents" Privacy
Concerns Kill
"Personalized
Learning"
Initiative
Next-Gen
Thunderbolt: Twice
as Fast, But a
Different Connector
Apple Fixes Major
SSL Bug In OS X,
iOS
Article viewer

ASP Function to Produce a random IDs



Written by:dimport
Published by:dimport
Published on:2003-06-21 07:19:46
Topic:ASP
Search OSI about ASP.More articles by dimport.
 viewed 7684 times send this article printer friendly

Digg this!
    Rate this article :
This nice little function will return a nice little random string which I use to create ID's for ALL my projects, in any language (just got to edit it). In all the time I have used this sub it has NEVER created the same string twice, and if your not happy with it, just call it twice and then it will half the chances again :D


 
'==============================
'============= CODE ============
'==============================

<%
Function Cript()

    Dim strLetters, g, i

    strLetters = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
    Randomize Timer
        i = Int(Rnd * 62) + 1
        g = Mid(strLetters, i, 1)
    Cript = Int(Rnd * 999999) + 1 & g

End Function
%>

'==============================
'============= END ============
'==============================

How To Use IT :
 
<% @LANGUAGE=VBScript %>
<% Option Explicit %>
<!-- #Include file="Functions.asp" -->
<%
Dim Cript_String

Cript_String = Cript

Response.Write(Cript_String)

%>


This article was originally written by Cadey

Did you like this article? There are hundreds more.

Comments:
<none>
Anonymously add a comment: (or register here)
(registration is really fast and we send you no spam)
BB Code is enabled.
Captcha Number:



     
Your Ad Here
 
Copyright Open Source Institute, 2006