27290 total geeks with 3532 solutions
Recent challengers:
 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: Dec 31
December Goal: $40.00
Gross: $0.00
Net Balance: $0.00
Left to go: $40.00
Contributors


News Feeds
The Register
Space Commanders
lock missiles on
Elite"s Frontier
Devs
Working over
Christmas?
Government tech
suppliers will be
STAY AWAY: Popular
Tor exit relays
look raided
Microsoft shutters
Office 365"s free
web site service
Dangerous NTP hole
ruins your Chrissy
lunch
IsoHunt releases
roll-your-own
Pirate Bay
One third of
servers, storage
and switches are
sold to clouds
The electronics
island where COPS
shoot ARMY and
workers are rioting
VMware says anyone
- not just EMC -
can play with its
best bits
Now Obama seeks
China"s help to
halt alleged Nork
HACK ATTACKS
Slashdot
How a Massachusetts
Man Invented the
Global Ice Market
Librarians: The
Google Before
Google
"Infrared Curtain"
Brings Touchscreen
Technology To Cheap
Cars
Viacom"s Messy
Relationship With
YouTube and The
Rise of Stephen
Colbert
The Magic of
Pallets
26 Foot Long Boat
3D Printed In
100,000 Different
Pieces
Cuba Says the
Internet Now a
Priority
Finland Announces
an Anti-Laser
Campaign For Air
Traffic
Anonymous Claims
They Will Release
"The Interview"
Themselves
Judge: It"s OK For
Cops To Create Fake
Instagram Accounts
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 7969 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