Generer tilfældig 20 cifret kode

jeg kan i PHP..lol

hmm, det kan måske bruges...

nej, jeg kan jo ikke overføre direkte fra PHP til ASP, eller hvad?

hvis PHP gemmer det i en variabel, kan det så hentes af ASP?

Hmmm, I dunno..

Men ligesom php.net har en database hvor man kan søge hjælp, må Micro$oft da have noget tilsvarende..

Ellers 2 min, skaffer det lige i ASP..

<%
response.write makePassword(15)

function makePassword(byVal maxLen)

Dim strNewPass
Dim whatsNext, upper, lower, intCounter
Randomize

For intCounter = 1 To maxLen
    whatsNext = Int((1 - 0 + 1) * Rnd + 0)
If whatsNext = 0 Then
\'character
        upper = 90
        lower = 65
Else
        upper = 57
        lower = 48
End If
        strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))
Next
        makePassword = strNewPass

end function
%>

fundet på http://www.aspfree.com/authors/robert/view.asp?aid=14

takker, du får lige nogle point :o)

En mere:

Dim fs, i, x
Dim strTemp

Response.Write \"<U><B>Here are 50 Random \" & _
              \"Passwords:</B></U><BR>\"

Set fs = CreateObject(\"Scripting.FileSystemObject\")

For x = 1 to 50
  \'Get just the filename part of the temp name path
  strTemp = fs.GetBaseName(fs.GetTempName)

  \'Hack off the \'rad\'
  strTemp = Right(strTemp, Len(strTemp) - 3)

  Response.Write strTemp & \"<br>\"
Next

Set fs = Nothing

fra: http://www.4guysfromrolla.com/webtech/tips/t011100-1.shtml

Mere: <%
\' =================================================================
\' Create a random numeric password with a minimum length of 6 and
\' a maximum length of 8. The parameter \"sText\" can be an empty
\' string and one or two alphanumeric characters or even special
\' characters.
\'
\' Examples:
\' response.write RandomPassword(\"xq\")
\' response.write RandomPassword(\"!w\")
\' response.write RandomPassword(\"@3\")
\' response.write RandomPassword(\"33\")
\' response.write RandomPassword(\"*^\")
\' =================================================================
function RandomPassword(sText)
    on error resume next
    Randomize()
    iUpperbound = int(left(sText, (len(sText)-2)))
    iLowerbound = int(Year(Now) / (second(Now)+ 1))
    iRandomNumber = int((iUpperbound - iLowerbound + 1) * Rnd + iLowerbound)
   
    if len(iRandomNumber) < 6 then
        do until len(iRandomNumber) = 6
            iExtraDigit = int((9-0+1) * Rnd + 0)
            iRandomNumber = iRandomNumber & iExtraDigit
        loop
    end if
   
    sNewPassword = right(sText,1) & iRandomNumber & left(right(sText,2),1)
   
    randompassword = sNewPassword
   
end function
\' =================================================================
%>


<HTML>
<BODY>
<%
Response.Write RandomPassword(\"xq\") & \"<br>\"
Response.Write RandomPassword(\"!w\") & \"<br>\"
Response.Write RandomPassword(\"@3\") & \"<br>\"
Response.Write RandomPassword(\"33\") & \"<br>\"
Response.Write RandomPassword(\"*^\") & \"<br>\"
%>
</BODY>
</HTML>

fra: http://www.actionjackson.com/asp/examples/randompassword.asp

Brug Google før du bruger dine point! *LOL*