27176 total geeks with 3531 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: Nov 30
November Goal: $40.00
Gross: $0.00
Net Balance: $0.00
Left to go: $40.00
Contributors


News Feeds
The Register
Sony cuff-puter to
do one thing
smartwatches can"t:
Give you DAYS of
hot wrist action
Rosetta science
team thinks Philae
might come to life
in the spring
Google"s whois
results say it"s a
lousy smut searcher
Bitcoin laid bare:
boffins beat
anonymity
The gender
imbalance in IT is
real, ongoing and
ridiculous
NSF goes cloudy
with US$16 million
super funding
Global Commission
on Internet
Governance wobbles
into IANA debate
A DRONE OF THEIR
OWN: GoPro tabbed
for cameracopter
launch
Adobe Reader
sandbox popped says
Google researcher
Hacker dodges FOUR
HUNDRED YEARS in
cooler for SCANNING
sites
Slashdot
UK Announces Hybrid
Work/Study
Undergraduate
Program To Fill
Digital Gap
BT Blocking Private
Torrent Sites?
Consortium Roadmap
Shows 100TB Hard
Drives Possible By
2025
Health Advisor:
Ebola Still
Spreading, Worst
Outbreak We"ve Ever
Seen
Ask Slashdot: Best
Biometric
Authentication
System?
Voting Machines
Malfunction: 5,000
Votes Not Counted
In Kansas County
Bitcoin Is Not
Anonymous After All
BlackBerry Will Buy
Your iPhone For
$550
Jackie Chan Discs
Help Boost Solar
Panel Efficiency
Fly With the
Brooklyn Aerodrome
(Video)
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 7945 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