按下按鈕後，出現confirm視窗

Function PopConfirm(ByVal Msg3Show As String) As Boolean ''''Pop-up a message dialogue
Response.Write(''<'' + ''Script language=''VBScript''>'' + Chr(13))
Response.Write(''Confirm'''' + Msg3Show + '' '',, ''刪除後將無法復原,請檢查後再動作'' '')
Response.Write('''')
End Function

Private Sub DataGrid1_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.DeleteCommand
If PopConfirm(''你確定要刪除這筆資料嗎?'') Then
processing 1
else
processing 2
End If
End Sub