一个asp函数，alert的动作

‘=========================================================
‘函数：alert(str)
‘作用：弹出对话框信息
‘参数：str —要弹出的信息
‘参数：nexti —弹出后的动作0=无,1=返回,2=关闭
‘=========================================================
Function alertstr(str,nexti)
dim nextStr
select case(nexti)
case(0)
response.Write(““)
response.End()
case(1)
response.Write(““)
response.End()
case(2)
response.Write(““)
response.End()
end select
end Function