27087 total geeks with 3528 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: Oct 31
October Goal: $40.00
Gross: $0.00
Net Balance: $0.00
Left to go: $40.00
Contributors


News Feeds
The Register
Google absorbs
Oxford Uni boffins
in artificial
intelligence boost
quest
Something about
this really STINKS:
Rosetta probe
shoves nose under
comet"s tail
Rackspace launches
big red rack eater
Adorkable overshare
of words like
photobomb in this
year"s dictionaries
MAVEN snaps
eight-bit SPACE
INVADER
"Careful management
of headcount" for
Juniper after tepid
quarter
Boffins want to put
Quanta in
containers, after
docking
Yahoo!
Timestamps!
Now!
Block!
Facebook!
Email!
What does beating a
dead horse look
like? Look no
further than the
US TV giants vs
Samsung gets
virtual with tiny
S5 upgrade and
goggle grab
Slashdot
NY Doctor Recently
Back From West
Africa Tests
Positive For Ebola
Tracking a Bitcoin
Thief
How Sony, Intel,
and Unix Made
Apple"s Mac a PC
Competitor
SMART Begins Live
Public Robocar
Tests In Singapore
Microsoft Exec
Opens Up About
Research Lab
Closure, Layoffs
Tech Firm Fined For
Paying Imported
Workers $1.21 Per
Hour
Mark Zuckerberg
Speaks Mandarin At
Tsinghua University
In Beijing
Assange: Google Is
Not What It Seems
Leaked Documents
Reveal
Behind-the-Scenes
Ebola Vaccine
Issues
Ubuntu 14.10
Released With
Ambitious Name, But
Small Changes
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 7882 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