onMouseOver时，浏览器状态栏文字列的设定（ASP）

'===================================================================
'機能   :ステータスバーに文字列を設定する(onMouseOver=)
'        strMessage     I   String      文字列
'===================================================================
Function gfstrSetStatus(strMessage)
 If SG_blnErrorResumeNext Then
  On Error Resume Next
 End If

 If strMessage <> "" Then
  gfstrSetStatus = " onMouseOver=""window.status='" & strMessage & "';return true;"""
 Else
  gfstrSetStatus = " onMouseOver=""window.status='';return true;"""
 End If
End Function