27477 total geeks with 3535 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: May 31
May Goal: $40.00
Gross: $0.00
Net Balance: $0.00
Left to go: $40.00
Contributors


News Feeds
The Register
VMware doubles node
count for EVO:RAIL
hyperconvergencewar
e
Factory reset FAILS
in 500 MEEELLION
Android phones
ZX Spectrum
"Hobbit" revival
sparks developer
dispute
Heroic German
rozzers rescue
innocent lamb from
sordid brothel
HP beats the street
on earnings, misses
on revenue in Q2
Big sales growth
nothing to do with
NSA fears - Huawei
top brass
Hacker uses
Starbucks INFINITE
MONEY for free
CHICKEN SANDWICH
PCI council gives
up, dumbs down PCI
DSS for small
business
VMware beta testing
database-as-a-servi
ce based on SQL
Server
EXT4 filesystem can
EAT ALL YOUR DATA
Slashdot
Musical Organ
Created From 49
Floppy Disk Drives
DNA On Pizza Crust
Leads To Quadruple
Murder Suspect
Gravitational
Anomalies Beneath
Mountains Point To
Isostasy of Earth"s
Crust
Netgear and ZyXEL
Confirm NetUSB
Flaw, Are Working
On Fixes
YouTube Live
Streams Now Support
HTML5 Playback and
60fps Video
What Was the
Effect of Rand
Paul"s 10-Hour
"Filibuster"?
Security
Researchers Wary of
Wassenaar Rules
Australian ISP
Offers Pro-bono
Legal Advice To
Accused Pirates
Student
Photographer
Threatened With
Suspension For
Sports Photos
Academics Build a
New Tor Client
Designed To Beat
the NSA
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 8165 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