' 
'**************************************************
'显示图片获取器
Sub OpenImgPicker(WriteToEdit,tagOb)
	open "imgPicker.asp?WriteToEdit="&WriteToEdit&"&tagOb=" & tagOb ,"picker","left=400,top=400,Width=360,Height=222,toolbar=no, menubar=no, scrollbars=no, resizable=no, location=no,status=no"
End Sub
'显示组选取器
Sub OpenGroupPicker()
	open "GroupPicker.asp" ,"gpicker","left=300,top=300,Width=330,Height=254,toolbar=no, menubar=no, scrollbars=no, resizable=no, location=no,status=no"
End Sub

'确认后前往Url
Function ConfirmGo(GoUrl,msg)
	if trim(msg)="" then msg="您确信要执行此操作吗?"
	if confirm(msg)=true then location=GoUrl
End Function