Common ASP user-defined function set (S. Sams)

Source: viewpoint design 8see.net
Http://blog.8see.net/
Rem --- form prompt function Being -----------------------------
CODE Copy...
Function Check_submit (str, restr)
If str = "" then
Response. write "<script>"
Response. write "alert ('" & restr &"');"
Response. write "history. go (-1 )"
Response. write "</script>"
Response. end
Else
Check_submit = str
End if
End Function
CODE Copy...
Function Alert_submit (str)
Response. write "<script>"
Response. write "alert ('" & str &"');"
'Response. write "location. reload ();"
Response. write "</script>"
End Function
CODE Copy...
Function localhost_submit (str, urls)
Response. write "<script>"
If str <> "" then
Response. write "alert ('" & str &"');"
End if
Response. write "location = '" & urls &"';"
Response. write "</script>"
End Function
Rem --- generate a custom random number Being -----------------------------
CODE Copy...
Function makerndid (byVal maxLen)
Dim strNewPass
Dim whatsNext, upper, lower, intCounter
RANdomize
For intCounter = 1 To maxLen
WhatsNext = int (2 * Rnd)
If whatsNext = 0 Then
Upper = 80
Lower = 70
Else
Upper = 48
Lower = 39
End If
StrNewPass = strNewPass & Chr (Int (upper-lower + 1) * Rnd + upper ))
Next
Makerndid = strNewPass
End Function
Rem --- generate four-digit random number Being -----------------------------
CODE Copy...
Function get_rand ()
Dim num1
Dim rndnum
Randomize
Do While Len (rndnum) <4
Num1 = CStr (Chr (57-48) * rnd + 48 ))
Rndnum = rndnum & num1