27099 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
Facebook says
vendor secrets
forced it to
homebrew switches
Free
government-penned
crypto can swipe
identities
So long, thanks for
all the ...er, FISH
BRIGHTER than
boffins thought
Multi Jet Fusion is
HP"s promised 3D
printer, not crazy
"leccy invention
Google heads out
the back with
rifle, puts down
POODLE
FIFTEEN whole
dollars on offer
for cranky Pentium
4 buyers
Microsoft gets
storage QoS and
software-defined
storage religion
Plasma-spaffing
boffins plan
spaceships driven
by FRIKKIN" LASERS
Desktop Linux users
beware: the boss
thinks you need to
be managed
Google"s Mr.
Roboto, Andy Rubin,
to bid
sayonara
Slashdot
Swedish Regulator
Orders Last
"Hold-Out" ISP To
Retain Customer
Data
Mark Zuckerberg And
John Doerr Donate
$1M To Expand The
Hour Of Code
Campaign
Denmark Plans To Be
Coal-Free In 10
Years
France
Investigating
Mysterious Drone
Activity Over 7
Nuclear Power Plant
Sites
Researchers Claim
Metal "Patch" Found
On Pacific Island
Is From Amelia
Earhart
New Study Shows
Three Abrupt Pulses
of CO2 During Last
Deglaciation
Google To Disable
Fallback To SSL 3.0
In Chrome 39 and
Remove In Chrome 40
Charity Promotes
Covert Surveillance
App For Suicide
Prevention
Vulnerabilities
Found (and Sought)
In More
Command-Line Tools
Getting "Showdown"
To 90 FPS In UE4 On
Oculus Rift
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 7894 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