常用ASP自定义函数集（S.Sams）

常用ASP自定义函数集（S.Sams）2010-01-30rem ---表单提示函数 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 ---生成自定义位随机数 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