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

'参数：返回值
'返 回 值：无
'涉及的表：无
'===================================================================================

Public Function ReturnValue(bolValue)
    If bolValue Then
        Response.Write "<script language=""JavaScript"">window.returnValue=true;</script>"
    Else
        Response.Write "<script language=""JavaScript"">window.returnValue=false;</script>"
    End If
End Function

'===================================================================================
' 函数原型：GoBack (URL)
'功能：后退
'参数：无
'返 回 值：无
'涉及的表：无
'===================================================================================

Public Function GoBack()
    Response.Write "<script language=""JavaScript"">history.go(-1);</script>"
End Function

'===================================================================================
' 函数原型：CloseWindow ()
'功能：关闭窗口
'参数：无
'返 回 值：无
'涉及的表：无
'===================================================================================

Public Function CloseWindow()
    Response.Write "<script language=""JavaScript"">window.opener=null;window.close();</script>"
End Function

'===================================================================================
' 函数原型：RefreshParent ()
'功能：刷新父框架
'参数：无
'返 回 值：无
'涉及的表：无
'===================================================================================

Public Function RefreshParent()
    Response.Write "<script language=""JavaScript"">if(parent!=self) parent.location.reload();</script>"
End Function

'===================================================================================
' 函数原型：RefreshTop ()
'功能：刷新顶级框架
'参数：无
'返 回 值：无
'涉及的表：无
'===================================================================================

Public Function RefreshTop()
    Response.Write "<script language=""JavaScript"">if(top!=self) top.location.reload();</script>"
End Function

'===================================================================================
' 函数原型：GenPassword (intLen,PassMask)