ASP常用函数收藏乱七八糟未整理版(60)

        rs.movenext
        If rs.EOF Then Exit For
        Next　
        Response.Write("</table>") 　
    End If
%>
</BODY>
</HTML>
<%
Rem - - - 表单提示函数 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